bin/mozilla/kopf.pl

   1 #!/usr/bin/perl
   2 #
   3
   4 $| = 1;
   5
   6 use CGI::Carp qw(fatalsToBrowser);
   7
   8 $form->header;
   9 $paramstring = $ENV{"QUERY_STRING"};
  10 @felder = split "&", $paramstring;
  11 foreach (@felder) {
  12   ($name, $wert) = split "=", $_;
  13   $wert =~ tr/+/ /;
  14   $$name = $wert;
  15 }
  16 $login =
  17     "[" . $login
  18   . " - <a href=\"login.pl?path="
  19   . $form->{"path"}
  20   . "&password="
  21   . $form->{"password"}
  22   . "&action=logout\" target=\"_top\">"
  23   . $locale->text('Logout')
  24   . "</a>] ";
  25 my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,
  26     $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)
  27   = localtime(time);
  28 my $CTIME_String = localtime(time);
  29 $Monat     += 1;
  30 $Jahrestag += 1;
  31 $Monat     = $Monat < 10     ? $Monat     = "0" . $Monat     : $Monat;
  32 $Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
  33 $Jahr += 1900;
  34 my @Wochentage = ("Sonntag",    "Montag",  "Dienstag", "Mittwoch",
  35                   "Donnerstag", "Freitag", "Samstag");
  36 my @Monatsnamen = ("",       "Januar",    "Februar", "M&auml;rz",
  37                    "April",  "Mai",       "Juni",    "Juli",
  38                    "August", "September", "Oktober", "November",
  39                    "Dezember");
  40 $datum =
  41     $Wochentage[$Wochentag] . ", der "
  42   . $Monatstag . "."
  43   . $Monat . "."
  44   . $Jahr . " - ";
  45
  46 #$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";
  47 $zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";
  48
  49 print qq|
  50 <script type="text/javascript">
  51 <!--
  52 var clockid=new Array()
  53 var clockidoutside=new Array()
  54 var i_clock=-1
  55 var thistime= new Date()
  56 var hours= | . $Stunden . qq|;
  57 var minutes= | . $Minuten . qq|;
  58 var seconds= | . $Sekunden . qq|;
  59 if (eval(hours) <10) {hours="0"+hours}
  60 if (eval(minutes) < 10) {minutes="0"+minutes}
  61 if (seconds < 10) {seconds="0"+seconds}
  62 //var thistime = hours+":"+minutes+":"+seconds
  63 var thistime = hours+":"+minutes
  64
  65 function writeclock() {
  66         i_clock++
  67         if (document.all \|\| document.getElementById \|\| document.layers) {
  68                 clockid[i_clock]="clock"+i_clock
  69                 document.write("<font family=arial size=2><span id='"+clockid[i_clock]+"' style='position:relative'>"+thistime+"</span></font>")
  70         }
  71 }
  72
  73 function clockon() {
  74         thistime= new Date()
  75         hours=thistime.getHours()
  76         minutes=thistime.getMinutes()
  77         seconds=thistime.getSeconds()
  78         if (eval(hours) <10) {hours="0"+hours}
  79         if (eval(minutes) < 10) {minutes="0"+minutes}
  80         if (seconds < 10) {seconds="0"+seconds}
  81         //thistime = hours+":"+minutes+":"+seconds
  82         thistime = hours+":"+minutes
  83
  84         if (document.all) {
  85                 for (i=0;i<=clockid.length-1;i++) {
  86                         var thisclock=eval(clockid[i])
  87                         thisclock.innerHTML=thistime
  88                 }
  89         }
  90
  91         if (document.getElementById) {
  92                 for (i=0;i<=clockid.length-1;i++) {
  93                         document.getElementById(clockid[i]).innerHTML=thistime
  94                 }
  95         }
  96         var timer=setTimeout("clockon()",60000)
  97 }
  98 window.onload=clockon
  99 //-->
 100 </script>
 101 |;
 102
 103 #
 104 print qq|
 105 <body bgcolor="#ffffff" text="#ffffff" link="#ffffff" vlink="#ffffff" alink="#ffffff" topmargin="0" leftmargin="0"  marginwidth="0" marginheight="0">
 106
 107 <table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
 108         <tr>
 109                 <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>|
 110   . $login
 111   . $datum
 112   . qq| <script>writeclock()</script>&nbsp;
 113                 </td>
 114         </tr>
 115 </table>
 116 </body>
 117 </html>
 118 |;
 119
 120 #