;
$zeile = $zeile + 1;
$timediff = time - $starttime;
$sendinfo = "$timediff - $zeile - $lesemail
\n";
if (($timediff > 10) && ($mailgesendet >= 1)) {
print "Abbruch
";
$abbruch = 1;
}
} else
{
if (length($lesemail) != 0) {
$lesemail = "$lesemail$l1";
}
}
$zeile = $zeile + 1;
}
# Die letzte Mail muá noch gesendet werden:
if ($abbruch != 1) {
if (length($lesemail) != 0) {
print "$sendinfo";
open(MAIL, "|\/usr\/sbin\/sendmail -t");
print MAIL ($lesemail);
close MAIL;
open (OUT,">$countfile" );
print OUT ("$zeile\n");
close(OUT);
$mailgesendet = $mailgesendet + 1;
}
}
if ($mailgesendet == 0) {
print "Keine weiteren Mails in $workfile
\n";
$ok = unlink "$workfile";
print "Delete $workfile ok? $ok
\n";
} else {
print "$mailgesendet Mails verschickt
\n";
}
}
unlink $lockfile;
$fill = "
\n";
$fill = "$fill Nun kommt ein Text, der allein dem Anfüllen der ";
$fill = "$fill Datei dient:
\n";
$fill = "$fill DGB CDU SPD FDP Bonn Berlin, Bochum Deutschland Computer
\n";
$fill = "$fill Silber. Gold Bronze Domain Name Weiterleitung E-Mail EMail E-Mail
\n";
$fill = "$fill Das Telefon ist ein Handy oder ein Mobiltelefon oder aber auch nur ein Homehandy bzw. ein Hometelefon.
\n";
$fill = "$fill Bereits in der Schule oder der Berufsschule lernt man, daß das Abi nur an einer Gesamtschule oder einem Gymnasium gemacht werden kann.
\n";
$fill = "$fill In dem Spiel Stadt Land Fluß müssen immer irgendwelche Begriffe geraten werden.
\n";
$fill = "$fill Warum ich Bier trinke? Weil es schmeckt!
\n";
$fill = "$fill Warum ich Wein trinke? Weil er schmeckt!
\n";
$fill = "$fill Warum ich Cola trinke? Weil sie schmeckt!
\n";
$fill = "$fill Warum ich Limo trinke? Weil sie schmeckt!
\n";
$fill = "$fill Warum ich Whisky trinke? Weil er schmeckt!
\n";
$fill = "$fill Erst ist man ein Embrio, dann ein Baby und später dann ein Kind.
\n";
$fill = "$fill Irgendwann wird man dann erwachsen und stirbt nachher.
\n";
print "$fill $fill";
print "\n";