Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Info: EOM # Hier wird der die Anzahl der Einträge angezeigt (deshab gesplittet) my $Header2 = <<"EOM";

Dein Name: Deine Email: Deine Homepage: Dein Kommentar:

EOM #Header HTML des Admin Bereichs my $a_header = <<"EOM";

Administration des Guestbooks:

---

EOM #Footer HTML des Admin Bereiches my $a_footer = <<"EOM";

---

EOM # Sie habens geschafft ######################################################################################### # Passwortabfrage HTML des Admin Bereiches my $a_passwort = <<"EOM"; Bitte geben Sie das Passwort ein:

EOM # Proccessing Unit ############################################################################################################# if ($ENV{REQUEST_METHOD} eq "GET") { $buffer = $ENV{QUERY_STRING}; } else { read(STDIN, $buffer, $ENV {CONTENT_LENGTH}); } @nvpairs = split(/&/,$buffer); foreach $pair (@nvpairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } print "Content-type: text/html \n\n"; # Soll die Systemzeit uebergeben werden oder die Gepostete Zeit ? if ($in{year} ne "") { $year=$in{year}; $month=$in{month}; $mday=$in{mday}; $hour=$in{hour}; $min=$in{min}; $sec=$in{sec}; } else { $time = time; ($mday,$month,$year,$hour,$min,$sec) = (localtime($time))[3,4,5,2,1,0]; $month = $month+1; $year = $year+1900; if ($month < 10){$month = "0$month"}; if ($mday < 10){$mday = "0$mday"}; if ($sec < 10) {$sec = "0$sec"}; if ($min < 10) {$min = "0$min"}; if ($hour < 10){$hour = "0$hour"}; } $ausgabe = "$year$month$mday$hour$min$sec|$in{author}|$in{email}|$in{content}|$in{url}"; $ausgabe =~ s/\n/³/g; $ausgabe =~ s/&/&/g; $ausgabe =~ s/>/g; $ausgabe =~ s/"; if ($a > $l){print "<< Vorige Seite";}else{ print " Vorige Seite";}; print "   "; if ($a+$l-11 <= $l){print " Nächste Seite >>";}else{ print " Nächste Seite";}; print "

---

"; $z=$z+1; open (DATA,$datainame); @data = ; close (DATA); foreach $line (@data) { $line =~ s/\n//g; $line =~ s/³/
/g; $line =~ s/&/&/g; $line =~ s/>/g; $line =~ s/ $a-11){if ($z < $a){ print "";};};}; print "

$z	Datum: $jahr-$monat-$tag $stunden:$minuten:$sekunden "; print "$author ("; if ($email eq ""){print "keine E-mail";}else{ print "$email ";}; print " / "; if ($url ne "http://") {print "$url";}else {print " keine Homepage ";}; print ") schrieb: $content

"; print "

---

"; if ($a > $l){print "<< Vorige Seite ";}else{ print " << Vorige Seite";}; print "   "; if ($a+$l-11 <= $l){print " Nächste Seite >>

";}else{ print " Naechste Seite >>

";}; sub AddEntry { local($Entry) = @_; $check = 0; open (DATA,$datainame); @data = ; close (DATA); open (DATA,">$datainame"); foreach $line (@data) { if ($line > $Entry) { print DATA "$line"; } else { if ($check == 0) { print DATA "$Entry"; print DATA "$line"; $check = 1; } else { print DATA "$line"; } } } if ($check == 0) { print DATA "$Entry"; } close (DATA); }; sub zahler{ open (DATA,$datainame); @data = ; close (DATA); foreach $line (@data) { $line =~ s/\n//g; $line =~ s/&/&/g; $line =~ s/>/g; $line =~ s/"; print $a_passwort; print $a_footer; } } else { print $a_header; print $a_passwort; print $a_footer; } } sub admin # Der Admin Bereich { print $a_header; print ""; if ($z==0) { print "
Keine Datensaetze vorhanden !!!
"; } else { if ($a > $l){print "<< Vorige Seite ";}else{ print " << Vorige Seite";}; print "   "; if ($a+$l-11 <= $l){print " Naechste Seite >>";}else{ print " Naechste Seite >>";}; } print "


"; $z=$z+1; open (DATA,$datainame); @data = ; close (DATA); foreach $line (@data) { $line =~ s/\n//g; $line =~ s/³/
/g; $line =~ s/&/&/g; $line =~ s/>/g; $line =~ s/ $a-11) {if ($z < $a){ print ""; print ""; print ""; } } }; print "

$z

Datum: $jahr-$monat-$tag $stunden:$minuten:$sekunden "; print "$author ("; if ($email eq ""){print "keine E-mail";}else{ print "$email ";}; print " / "; if ($url ne "http://") {print "$url";}else {print " keine Homepage "}; print ") schrieb: $content

"; print " "; print ""; print ""; print ""; print ""; print " "; print "

"; print $a_footer; } sub edit # Hier werden die Datensaetze Ediert { if ($in{author} eq "") { print $a_header; open (DATA,$datainame); @data = ; close (DATA); foreach $line (@data) { $line =~ s/\n//g; $line =~ s/³//g; $line =~ s/&/&/g; $line =~ s/>/g; $line =~ s/

"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "Eintrag Nr: $z"; print ""; print "

Name:	Email:
	"; print "
Homepage:
"; print "
Kommentar: $content"; print "
"; print "

"; print $a_footer; }; $z=$z - 1; }; } else { local($Entry) = @_; open (DATA,$datainame); @data = ; close (DATA); open (DATA,">$datainame"); foreach $line (@data) { if ($z eq $in{number}) { print DATA "$Entry"; } else { print DATA "$line"; } $z=$z-1; } close (DATA); &zahler; goto &admin; } } sub del # Hier werden Die Datensaetze geloescht { local($Entry) = @_; open (DATA,$datainame); @data = ; close (DATA); open (DATA,">$datainame"); foreach $line (@data) { if ($z eq $in{number}) { } else { print DATA "$line"; } $z=$z-1; } close (DATA); &zahler; goto &admin; } Über eine Antwort würde ich mich sehr freuen. Gruß Udo