#!/usr/bin/perl
#
$| = 1;
use CGI::Carp qw(fatalsToBrowser);
$form->header;
$paramstring = $ENV{"QUERY_STRING"};
@felder = split "&", $paramstring;
foreach (@felder) {
($name, $wert) = split "=", $_;
$wert =~ tr/+/ /;
$$name = $wert;
}
$login="[".$login." - {"path"} . "&password=" . $form->{"password"} . "&action=logout\" target=\"_top\">" . $locale->text('Logout') . "] ";
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $CTIME_String = localtime(time);
$Monat+=1;
$Jahrestag+=1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Jahr+=1900;
my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
$datum=$Wochentage[$Wochentag].", der ".$Monatstag.".".$Monat.".".$Jahr." - ";
#$zeit="".$Stunden.":".$Minuten.":".$Sekunden."
";
$zeit="".$Stunden.":".$Minuten."
";
print qq|
|;
#
print qq|