X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=ed11e522be1af6b8b712a8ee2308d6e885f04631;hb=97c8f14b3fea88e6b482919d944cb8e6461bc451;hp=23dfa2a9da52d70f7fdc4cb6d6b80ac6298ad0de;hpb=081a4f9736f3bc345872be8f61632cbed4a8d9b3;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 23dfa2a9d..ed11e522b 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -1,25 +1,32 @@ #!/usr/bin/perl # -$| = 1; +#$| = 1; -use CGI::Carp qw(fatalsToBrowser); +#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; -$paramstring = $ENV{"QUERY_STRING"}; -@felder = split "&", $paramstring; +my $paramstring = $ENV{"QUERY_STRING"}; +my @felder = split "&", $paramstring; +my ($name, $wert); foreach (@felder) { ($name, $wert) = split "=", $_; $wert =~ tr/+/ /; - $$name = $wert; + $name = $wert; } -$login = - "[" . $login - . " - {"path"} - . "&password=" - . $form->{"password"} - . "&action=logout\" target=\"_top\">" +my $login = + "". $locale->text('User') . ": " . $form->{login} + . " [text('Logout now') . "\">" . $locale->text('Logout') . "] "; my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, @@ -37,14 +44,14 @@ my @Monatsnamen = ("", "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"); -$datum = +my $datum = $Wochentage[$Wochentag] . ", der " . $Monatstag . "." . $Monat . "." . $Jahr . " - "; #$zeit="
".$Stunden.":".$Minuten.":".$Sekunden."
"; -$zeit = "
" . $Stunden . ":" . $Minuten . "
"; +my $zeit = "
" . $Stunden . ":" . $Minuten . "
"; print qq| |; -# print qq| - - + + - - |; + if ( !($ENV{HTTP_USER_AGENT} =~ /links/i) ) { # do not show the the links in case of "links" in HTTP_USER_AGENT + print qq| + |; + } + print qq| + - + +
| +
+ [| . $locale->text('Menu') . qq|] +  [| . $locale->text('New Win/Tab') . qq|] +  [| . $locale->text('Print') . qq|] +  [| . $locale->text('Back') . qq|] +  [| . $locale->text('Fwd') . qq|] + | . $login . $datum . qq|   -
|; +} + +1; #