#!/usr/bin/perl
#
use CGI::Carp 'fatalsToBrowser';
(...)
# Benutzername zum Einträge löschen und Kommentare verfassen
$user_name	= "root";

# Userpasswort zum Einträge löschen und Kommentare verfassen
$user_pwd	= "root";

# Hier kann man den Namen des Gästebuchscripts eintragen.
# Einige Provider laasen nur Scripte mit bestimmten Endungen zu,
# welche man hier ändern kann.
$scriptname = "guestbook.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';

# Deine eMail Adresse # Den \ vor dem @ nicht vergessen
$send		= "root\@localhost";

# URL zum Image Verzeichniss
$url_image  = "../icons/image/";

# URL zum Gästebuch
$url_guestbook = "../cgi-bin/guestbook.cgi";
(...)
# URL für Link zurück
$link_hp	= "http://www.cheyennex.de/gb/gb2x.shtml";
(...)
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";

&date;

(...)

sub anzeigen {
	open(FILE, "$data_log");
	$i = 0;
	while(<FILE>) {$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 = <FILE>;
	close(FILE);
	&top;
(...)