diff -r a5c8edf14f82 -r c78f71bda340 doručenky/dorucenky.pl --- a/doručenky/dorucenky.pl Wed Nov 30 15:44:34 2011 +0100 +++ b/doručenky/dorucenky.pl Wed Nov 30 17:13:26 2011 +0100 @@ -11,7 +11,7 @@ # viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Entity.pm # viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Head.pm -# viz http://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pm +# viz http://perldoc.perl.org/Net/SMTP.html # Nastavení -------------------------------------------------------------------- @@ -62,17 +62,14 @@ } else { $stav = "chyba - Message-ID nenalezeno"; } - } else { - $stav = "hlavicka References uz byla nastavena drive"; + $stav = "ok - hlavicka References uz byla nastavena drive"; } } else { $stav = "chyba - nevime, kam zpravu poslat zpet"; } } else { - # Zpráva se zacyklila → pouze přidáme svoji značku - # a pošleme správci (nezměníme $komu) - $stav = "chyba - cyklus"; + $stav = "chyba - zprava se zacyklila"; }