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