X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/72539cb39a3d19f930a8e0e41e46bf41afe9a8f1..b11e580342078c2b1537ccfb714f0b27ae044a0f:/bin/mozilla/kopf.pl
diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl
index 23dfa2a9d..0228566ae 100644
--- a/bin/mozilla/kopf.pl
+++ b/bin/mozilla/kopf.pl
@@ -1,118 +1,23 @@
#!/usr/bin/perl
-#
-
-$| = 1;
-
-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 . "
";
+use strict;
+use DateTime;
-print qq|
-
-|;
-
-#
-print qq|
-
-
-
- | |
- . $login . $datum . qq|
- |
-
-
-
-