#!/opt/bin/perl 

print "Content-type: text/html\n\n";

&get_defs;
&header;
&get_comments;
&tailer;


########################################################################
sub get_defs
{
 $template_head   = "/export/vol1/webdoc/www.kultzwerg.de/forum/templates/buch_head.htm";
 $template_tail   = "/export/vol1/webdoc/www.kultzwerg.de/forum/templates/buch_tail.htm";
 $template_fehler = "/export/vol1/webdoc/www.kultzwerg.de/forum/templates/buch_fehler.htm";
 $guestbookfile   = "/export/vol1/webdoc/www.kultzwerg.de/forum/templates/eintraege.txt";
}


########################################################################
sub header
{
 undef $/;
 open (READ, "$template_head") || die "&error";
 $page_head = <READ>;
 close (READ);
 $page_head =~ s/##image_path##/$image_path/g;
 $page_head =~ s/##doc_path##/$doc_path/g;
 print $page_head;
}


########################################################################
sub get_comments
{
 undef $/;
 open (READ, "$guestbookfile") || die "&error";
 $page_comments = <READ>;
 close (READ);
 print $page_comments;
}


########################################################################
sub tailer
{
 undef $/;
 open (READ, "$template_tail") || die "&error";
 $page_tail = <READ>;
 close (READ);
 $page_tail =~ s/##image_path##/$image_path/g;
 $page_tail =~ s/##doc_path##/$doc_path/g;
 print $page_tail;
}


########################################################################
sub error
{
 undef $/;
 open (READ, "$template_fehler");
 $page_fehler = <READ>;
 close (READ);
 $page_fehler =~ s/##image_path##/$image_path/g;
 $page_fehler =~ s/##doc_path##/$doc_path/g;
 print $page_fehler;
 exit;
}


