X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fkopf.pl;h=0228566aeccc575867e5a646f2898ea5f4c04b24;hb=18166576c2ebbeb777700de5f290ac3af23a00fd;hp=ac3935dd4c192895049bc438b059863111e978c9;hpb=6cf3f7762efd40bee49a2b8f11bb4ab6915d9071;p=kivitendo-erp.git
diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl
index ac3935dd4..0228566ae 100644
--- a/bin/mozilla/kopf.pl
+++ b/bin/mozilla/kopf.pl
@@ -1,148 +1,21 @@
#!/usr/bin/perl
-#
-
-#$| = 1;
-
-#use CGI::Carp qw(fatalsToBrowser);
use strict;
+use DateTime;
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 =
- "". $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");
-my $datum =
- $Wochentage[$Wochentag] . ", der "
- . $Monatstag . "."
- . $Monat . "."
- . $Jahr . " - ";
-
-#$zeit="".$Stunden.":".$Minuten.":".$Sekunden."
";
-my $zeit = "" . $Stunden . ":" . $Minuten . "
";
-
-print qq|
-
-|;
-
-#
-my $framesize = _calc_framesize(); # framesize calculation as in menu.pl is only a quick and dirty hack here
- # it would be better to use a global or config variable
-
-print qq|
-
-
-
-
-