X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dc50b737f80c8bd09ac2fbbfa2cc06a04e9d8753..3e8a8c572aa73c522df8c916d799cb30be276925:/bin/mozilla/kopf.pl diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 1b72e46b1..0228566ae 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -1,131 +1,21 @@ #!/usr/bin/perl -# - -#$| = 1; - -#use CGI::Carp qw(fatalsToBrowser); use strict; +use DateTime; sub run { my $session_result = shift; -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| - - - - - - - -

- [| . $locale->text('Print') . qq|] - [| . $locale->text('New Win/Tab') . qq|] - [| . $locale->text('Back') . qq|] - -

| - . $login . $datum . qq| -

- - -|; + %::myconfig = $::auth->read_user($::form->{login}) if $::form->{login}; + $::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode}; + $::form->header; + print $::form->parse_html_template('menu/header', { + now => DateTime->now, + show_debug => $::lx_office_conf{debug}{show_debug_menu}, + lxdebug => $::lxdebug, + is_links => ($ENV{HTTP_USER_AGENT} =~ /links/i), + }); } 1;