<perl>

get "infoend<0 wm_url>( sort=?", "mms_wm"  if ($type eq "graf");
get "infoend<0 wm_url<( sort=?", "mms_wm" if ($type eq "tekst");

 {
out "<a href='http://glettkau.de/cgi-bin/baseportal.pl?htx=/glettkau.de/mms/mms_klickstat&nr=$_id&urltogo=$urltogo' target='_top$target_blank' alt='$alt'><img src='$wm_url' border=0></a>" if ($type eq "graf" && $allegro ne "1");

out "<a href='http://glettkau.de/cgi-bin/baseportal.pl?htx=/glettkau.de/mms/mms_klickstat&nr=$_id&urltogo=$urltogo' target='_top$target_blank' title='$alt'>$alt</a>" if ($type eq "tekst");

if ($ist eq "2") {mod "Id==$_id", ["start","Datum:=jetzt"], "mms_wm";
get "mms_user==$mms_user", mms_kunden;
mail "$mms_user", "[mms.cytaty.com] Poczatek - kampania reklamowa zostala rozpoczeta", "[wiadomosc wygenerowana automatycznie]\n\nWitaj,\n\nTwoja kampania reklamowa ($nazwa) zostala wlasnie rozpoczeta.\nMozesz w kazdej chwili wejsc na strone http://mms.cytaty.com i zalogowac sie uzywajac Twoich danych:\n\nlogin: $mms_user \n\haslo: $pwd \n\naby obejrzec aktualizowane na zywo statystyki.\n\nJesli chcesz, mozesz rpwniez wykupic dalsze kampanie reklamowe (po bardzo atrakcyjnych, promocyjnych cenach), wplaty obslugiwane sa poprzez system PAYU bezposrednio z naszej strony.\n\nPozdrawiam\n\nMichal Mirski\n\nhttp://www.cytaty.com - odwiedz, wyprobuj, polec innym!", 'info@cytaty.com';}

 }

{
if ($infoend ne "1")
 {
mail "$mms_user", "[mms.cytaty.com] Koniec - kampania reklamowa zakonczona", "[wiadomosc wygenerowana automatycznie]\n\nWitaj,\n\nTwoja kampania reklamowa ($nazwa) zostala zakonczona.\nMozesz w kazdej chwili wejsc na strone http://mms.cytaty.com i zalogowac sie uzywajac Twojego nicku: $mms_user i znanego Tobie hasla, aby obejrzec aktualizowane na zywo statystyki.\n\nJesli chcesz, mozesz rpwniez wykupic dalsze kampanie reklamowe (po bardzo atrakcyjnych, promocyjnych cenach), wplaty obslugiwane sa poprzez system PAYU bezposrednio z naszej strony.\n\nPozdrawiam\n\nMichal Mirski\n\nhttp://www.cytaty.com - odwiedz, wyprobuj, polec innym!", 'info@cytaty.com';
mod "Id==$_id", ["infoend","1","stop","Datum:=jetzt"], "mms_wm";
 }

</perl>