#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my $datum;
my $uhrzeit;

sub gbinschreiben {
    open(GBEINTR, "> gbookin.txt") or die "Kann gbookin.txt nicht öffnen: $!";
    my $feldname = $cgi->param('vname');
    my $feldemail = $cgi->param('email');
    my $feldhp = $cgi->param('homepage');
    my $feldsonst = $cgi->param('sonstiges');
    print GBEINTR ('<b><div><table border="1" cellpadding="5" cellspacing="0" width="75%" style="margin-left:auto; margin-right:auto;">',"\n");
    print GBEINTR ('<tr><td><span style="float:left"><span style="color:white; font-size:1.2em">' ,$feldname,
               
 '</span><span style="font-size:0.8em"> schrieb am ' ,$datum, " um " ,$uhrzeit);
    if ($feldemail =~ /leer/) {
        $feldemail = 1;
    } else {
        print GBEINTR ("\n",'<br>E-Mail: ' ,$feldemail, ' ');
    }
    if ($feldhp =~ /leer/) {
        $feldhp = 1;
    } else {
        print GBEINTR ("\n",'<br>Homepage: ' ,$feldhp, ' ');
    }
    print GBEINTR ('</span></span></td></tr>',"\n",'<tr><td><span style="float:left">' ,$feldsonst, '</span></td></tr></table></div></b><br>',"\n\n");
    open(GBAUSL, "< gbookausl.txt") or die "Kann gbookausl.txt nicht öffnen: $!";
    foreach my $lineausl (<GBAUSL>) {
        print GBEINTR $lineausl;
    }
    close GBAUSL;
    close GBEINTR;
    open(GBAUSL, "> gbookausl.txt") or die "Kann gbookausl.txt nicht öffnen: $!";
    open(GBEINTR, "< gbookin.txt") or die "Kann gbookin.txt nicht öffnen: $!";
    foreach my $linecopy (<GBEINTR>) {
        print GBAUSL $linecopy;
    }
    close GBEINTR;
    close GBAUSL;
}

sub zeitrechnung {
    my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
        $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
    $Monat+=1;
    $Jahrestag+=1;
    $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
    $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
    $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
    $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
    $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
    $Jahr+=1900;
    my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
    my @Monatsnamen = ("","Januar","Februar","M&auml;rz","April","Mai","Juni",
            "Juli","August","September","Oktober","November","Dezember");
    $datum = "$Wochentage[$Wochentag], den $Monatstag. $Monatsnamen[$Monat] $Jahr";
    $uhrzeit = "$Stunden.$Minuten Uhr";
}

sub gbookschreiben {
    open(INFILE,   "  gbookin.txt")   or die "Kann gbookin.txt nicht öffnen: $!";
    open(GBOOKFILE,"  gaestebuch_default.txt") or die "Kann gaestebuch_default.txt nicht öffnen: $!";
    my $gline;
    for (my $h=0; $h<15;$h++) {
        $gline = <GBOOKFILE>;
        print $gline;
    }
    foreach my $line (<INFILE>) {
        print $line;
    }
    for (my $h=15; $h<47;$h++) {
        $gline = <GBOOKFILE>;
        print $gline;
    }
    close INFILE;
    close GBOOKFILE;
}

print "Content-Type: text/html; charset=ISO-8859-1\n\n";
zeitrechnung;
gbinschreiben;
gbookschreiben;

print GBEINTR ('<b><div><table border="1" cellpadding="5" cellspacing="0" width="75%" style="margin-left:auto; margin-right:auto;">',"\n");

my $beitrag = 'ich bin ein <script>alert("gefaehrlicher")</script> beitrag!';
$beitrag =~ s!<!&lt;!g;
$beitrag =~ s!>!&gt;!g;