X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=ed11e522be1af6b8b712a8ee2308d6e885f04631;hb=ce498a747292baeaf103118b5073061196d981e4;hp=9b2e1a636d02a3549a110d38830ca413adecefee;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 9b2e1a636..ed11e522b 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -1,31 +1,57 @@ #!/usr/bin/perl # -$| = 1; +#$| = 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; -use CGI::Carp qw(fatalsToBrowser); - $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) = 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 $login = + "". $locale->text('User') . ": " . $form->{login} + . " [text('Logout now') . "\">" + . $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." - "; +$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."
"; -$zeit="
".$Stunden.":".$Minuten."
"; +my $zeit = "
" . $Stunden . ":" . $Minuten . "
"; print qq| |; -# -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| + +
|.$login.$datum.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; + #