Logo

#!/usr/bin/perl #! Perl - Script zum Zaehlen der Zugriffe #! Sendet ein Mail bei jedem 100sten Besucher #! KURY IT März 2001 $Summe = &Zaehler; #! Zugriff registrieren if ($Summe % 15 == 0) { &Senden($Summe); } &Danke($Summe); die; #!################################################################### #! Zaehler (liest den Wert aus 'zaehl.txt' aus inkrementiert #! ihn und gibt Ihn an die aufrufende Funktion zurück. #! Der neue Wert wird wieder in die Datei zurückgeschrieben #! Aufruf: &Zaehler #!################################################################### sub Zaehler { open(ZAEHLER, ") { $Zahl = $_; } close (ZAEHLER); open(ZAEHLER, ">zaehler.txt"); #! Wert setzen print ZAEHLER $Zahl + 1; close (ZAEHLER); return $Zahl } #!################################################################### #! Liefert einen String mit Datum, Uhrzeit und Zeilenvorschub. #! Aufruf: &Timestamp #!################################################################### sub Timestamp { $Jetztwert = time(); $Jetztzeit = localtime($Jetztwert); &Deutschnamen; @Zeit = split(/ +/,$Jetztzeit); @Uhrzeit = split(/:/,$Zeit[3]); return "Datum: $Zeit[0] der $Zeit[2] $Zeit[1] $Zeit[4] Zeit: $Uhrzeit[0]:$Uhrzeit[1]\n"; } #!################################################################### #! Datum in deutsche Namen übersetzen #! Aufruf: &Deutschnamen #!################################################################### sub Deutschnamen { $Jetztzeit =~ s/Mon/Montag/; $Jetztzeit =~ s/Tue/Dienstag/; $Jetztzeit =~ s/Wed/Mittwoch/; $Jetztzeit =~ s/Thu/Donnerstag/; $Jetztzeit =~ s/Fri/Freitag/; $Jetztzeit =~ s/Sat/Samstag/; $Jetztzeit =~ s/Sun/Sonntag/; $Jetztzeit =~ s/Jan/Januar/; $Jetztzeit =~ s/Feb/Februar/; $Jetztzeit =~ s/Mar/Maerz/; $Jetztzeit =~ s/Apr/April/; $Jetztzeit =~ s/May/Mai/; $Jetztzeit =~ s/Jun/Juni/; $Jetztzeit =~ s/Jul/Juli/; $Jetztzeit =~ s/Aug/August/; $Jetztzeit =~ s/Sep/September/; $Jetztzeit =~ s/Oct/Oktober/; $Jetztzeit =~ s/Nov/November/; $Jetztzeit =~ s/Dec/Dezember/; } #!################################################################### #! Senden #! Aufruf: &Senden(Summe); #!################################################################### sub Senden { #!--------------------------------------------------------------- #! Mail an Franz Müller #!--------------------------------------------------------------- $Mailprogramm = "/usr/lib/sendmail"; $MailSubject = "Homepage - Zaehler"; $Empfaenger = "emanuel\@kury.com"; $SenderName = $Name; $SenderMail = $Adresse; #!open(MAIL,"|$Mailprogramm -t") || die; open(MAIL, ">> mail.txt"); #! Wert auslesen print MAIL "To: $Empfaenger\n"; print MAIL "From: $SenderMail $SenderName\n"; print MAIL "Subject: $MailSubject\n\n"; print MAIL "\n**** Zaehler - Mail (miele-franz.at - homepage) ****\n"; print MAIL &Timestamp; print MAIL "\nDer $_[0]ste Besucher hat sich heute www.miele-franz.at angesehen.\n"; close(MAIL); } #!################################################################### #! Danke #! Aufruf: &Danke; #!################################################################### sub Danke { print "Content-type: text/html\n\n"; print " Logo

*** Aktion **** Testen Sie vier Wochen lang einen unserer Wäschetrockner. GRATIS! **** $_[0] ****

"; }