#!/usr/bin/perl require "pfade.pl"; $pfad=&pfadcgi; $pfadw=&pfadhtm; $pfadg=&pfadhtmg; require "vorlagen.pl"; %jede=&jede; &zaehler('guest'); $kette=&einlesen; %uebergabe=&aufbereiten($kette); $papst=&papst; @cabelle=&dateitabelle("guescontrol.dat"); if($uebergabe{'gues'} eq "") { @tabelle=&dateitabelle('guest.dat'); } else { %ceile=&aufbereiten($cabelle[$uebergabe{'gues'}]); @tabelle=&dateitabelle($ceile{'file'}); } @tabelle=reverse(@tabelle); print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "$jede{'titel'}\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " Gästebuch\n"; print "

"; print "

\n"; print "\n"; print "\n"; $zeit=time(); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Name: 
Password: 
e-mail: 
Homepage: 
ICQ: 
Bsoffene Moschtkepf: \n"; print "\n"; print "    \n"; print "    \n"; print "    \n"; print "
Massage: 
\n"; print "

\n"; print "\n"; $z=0; while($z<@tabelle) { $zz=@tabelle-$z-1; %zeile=&aufbereiten($tabelle[$z]); $zeile{'name'}=&schluessel($zeile{'name'}); $zeile{'email'}=&schluessel($zeile{'email'}); $zeile{'home'}=&schluessel($zeile{'home'}); $br="
"; $zeile{'massage'} =~ s/\%0[Dd]\%0[Aa]/$br/ge; $zeile{'massage'}=&schluessel($zeile{'massage'}); $zeile{'date'}=&datum($zeile{'date'}); print "\n"; if ($zeile{'icq'} ne "" || $zeile{'home'} ne "" || $zeile{'email'} ne "" || $zeile{'most'} ne "") { print "\n"; print "\n"; $was=""; if ($zeile{'email'} ne "") {$was="e-mail:";} $wer=" "; if ($zeile{'email'} ne "") {$wer="$zeile{'email'}";} print "\n"; print "\n"; print "\n"; print "\n"; $was=""; if ($zeile{'home'} ne "") {$was="Homepage:";} $wer=" "; if ($zeile{'home'} ne "") {$wer="$zeile{'home'}";} print "\n"; print "\n"; print "\n"; print "\n"; $was=""; if ($zeile{'icq'} ne "") {$was="ICQ:";} print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $z++; } print "
\n"; print "
$zeile{'name'}$zeile{'date'}
\n"; print "
\n"; if ($zeile{'most'} ne "") {print "\n";} else {print " ";} print "$was $wer
$was $wer
$was \n"; if ($zeile{'icq'} ne "" && substr($pfad,7,3) ne "loc") {print "  $zeile{'icq'}";} else {print " ";} print "
$zeile{'massage'}
 "; if ($uebergabe{'intern'} eq "ja" && $papst eq "ja") { if($uebergabe{'gues'} eq "") { print "ändern"; print "     "; print "löschen"; } } print "
\n"; if($uebergabe{'gues'} ne "") { $uebergabe{'gues'}=""; $setzen = ""; while (@array=each(%uebergabe)) { $setzen="$setzen&$array[0]=$array[1]"; } $setzen=substr($setzen,1,length($setzen)-1); $czz=$cz+1; print "

Gästebuch orginal
\n"; } $cz=0; foreach $sau (@cabelle) { $uebergabe{'gues'}=$cz; $setzen = ""; while (@array=each(%uebergabe)) { $setzen="$setzen&$array[0]=$array[1]"; } $setzen=substr($setzen,1,length($setzen)-1); $czz=$cz+1; print "
Gästebuch Archiv $czz
\n"; $cz++; } print "

\n"; print "
$jede{'email'}
\n"; print "\n"; print "\n";