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