#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use vars '@form_data', '$gb_jahr', '@zeilen', '@zeile';
use strict;

require "../cgi-bin/cgi-lib.pl";
require "../cgi-bin/mun-lib.pl";
&ReadParse(@form_data);

if ($form_data[0] eq "")
{
     $form_data[0] = "$gb_jahr";
}

$gb_jahr = "gstbk_$form_data[0].csv";

open (FILE,$gb_jahr) || die "Can't Open File: $!\n";
while(<FILE>)
    {
        chop ($_);
        push (@zeilen, $_);
    }
close(FILE);

&html_header;


print "\t<TABLE WIDTH=\"100%\" CELLPADDING=\"10\" CELLSPACING=\"2\"> \n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD WIDTH=\"100\" ALIGN=\"LEFT\" VALIGN=\"MIDDLE\">"
    ."<A HREF=\"eguestbk.htm\"><IMG SRC=\"signbook.gif\" alt='Im Gastebuh eintragen...\'
    . WIDTH=\"40\" HEIGHT=\"40\" BORDER=\"0\" ALIGN=\"LEFT\"></A></TD>\n"
    ."\t\t\t<TD ALIGN=\"CENTER\">"
    ."<IMG SRC=\"gaestebuch.gif\"BORDER=\"0\" WIDTH=\"166\" HEIGHT=\"33\"></TD>\n"
    ."\t\t\t<TD>&nbsp;</TD>\n"
    ."\t\t</TR>\n"
    ."\t</TABLE>\n"
    ."\t<TABLE WIDTH=\"100%\" CELLPADDING=\"10\" CELLSPACING=\"2\" ALIGN=\"CENTER\">\n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD><A HREF=\"bguestbk_98.htm\" TARGET=\"text\">"
    ."<FONT SIZE=\"+1\"><B>1998</B></FONT></A></TD>\n"
    ."\t\t\t<TD><A HREF=\"bguestbk_99.htm\" TARGET=\"text\">"
    ."<FONT SIZE=\"+1\"><B>1999</B></FONT></A></TD>\n";
if ($form_data[0] eq "00")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2000</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?00\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2000</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "01")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2001</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?01\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2001</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "02")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2002</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?02\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2002</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "03")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2003</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?03\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2003</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "04")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2004</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?04\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2004</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "05")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2005</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?05\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2005</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "06")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2006</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?06\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2006</B></FONT></A></TD>\n";
    }
print "\t\t</TR>\n" 
    ."\t</TABLE>\n"
    ."\t<TABLE>\n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
    ."\t\t\t<TD>\n";
for (@zeilen)
    {
        @zeile = split(/#/,$_);
        print "\t\t\t\t<B>$zeile[1]</B><BR>\n"
            ."\t\t\t\t$zeile[2] < <A HREF=\"mailto:$zeile[3]\">$zeile[3]</A> ><BR>\n"
            ."\t\t\t\t$zeile[4] - $zeile[5] -<BR>&nbsp;<BR>\n"
            ."\t\t\t</TD>\n"
            ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
            ."\t\t</TR>\n"
            ."\t\t<TR>\n"
            ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
            ."\t\t\t<TD>\n";
    }
print "\t\t\t</TD>\n"
    ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
    ."\t\t</TR>\n"
    ."\t</TABLE>\n"
    ."\t</BODY>\n"
    ."</HTML>";