X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=0228566aeccc575867e5a646f2898ea5f4c04b24;hb=18166576c2ebbeb777700de5f290ac3af23a00fd;hp=9b2e1a636d02a3549a110d38830ca413adecefee;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git
diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl
index 9b2e1a636..0228566ae 100644
--- a/bin/mozilla/kopf.pl
+++ b/bin/mozilla/kopf.pl
@@ -1,96 +1,23 @@
#!/usr/bin/perl
-#
-$| = 1;
+use strict;
+use DateTime;
-use CGI::Carp qw(fatalsToBrowser);
-
-$form->header;
-$paramstring = $ENV{"QUERY_STRING"};
-@felder = split "&", $paramstring;
-foreach (@felder) {
- ($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 $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." - ";
-#$zeit="".$Stunden.":".$Minuten.":".$Sekunden."
";
-$zeit="".$Stunden.":".$Minuten."
";
+sub run {
+ my $session_result = shift;
-print qq|
-
-|;
-#
-print qq|
-
+1;
-
-
- | |.$login.$datum.qq|
- |
-
-
-
-