#!/usr/bin/perl
#
#$| = 1;
#use CGI::Carp qw(fatalsToBrowser);
use strict;
sub run {
my $session_result = shift;
%::myconfig = $::auth->read_user($::form->{login}) if $::form->{login};
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
my $form = $main::form;
my $locale = $main::locale;
$form->header;
my $paramstring = $ENV{"QUERY_STRING"};
my @felder = split "&", $paramstring;
my ($name, $wert);
foreach (@felder) {
($name, $wert) = split "=", $_;
$wert =~ tr/+/ /;
$name = $wert;
}
my $login =
"[" . $form->{login}
. " - "
. $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");
my $datum =
$Wochentage[$Wochentag] . ", der "
. $Monatstag . "."
. $Monat . "."
. $Jahr . " - ";
#$zeit="".$Stunden.":".$Minuten.":".$Sekunden."
";
my $zeit = "" . $Stunden . ":" . $Minuten . "
";
print qq|
|;
#
print qq|