#!/usr/bin/perl -X ################################ # SPEICHERHOSTING Guestbook Version 1.0 # # Copyright SPEICHERHOSTING 2002 gaestescript@speicherhosting.com # # http://www.ani-aik.de/ # # This Perl Script is written only in German. # #########------------------------------------------------------------########## # COPYRIGHT ANMERKUNG # # Copyright 2002 SPEICHERHOSTING All Rights Reserved. # # # # Das SPEICHERHOSTING Guestbook kann kann von jedem frei benuzt und modifiziert# # werden. Bei Benutzung dieses Scripts sollten diese Copyright Informationen # # unbedingt beibehalten werden. Der Verkauf oder Wiederverkauf dieses # # Source Codes ist strengstens untersagt. # # # # Bei erstmaliger Benutzung bitte ich Sie eine kleine Informations eMail # # an meine oben genannte Adresse zu schicken, damit ich mir einen Überblick # # über die Verbreitung dieses Programms bilden kann. # #########------------------------------------------------------------########## # ANLEITUNG # # # # Zur korreckten Installation des SPEICHERHOSTING Guestbooks muss nur das # # guestbook.cgi installiert werden, und die Zugriffsrechte auf chmod 755 # # gesetzt werden. # # Normaler Weise brauchen Sie nur die anschliesend genannten Variablen zu # # ändern, und Ihren Wünschen anpassen. Nur erfahrene Nutzer sollten im # # unteren Programmbereich den Source Code, wenn es erwünscht ist, ändern. # # # # # # Viel Spass wünscht Ihnen das SPEICHERHOSTING-Team # ############################################################################### ############################################################################### ###################---------- Variablen zum ändern ----------################## ############################################################################### ######## *** Allgemeine Programm Konfiguration *** ######## #---------------------------------------------------------# # Hier sollte man die Verschiedenen Pfade und Programmvariablen # anpassen. ############################# # Benutzername zum Einträge löschen und Kommentare verfassen $user_name = "web367"; # Userpasswort zum Einträge löschen und Kommentare verfassen $user_pwd = "rotesmeer"; # Hier kann man den Namen des Gästebuchscripts eintragen. # Einige Provider laasen nur Scripte mit bestimmten Endungen zu, # welche man hier ändern kann. $scriptname = "stuvwts.cgi"; # Trage hier den Namen der Log Datei ein, in der alle Beiträge # gespeichert werden sollen. Diese Datei wird automatisch erstellt. # Sollte sie nicht erstellt werden, dann prüfe bitte ob das # Verzeichnis, in welchen sich das Script befindet auch die Rechte # zum ausführen hat (chmod) $data_log = "guestlog.log"; # Sendmail-Programm zu erfragen beim Provider (nur unter Unix) $mailprog = '/usr/sbin/sendmail_unsafe -t -i -f otto@heimatkreis-stargard.de'; # Deine eMail Adresse # Den \ vor dem @ nicht vergessen $send = "dietrichotto\@arcor.de"; # URL zum Image Verzeichniss $url_image = "http://www.heimatkreis-stargard.de/gb/image"; # URL zum Gästebuch $url_guestbook = "http://www.heimatkreis-stargard.de/cgi-bin/stuv3wts.cgi"; # Normale Text Smilies :-) durch Grafiken ersetzen # 1=ja # 0=nein $smile_ers = "1"; # Einstellung der Zeitverschiebung. Wenn der Server in einer anderen # Zeitzone steht (zB. London) kann man hier die Differnenz in + oder # - zu unserer Zeit angeben. $tzone = "+0"; # Wenn transparente Logos nicht zu Hintergrund passen # (bei dunklen HG) Bitte eine 0 eingeben, sonst eine 1 $logo_tr = "1"; # Soll HTML erlaubt sein # 1=ja # 0=nein # Bei nein werden alle html-Tags rausgefiltert $html_on = "1"; # Name für den Link zurück # Wenn kein Link angezeigt werden soll, bitte leer lasen $link_name = "Zurück zur Homepage"; # URL für Link zurück zur Homepage $link_hp = "http://www.heimatkreis-stargard.de"; # Uhrzeit des Postings mit ausgeben # 1=ja # 0=nein $ausg_time = "1"; # Link zur Ip Adresse ausgeben # 1=ja # 0=nein $ausg_ip = "1"; # Kommentare zulassen # 1=ja # 0=nein $ausg_com = "1"; # Wollen Sie eine eMail bei jedem Eintrag erhalten # 1=ja # 0=nein $back_email = "0"; # Soll der Benutzer auch eine eMail bekommen # 1=ja # 0=nein $usr_mail = "0"; # Wollen Sie eine eMail bekommen wenn einer vergeblich versucht Beiträge zu löschen # 1=ja # 0=nein $mail_badus = "1"; # Soll der Verfasser eines Beitrages, auf den ein Kommentar erschienen ist diesen # als eMail bekommen? # 1=ja # 0=nein $send_antwort_com = "0"; # Begrenzt die max. Buchstabenzahl einen Wortes, um vor Spamming zu schützen # Wieviel Buchstaben darf ein Wort max haben. Ist diese Funktion nicht erwüncht, # einfach eine 0 eintragen. $wort_begrenzung = "30"; # Einträge auf böse Wöter überprüfen und ggf löschen # 1=ja # 0=nein $bad_word = "0"; @bad_word_list = ('Wenn', 'Liste', 'erwünscht', 'bitte', 'hier', 'die', 'Wörter', 'eingeben', 'die', 'gefiltert', 'werden', 'sollen'); ########### *** Pflichtfelder und Kommentare *** ########## #---------------------------------------------------------# # Hier kann man einstellen welche Eingabefelder unbedingt vom User gemacht # werden sollen. Eine 0 bedeutet, dass das Feld keine Pflicht ist aber man # es trotzdem ausfüllen kann. Bei einer 1 muus das entsprechende Feld # ausgefuellt werden. ############################# ######### Pflichtfelder im Beitragsformular # 1=ja # 0=nein # Name $pflicht_name = 1; # URL zur Homepage $pflicht_url = 0; # eMail Adresse $pflicht_mail = 0; # Beitagsfeld $pflicht_beitrag = 1; ######### Kommentare # Darf jeder einen Kommentar zu einem Beitrag verfassen, oder # nur der Admin. Falls nur der Admin Kommentare verfassen darf # werden das Passwort und der Name abgefragt. # 1=alle # 0=nur Admin $open_com = 1; # Pflichtfelder im Kommentarformular # 1=ja # 0=nein # Name $pflicht_com_name = 1; # eMail Adresse $pflicht_com_mail = 1; # Kommentar $pflicht_com_com = 1; ########################################################### ########################################################### read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } print "Content-type: text/html\n\n"; ########################################################### ########################################################### ################### *** eMail Ausgabe *** ################# #---------------------------------------------------------# # Hier kann man den Text zu den eMails eintragen. Falls der User # eine Antwort und der Webmaster eine Info Mail erhalten will, # kann man die verschiedenen Texte hier eintragen. # $FORM{'name'} ist der Name des Users, falls er einen angegeben hat. # Es kann alles zwischen den Beiden Hochkommas ("") geändert werden. # Achte aber darauf, dass du keine falschen Variablen einfügst und # die Hochkommas löschst. ############################# &date; ########## Antwortmail an den User $mail_antwort_user = "Hallo $FORM{'name'}! Das ist nur eine kleine Dankeschön eMail für Ihren Eintrag in mein Gästebuch. Ich würde mich auch freuen, wenn Sie bald wieder auf meiner Homepage vorbeischauen. Mit freundlichen Grüssen."; ########## Info Mail an den Webmaster $mail_info_webmaster = "Hallo, $FORM{'name'} hat einen neuen Beitrag in das Gästebuch eingefügt. Datum : $gen_date $time Beitrag: $FORM{'nachricht'} mailto:$FORM{'email'} ---------- Vielen Dank, das Sie dieses Gästebuch benutzen. http://127.0.0.1/\n\nEmpfehlen Sie es weiter."; ############# *** Einstellungen zum Design *** ############ #---------------------------------------------------------# # Hier kann man einige Eistellungen zum aussehen der Seite machen. # Die verschieden Links und Schriftarten können hier eingestellt werden. ############################# $headline = "Gästebuch Heimatkreis Stargard"; # Überschrift der Webseite $titel = " Gästebuch Heimatkreis Stargard"; # Titel der html Seite $background = "http://ihre-domain.xx/hintergrund.jpg"; # Hintergrundfarbe $bgcolor = "#FFFF99"; # Hintergrundfarbe $t_bord_c = "#000000"; # Farbe vom Tabellenrand $t_kopf_c = "#AAAAAA"; # Tabellenkopf Farbe $t_body_c = "#FFFFFF"; # Tabellen Body Farbe $t_width = "80%"; # Tabellenbreite (kann auch Pixel statt Prozent sein) $link_c = "#0000FF"; # Linkfarbe $link_a_c = "#FF0000"; # Farbe von besuchten Links $hl_c = "#000000"; # Farbe der Überschrift $hl_f = "Times New Roman, Calisto MT,Arial,Helvetica"; # Schrifart der Überschrift $font_c = "#000000"; # Schrift Farbe Allgemein $font_f = "Arial,Helvetica"; # Schriftart Allgemein $font_s = "2"; # Schriftgröße Allgemein $h_font_c = "#000000"; # Schrift Farbe im Tabellenkopf (von IP und Homepage) $h_font_f = "Verdana,Arial,Helvetica"; # Schriftart Tabellenkopf $h_font_s = "1"; # Schriftgröße Tabellenkopf $l_font_c = "#555555"; # Schrift Farbe von "Löschen und Kommentieren" $l_font_f = "Verdana,Arial,Helvetica"; # Schriftart "Löschen und Kommentieren" $l_font_s = "1"; # Schriftgröße von "Löschen und Kommentieren" $index_unten = "1"; # Soll die Seitenübersicht unter den beiträgen auch angezeigt werden # 1=ja # 0=nein $eing_oben = "1"; # Soll der Eintag hinzufügen Link auch oben stehen # 1=ja # 0=nein ############################################################################### ############--------- Ab hier bitte nichts mehr ändern ----------############## ############################################################################### print ""; unless ($ENV{'QUERY_STRING'}) {$ENV{'QUERY_STRING'} = "seite=1&anzeigen=10";} if ($FORM{'action'} eq "action") {&print_data;} if ($FORM{'action'} eq "comment") {&print_com;} if ($FORM{'action'} eq "comment_loeschen") {&comment_loeschen;} if ($FORM{'action'} eq "beitrag_loeschen") {&beitrag_loeschen;} if ($FORM{'action'} eq "kommentieren") {&send_com;} $exp = $ENV{'QUERY_STRING'}; ($string1, $string2, $string3) = split(/&/, $exp); ($string_typ1, $string_wert1) = split(/=/, $string1); ($string_typ2, $string_wert2) = split(/=/, $string2); ($string_typ3, $string_wert3) = split(/=/, $string3); if ($FORM{'anzahl'}) {$anzahl = $FORM{'anzahl'};} else {$anzahl = $string_wert2;} if ($string_typ1 eq "comment") {&send_com;} if ($string_typ1 eq "seite") {&anzeigen;} if ($string_typ1 eq "action") { if ($string_wert1 eq "loeschen_comment") {&send_comment_loeschen;} if ($string_wert1 eq "loeschen_beitrag") {&send_comment_loeschen;} if ($string_wert1 eq "ip_anzeigen") {&ip_anzeigen;} if ($string_wert1 eq "eintrag") {&send_beitrag;} } sub anzeigen { open(FILE, "$data_log"); $i = 0; while() {$i++;} close(FILE); if ($FORM{'anzahl'} eq "alle") {$anzahl = $i - 1;} $k = $i - 1; $k2 = $k % $anzahl; $k3 = $k / $anzahl; $anzeigen = $anzahl * $string_wert1 + 1; open(FILE, "$data_log"); @FILE = ; close(FILE); ⊤ print ""; $smile_1 = ""; $smile_2 = ""; $smile_3 = ""; $smile_4 = ""; $smile_5 = ""; $smile_6 = ""; $smile_7 = ""; $smile_8 = ""; $smile_11 = ""; $smile_12 = ""; $smile_13 = ""; print ""; print "

$headline
\n\n"; if ($eing_oben == 1) { print ""; print ""; } print "\n\n
\nEintrag hinzufügen
"; print "Seite "; $var = 0; while ($var < $k3) { $var++; if ($var != $string_wert1) {print "$var ";} else {print "$var ";} print ""; } print ""; print "\n\n"; print "
\n\n
\n"; print "
\n"; print ""; $zeile = $string_wert1 * $anzahl - $anzahl + 1; while ($zeile < $anzeigen) { if ($FILE[$zeile]) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $FILE[$zeile]); if ($bad_word == 1) { foreach $badwort (@bad_word_list) {$nachricht =~ s/$badwort/***/gi;} } if ($html_on == 0) { $nachricht =~ s/\Q
\E/#zeum#/g; $nachricht =~ s/<([^>]|\n)*>//g; $nachricht =~ s/\Q#zeum#\E/
/g; } if ($wort_begrenzung != 0) { unless ($nachricht =~ m!http|img|href|htm|pl|cgi!g) { $nachricht =~ s/
/
/g; my @words = split(/ /, $nachricht); foreach (@words) { if (length($_) > $wort_begrenzung) { $_ = substr($_, 0, $wort_begrenzung); } } $nachricht = join(' ', @words); } } print ""; if ($smile_ers == 1) { @SMILIES = (":-)§$smile_1", ";-)§$smile_2", ":-O§$smile_3", ";-O§$smile_4", ":-D§$smile_5", ";-D§$smile_5", ":-Q§$smile_6", ";-Q§$smile_6", ":-q§$smile_6", ";-q§$smile_6", ":)§$smile_7", ";)§$smile_7", ":o§$smile_8", ";o§$smile_8", ":-(§$smile_11", ";-(§$smile_12", ":-I§$smile_13", ";-I§$smile_13", ":-|§$smile_13", ";-|§$smile_13"); foreach $smile_var (@SMILIES) { ($smile, $addr) = split(/§/, $smile_var); $nachricht =~ s/\Q$smile\E/$addr/g; } } ($datum, $zeit) = split(/=/, $date); print "\n"; print "

\n\n\n\n\n
"; print ""; print "\n\n\n"; print "\n\n\n"; if ($ausg_com == 1) { if ($com_anzahl != 0) { $i = 1; @comm = split(/§§/, $comments); while ($i <= $com_anzahl) { ($com_nr, $com_name, $com_email, $com_date, $com_comment) = split(/==/, $comm[$i]); if ($bad_word == 1) { foreach $badwort (@bad_word_list) {$com_comment =~ s/$badwort/***/gi;} } if ($html_on == 0) { $com_comment =~ s/\Q
\E/#zeum#/g; $com_comment =~ s/<([^>]|\n)*>//g; $com_comment =~ s/\Q#zeum#\E/
/g; } if ($wort_begrenzung != 0) { unless ($com_comment =~ m!http|img|href|htm|pl|cgi!g) { $com_comment =~ s/
/
/g; my @words = split(/ /, $com_comment); foreach (@words) { if (length($_) > $wort_begrenzung) { $_ = substr($_, 0, $wort_begrenzung); } } $com_comment = join(' ', @words); } } if ($smile_ers == 1) { foreach $smile_var (@SMILIES) { ($smile, $addr) = split(/§/, $smile_var); $com_comment =~ s/\Q$smile\E/$addr/g; } } print "
"; print ""; print "\n\n\n\n\n
"; print "($num)   "; if ($email ne "x") { print "$name\n";} else { print "$name\n";} if ($url ne "x") { print "   Homepage";} if ($ausg_ip == 1) {print "   IP gespeichert\n";} print "
$datum "; if ($ausg_time == 1) {print "- $zeit ";} print "
\n
\n
\n"; print ""; print "\n\n\n\n\n\n
\n$nachricht
"; print ""; print "
löschen\n"; if ($ausg_com == 1) {print "- Beitrag kommentieren";} print "
\n"; print "
\n"; print ""; print "Kommentar\n"; if ($com_email ne "x") { print "von  $com_name<\/a>  am\n";} else { print "von $com_name\n";} print "$com_date - löschen\n

\n"; print "$com_comment<\/font><\/td><\/tr>\n"; $i++; } } } print "\n

\n
\n\n\n"; } $zeile++; } if ($index_unten == 1) { print "
\n\n\n
"; print "Seite "; $var = 0; while ($var < $k3) { $var++; if ($var != $string_wert1) {print "$var ";} else {print "$var ";} } print "
"; print "\n\n"; } print ""; print "

\nEintrag hinzufügen

\n"; if ($link_name) { print "
\n\n\n"; print "\n\n
$link_name"; print "
\n
\n"; } ⊥ } sub print_data { $erst = "


\n"; $dann = "Bitte gehen Sie mit Ihren Back Button von Ihrem Browser zurück,\n"; if ($pflicht_name == 1) { unless ($FORM{'name'}) { ⊤ print $erst, "Sie haben vergessen das Namensfeld auszufüllen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } } if ($pflicht_mail == 1) { unless ($FORM{'email'}) { ⊤ print $erst, "Sie haben vergessen Ihre eMail einzutragen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } unless ($FORM{'email'} =~ /.*\@.*\..*/) { ⊤ print $erst, "Sie haben eine ungültige eMail Adresse eingetragen.


\n"; print $dann, "und füllen das Feld richtig aus\n\n\n"; exit; } } elsif ($pflicht_mail == 0 and $FORM{'email'}) { unless ($FORM{'email'} =~ /.*\@.*\..*/) { ⊤ print $erst, "Sie haben eine ungültige eMail Adresse eingetragen.


\n"; print $dann, "und füllen das Feld richtig aus\n\n\n"; exit; } } if ($pflicht_beitrag == 1) { unless ($FORM{'nachricht'}) { ⊤ print $erst, "Sie haben vergessen das Kommentarfeld auszufüllen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } } if ($pflicht_url == 1) { unless ($FORM{'url'}) { ⊤ print $erst, "Sie haben vergessen Ihre Homepage URL einzutragen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } if ($FORM{'url'} eq "http://") { ⊤ print $erst, "Sie haben vergessen Ihre Homepage URL einzutragen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } } unless ($FORM{'name'}) {$FORM{'name'} = "Anonym";} unless ($FORM{'email'}) {$FORM{'email'} = "x";} unless ($FORM{'nachricht'}) {$FORM{'nachricht'} = "";} $FORM{'nachricht'} =~ s/\n/
/gs; $FORM{'nachricht'} =~ s/&/und/gs; $FORM{'name'} =~ s/&/und/gs; $FORM{'email'} =~ s/&/und/gs; open(FILE, "$data_log"); @FILE = ; close(FILE); ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $FILE[1]); $next_num = $num + 1; unless ($FORM{'url'}) {$url = "x";} if ($FORM{'url'}) { $url = $FORM{'url'}; $url =~ s/&&/*/gs; } if ($FORM{'url'} eq "http://") {$url = "x";} open(FILE, ">$data_log"); print FILE "\n$next_num&&$FORM{'name'}&&$FORM{'email'}&&$url&&$FORM{'nachricht'}&&$gen_gif.gif&&$gen_date=$time&&$ENV{'REMOTE_ADDR'}&&0&&comment"; print FILE @FILE; close FILE; ⊤ print ""; print "


\n
Vielen Dank, für den Eintrag in mein Gästebuch.\n"; print "

Gästebuch ansehen\n
\n\n\n"; &sendmail; exit; } sub date { @days = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag'); @months = ('Januar','Februar','März','April','Mai','Juni','Juli', 'August','September','Oktober','November','Dezember'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+($tzone*3600)); $jahr = 1900 + $year; $gen_date = "$days[$wday], $mday. $months[$mon] $jahr"; $date_klein = "$mday. $months[$mon] $jahr"; if ($sec < 10) {$sec = "0$sec";} if ($min < 10) {$min = "0$min";} if ($hour < 10) {$hour = "0$hour";} $time = "$hour:$min:$sec Uhr"; } sub send_com { if ($open_com == 0) { unless ($FORM{'name'} or $FORM{'password'}) { ⊤ print ""; print "


"; print "Beitrag kommentieren.
\n"; print "
\n"; if ($FORM{'beitrag'}) {print "\n";} else {print "\n";} print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Name


Passwort


\n
\n
\n
\n
\n"; ⊥ } &zugang; } if ($open_com == 1) {⊤} print ""; print "


Kommentar zu einem Gästebucheintrag.
\n"; print "
\n"; print "\n"; if ($open_com == 1) {print "\n";} else {print "\n";} print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "
\n"; print "Name


eMail


Kommentar





\n"; ⊥ } sub top { print "\n\n$titel\n\n"; print "\n"; print ""; print "
\n\n
\n"; print "\n"; } sub bottom { print "

"; print ""; print "© Copyright by SPEICHERHOSTING \n"; print "2002
SPEICHERHOSTING Guestbook V1.0
\n\n"; print "\n\n"; exit; } sub print_com { $erst = "


\n"; $dann = "Bitte gehen Sie mit Ihren Back Button von Ihrem Browser zurück,\n"; if ($pflicht_com_name == 1) { unless ($FORM{'com_name'}) { ⊤ print ""; print $erst, "Sie haben vergessen das Namensfeld auszufüllen.


\n"; print $dann, "und füllen das Feld aus\n
\n\n\n"; exit; } } if ($pflicht_com_mail == 1) { unless ($FORM{'com_email'}) { ⊤ print ""; print $erst, "Sie haben vergessen Ihre eMail Adresse einzutragen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } unless ($FORM{'com_email'} =~ /.*\@.*\..*/) { ⊤ print ""; print $erst, "Sie haben eine ungültige eMail Adresse eingetragen.


\n"; print $dann, "und füllen das Feld richtig aus\n\n\n"; exit; } } elsif ($pflicht_com_mail == 0 and $FORM{'com_email'}) { unless ($FORM{'com_email'} =~ /.*\@.*\..*/) { ⊤ print ""; print $erst, "Sie haben eine ungültige eMail Adresse eingetragen.


\n"; print $dann, "und füllen das Feld richtig aus\n\n\n"; exit; } } if ($pflicht_com_com == 1) { unless ($FORM{'comment'}) { ⊤ print ""; print $erst, "Sie haben vergessen das Kommentarfeld auszufüllen.


\n"; print $dann, "und füllen das Feld aus\n\n\n"; exit; } } unless ($FORM{'com_name'}) {$FORM{'com_name'} = "Anonym";} unless ($FORM{'com_email'}) {$FORM{'com_email'} = "x";} unless ($FORM{'comment'}) {$FORM{'comment'} = "";} $FORM{'comment'} =~ s/\n/
/gs; $FORM{'comment'} =~ s/&&/und/gs; $FORM{'com_name'} =~ s/&&/und/gs; $FORM{'com_email'} =~ s/&&/und/gs; $FORM{'comment'} =~ s/§§/*/gs; $FORM{'com_name'} =~ s/§§/*/gs; $FORM{'com_email'} =~ s/§§/*/gs; open(LOG,"$data_log"); @NEU = ; close(LOG); open(FILE, "$data_log") || die "Kann die Datei nicht öffnen\n"; $i = 1; while() { chop; @all = split(/\n/); foreach $line (@all) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $line); if ($num == $FORM{'nummer'}) { $com_anzahl++; $NEU[$i] = "$num&&$name&&$email&&$url&&$nachricht&&$gif&&$date&&$ip&&$com_anzahl&&$comments§§comment$com_anzahl==$FORM{'com_name'}==$FORM{'com_email'}==$date_klein==$FORM{'comment'}\n"; $antwort_com_mail = $email; $antwort_com_nach = $nachricht; $antwort_com_name = $name; if (($email ne "x") and ($send_antwort_com == 1)) {&send_antwort;} } $i++; } } close(FILE); open(FILE, ">$data_log"); print FILE @NEU; close FILE; ⊤ print ""; print "


Vielen Dank, für den Kommentar.\n"; print "


Gästebuch ansehen\n
\n\n"; exit; } sub send_comment_loeschen { ⊤ print ""; print "


"; if ($string_wert1 eq "loeschen_comment") {print "Kommentar zu einem Gästebucheintrag löschen.
\n";} if ($string_wert1 eq "loeschen_beitrag") {print "Gästebucheintrag löschen.
\n";} print "
\n"; print "\n";} if ($string_wert1 eq "loeschen_beitrag") {print "beitrag_loeschen\">\n";} print "\n"; if ($string_wert1 eq "loeschen_comment") {print "\n";} print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Name


Passwort


\n
\n
\n
\n
\n"; ⊥ } sub zugang { my $mail_bad_usr = shift; ⊤ print ""; $br = "
\n" x 5; $kein_zugang = "$br\nZugang verweigert !!!"; unless ($FORM{'name'}) { print ""; print "$kein_zugang\n"; print "\n\n\n"; exit; } unless ($FORM{'password'}) { print ""; print "$kein_zugang\n"; print "\n\n\n"; exit; } if ($FORM{'name'} ne $user_name) { print ""; print "$kein_zugang\n"; print ""; if ($mail_bad_usr eq "ja") {&mail_bad_user;} print "\n\n\n"; exit; } if ($FORM{'password'} ne $user_pwd) { print ""; print "$kein_zugang\n"; if ($mail_bad_usr eq "ja") {&mail_bad_user;} print "\n\n\n"; exit; } } sub comment_loeschen { &zugang('ja'); open(LOG,"$data_log"); @NEU = ; close(LOG); open(FILE, "$data_log") || die "Kann die Datei nicht öffnen\n"; $i = 1; while() { chop; @all = split(/\n/); foreach $line (@all) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $line); if ($num == $FORM{'beitrag'}) { $k = 1; @comm = split(/§§/, $comments); while ($k <= $com_anzahl) { ($com_nr, $com_name, $com_email, $com_date, $com_comment) = split(/==/, $comm[$k]); if ($FORM{'comment'} eq "$com_nr") { $neu_com_anzahl = $com_anzahl - 1; $alles = "§§$com_nr==$com_name==$com_email==$com_date==$com_comment"; $zeile = $i; $erst = "$num&&$name&&$email&&$url&&$nachricht&&$gif&&$date&&$ip&&$com_anzahl&&"; $dann = "$num&&$name&&$email&&$url&&$nachricht&&$gif&&$date&&$ip&&$neu_com_anzahl&&"; print "


\nKommentar Nr. $k vom Beitrag Nr. $num gelöscht.
\n"; } $k++; } } $i++; } } close(FILE); $NEU[$zeile] =~ s/\Q$alles\E//gs; $NEU[$zeile] =~ s/\Q$erst\E/$dann/gs; open(FILE, ">$data_log"); print FILE @NEU; close FILE; print ""; print "

\n\n"; print "Zurück zum Gästebuch\n\n\n\n"; exit; } sub ip_anzeigen { open(FILE, "$data_log"); @FILE = ; close(FILE); ⊤ foreach $line (@FILE) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $line); if ($string_wert2 == $num) { ($datum, $zeit) = split(/=/, $date); print ""; print "


\n"; print "\n\n\n
Ip anzeigen vom Beitrag Nr.$num\n"; print "

IP : $ip\n"; print "
Datum : $datum\n"; print "
Uhrzeit : $zeit\n"; print "
\n\n\n"; } } exit; } sub beitrag_loeschen { &zugang('ja'); open(FILE, "$data_log"); @FILE = ; close(FILE); $i = 0; foreach $line (@FILE) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $line); if ($FORM{'beitrag'} == $num) { print "


\nBeitrag Nr. $num gelöscht!\n"; $loeschen = $line; $k = $i; } $i++; } $FILE[$k] =~ s/\Q$loeschen\E//gs; open(FILE, ">$data_log"); print FILE @FILE; close(FILE); &sortieren; print ""; print "

\nZurück\n"; print "zum Gästebuch\n\n"; exit; } sub sortieren { open(FILE, "$data_log"); $i = 0; while() {$i++;} close(FILE); open(FILE, "$data_log"); @FILE = ; close(FILE); $k = 0; foreach $line (@FILE) { if ($line) { ($num, $name, $email, $url, $nachricht, $gif, $date, $ip, $com_anzahl, $comments) = split(/&&/, $line); $num = $i; } $NEU[$k] = "$i&&$name&&$email&&$url&&$nachricht&&$gif&&$date&&$ip&&$com_anzahl&&$comments"; $i--; $k++; } $NEU[0] = "\n"; open(FILE, ">$data_log"); print FILE @NEU; close(FILE); print ""; print "


\n", $k - 1, " Beiträge neu geordnet.\n"; } sub send_beitrag { ⊤ print "


Einen neuen Gästebucheintrag hinzufügen.
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "
\n"; print "Name


URL zu Ihrer Homepage


eMail


Kommentar





\n"; ⊥ } print ""; print "Ein unerwarteter Fehler ist aufgetreten,
bitte klicken Sie hier drauf!"; sub sendmail { if ($back_email == 1) { if ($FORM{'email'} ne "x") {my $mail = $FORM{'email'};} else {my $mail = $send;} open(MAIL, "| /usr/sbin/sendmail -t -i -f otto\@heimatkreis-stargard.de") || die "I can't open Mail Program\n"; print MAIL "From: $FORM{'name'} <$mail>\n"; print MAIL "To: $send\n"; print MAIL "Subject: Neuer Gästebucheintrag!\n"; print MAIL "$mail_info_webmaster"; close(MAIL); } if ($usr_mail == 1) { if ($FORM{'email'} ne "x") { open (MAIL, "| $mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "From: $titel <$send>\n"; print MAIL "To: $FORM{'name'} <$FORM{'email'}>\n"; print MAIL "Subject: Danke für den Gästebucheintrag!\n"; print MAIL "$mail_antwort_user"; close(MAIL); } } } sub mail_bad_user { if ($mail_badus == 1) { open (MAIL, "| $mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "From: $titel <$send>\n"; print MAIL "To: Webmaster <$send>\n"; print MAIL "Subject: Unberechtigter Zugriff !\n"; print MAIL "Ein User hat versucht einen"; if ($FORM{'action'} eq "comment_loeschen") {print MAIL " Kommentar";} if ($FORM{'action'} eq "beitrag_loeschen") {print MAIL " Beitrag";} print MAIL " zu löschen.\n\n\n"; print MAIL "Datum : $gen_date\n"; print MAIL "Uhrzeit : $time\n"; print MAIL "IP Adresse des Users : $ENV{'REMOTE_ADDR'}\n\n"; print MAIL "Der User wollte sich mit der ID \"$FORM{'name'}\",\n"; print MAIL "und dem Passwort \"$FORM{'password'}\" einloggen, was nicht geschafft wurde.\n\n"; print MAIL "Der User hat es auf den"; if ($FORM{'action'} eq "comment_loeschen") {print MAIL " Kommentar Nr. $FORM{'comment'} im Beitrag Nr. $FORM{'beitrag'}";} if ($FORM{'action'} eq "beitrag_loeschen") {print MAIL " Beitrag Nr. $FORM{'beitrag'}";} print MAIL " abgesehen.\n\nVielen Dank, daß Sie dieses Gästebuch benutzen.\n\n"; close(MAIL); } } sub send_antwort { open (MAIL, "| $mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "From: $titel <$send>\n"; print MAIL "To: $antwort_com_name <$antwort_com_mail>\n"; print MAIL "Subject: Kommentar zu Ihren Gästebucheintrag!\n"; print MAIL "


\n"; print MAIL "\n\n\n
Ip anzeigen vom Beitrag Nr.$num\n"; print MAIL "

IP : $ip\n"; print MAIL "
Datum : $datum\n"; print MAIL "
Uhrzeit : $zeit\n"; print MAIL "
\n\n\n"; print MAIL "Hallo $antwort_com_name,\n\n"; print MAIL "$FORM{'com_name'} hat zu Ihren Gästebucheintrag einen Kommentar abgeschickt.\n\n"; print MAIL "Ihr Beitrag lautete:\n$antwort_com_nach\n\n"; print MAIL "$FORM{'com_name'} antwortete darauf:\n$FORM{'comment'}\n\n\n"; print MAIL "Hier können Sie es nochmal nachlesen: $url_guestbook\n\n"; print MAIL "Mit freundlichen Grüssen\n$titel\n"; close(MAIL); }