1.1 --- a/doručenky/dorucenky.pl	Wed Nov 30 15:56:29 2011 +0100
     1.2 +++ b/doručenky/dorucenky.pl	Wed Nov 30 17:13:26 2011 +0100
     1.3 @@ -11,7 +11,7 @@
     1.4  
     1.5  # viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Entity.pm
     1.6  # viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Head.pm
     1.7 -# viz http://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pm
     1.8 +# viz http://perldoc.perl.org/Net/SMTP.html
     1.9  
    1.10  
    1.11  # Nastavení --------------------------------------------------------------------
    1.12 @@ -62,17 +62,14 @@
    1.13  			} else {
    1.14  				$stav = "chyba - Message-ID nenalezeno";
    1.15  			}
    1.16 -			
    1.17  		} else {
    1.18 -			$stav = "hlavicka References uz byla nastavena drive";
    1.19 +			$stav = "ok - hlavicka References uz byla nastavena drive";
    1.20  		}		
    1.21  	} else {
    1.22  		$stav = "chyba - nevime, kam zpravu poslat zpet";
    1.23  	}	
    1.24  } else {
    1.25 -	# Zpráva se zacyklila → pouze přidáme svoji značku
    1.26 -	# a pošleme správci (nezměníme $komu)
    1.27 -	$stav = "chyba - cyklus";
    1.28 +	$stav = "chyba - zprava se zacyklila";
    1.29  }
    1.30  
    1.31