#!/usr/bin/perl
#
local $data=$ENV{'QUERY_STRING'};
@param=split(/=/,$data);
print "Content-type: text/html\n\n";
print "\n";
print "Gästebuch der ";
print "I.G. Hospitalis
\n";
print "![](\"Linie.gif\")
\n";
print "Neuen Eintrag erstellen
\n";
opendir(gb_dir,"gb");
local @gb_dat_tmp=readdir(gb_dir);
local $last_dat= -1;
local @gb_dat;
for (@gb_dat_tmp)
{
if ($_ =~ /,/)
{
push (@gb_dat, $_);
$last_dat++;
}
}
@gb_dat=sort(@gb_dat);
#for (@gb_dat)
local $max=$param[1];
if ($max < 1)
{
$max = $last_dat;
}
local $min=$max-20;
local $i=$max;
while (($i > $min) and ($i >= 0))
{
open (eintrag, ";
close eintrag;
local @name= split(/,/,$gb_dat[$i]);
local $name= $name[1];
($dz_sec,$dz_min,$dz_std,$dz_tag,$dz_mon,$dz_jahr) = (localtime($name[0]+3600*$zeitzone))[0,1,2,3,4,5,6];
$dz_mon =$dz_mon+1;
$dz_jahr =$dz_jahr+1900;
if ($dz_sec < 10) { $dz_sec = "0".$dz_sec; }
if ($dz_min < 10) { $dz_min = "0".$dz_min; }
if ($dz_std < 10) { $dz_std = "0".$dz_std; }
if ($dz_tag < 10) { $dz_tag = "0".$dz_tag; }
if ($dz_mon < 10) { $dz_mon = "0".$dz_mon; }
$dz_zeit = "$dz_std:$dz_min";
print "\n| \nEintrag von ";
if ($text[0] =~ /@/)
{
print "",$name,"\n";
}
else
{
print $name;
}
print " | \n",$dz_tag,".",$dz_mon,".",$dz_jahr," um ",$dz_std,":",$dz_min, " \n";
print " |
\n\n";
local $j=0;
for (@text)
{
if ($j > 0)
{
print $_,"
";
}
$j++;
}
print " |
\n
\n";
print "
\n";
$i--;
}
print "
\n";
print "";