kueste.de $datum

#!/usr/local/bin/perl # # Lokale Zeitausgabe mit Korrekturfaktor # Sonnenauf- Untergangszeiten Mondauf- Untergangszeiten # by Peter Rohde (webmaster@kueste.de) # 29.6.99 # &datum(); $mainlog = "../log/ticker.log"; open (MAINLOG, ">>$mainlog"); print MAINLOG "Zeit: $datum "; print MAINLOG "Host: $ENV{'REMOTE_HOST'} "; print MAINLOG "With: $ENV{'HTTP_USER_AGENT'}\n"; close (MAINLOG); $liste = '../test1.dat' ; if ($minute < 02) { $liste = '../test2.dat' ; } open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; $wdate=$RX[0]; $wzeit=$RX[1]; $wdruck=$RX[2]; $wltemp=$RX[3]; $wuv=$RX[4]; $wwind=$RX[5]; $wrichtung=$RX[6]; $wfeuchte=$RX[7]; $wwasser=$RX[8]; $wtext=$RX[9]; $liste = 'solar.dat' ; open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; $ti =$stunde*60+$minute; $m = $zeit[4]+1; for ($k=0;$k<=(int($SIZE));$k++) { if ($RX[$k] eq "$tag.$m" ) { $md=$RX[$k+1]; $sa=$RX[$k+2]; $tag=$RX[$k+3]; $su=$RX[$k+4]; $nacht=$RX[$k+5]; } } # # Zeiten ausgeben.... html # &datum(); $liste = 'gezeiten.dat' ; open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; &datum(); for ($k=0;$k<=(int($SIZE));$k++) { if ($RX[$k] eq "$tag.$m" ) { $gezeiten=$RX[$k+1]; } } $ti =$stunde*60+$minute; $m = $zeit[4]+1; # # Notdienst ausgeben.... html # $liste = 'apobuesum.dat'; open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; &datum(); # # Notdienst aus Datenbank holen... # und Apotheke ausgeben.... # for ($k=0;$k<=(int($SIZE));$k++) { if ($RX[$k] eq "$tag.$m" ) { $apo=$RX[$k+1]; if ($apo eq 1) { $apoout = "Anker Apotheke"; } if ($apo eq 2) { $apoout = "Delphin Apotheke"; } if ($apo eq 3) { $apoout = "Tertius Apotheke"; } } } $liste = 'solartim.dat' ; open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; #$m = $zeit[4]+1; for ($k=0;$k<=(int($SIZE));$k++) { if ($RX[$k] eq "$tag.$m" ) { $md=$RX[$k+1]; $sa=$RX[$k+2]; $tag=$RX[$k+3]; $su=$RX[$k+4]; $nacht=$RX[$k+5]; $ma=$RX[$k+6]; $mu=$RX[$k+7]; $out= "Apotheken-Notdienst: $apoout - Wetterdaten Büsum $wdate $wzeit Uhr - Temperatur: $wltemp °C - Luftdruck: $wdruck hPa - Luftfeuchte: $wfeuchte % - Windstärke: $wwind - Windrichtung: $wrichtung - UV-Index: $wuv - Gezeiten: $gezeiten - Sonnenaufgang: $sa - Sonnenuntergang: $su "; } } $org = '../apotheke-buesum/start.htm'; # # File einlesen! # print "Content-type: text/html\n\n"; print "kueste.de $datum"; open (FILE,"$org") || die "Can't Open $org: $!\n"; @LINES=; close(FILE); $SIZE=@LINES; # # Text für Javascript ausgeben # for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; if (//) { print "\nt0=' $out $out ';"; } else { print $_; } } # # Serverdatum korrigieren... # sub datum { @zeit = localtime(time); ($stunde, $minute, $sekunde) = ($zeit[2], $zeit[1], $zeit[0]); $null="0"; $st=$stunde; $min=$minute; $sek=$sekunde; $tag = $zeit[3]; if ($stunde < 10) {$st="$null$stunde"} if ($minute < 10) {$min="$null$minute"} if ($sekunde < 10) {$sek="$null$sekunde"} if ($zeit[4] eq 0) {$mon="Januar"} if ($zeit[4] eq 1) {$mon="Februar"} if ($zeit[4] eq 2) {$mon="Maerz"} if ($zeit[4] eq 3) {$mon="April"} if ($zeit[4] eq 4) {$mon="Mai"} if ($zeit[4] eq 5) {$mon="Juni"} if ($zeit[4] eq 6) {$mon="Juli"} if ($zeit[4] eq 7) {$mon="August"} if ($zeit[4] eq 8) {$mon="September"} if ($zeit[4] eq 9) {$mon="Oktober"} if ($zeit[4] eq 10) {$mon="November"} if ($zeit[4] eq 11) {$mon="Dezember"} $datum = "$tag.$mon $zeit[5] $st:$min:$sek"; } # EOF