STAWO FRAME DATAOUT...

#!/usr/local/bin/perl # # Apotheken-Notdienstplan Ausgabe # by Peter Rohde (webmaster@kueste.de) # Last Update 22.11.98 # read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # VARIABLEN AUS HTML.Form holen.... @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; } $FORM{$name} = $value; } $ti =$stunde*60+$minute; $monat = $FORM{'monat'} ; $tag = $FORM{'tag'} ; #$monat = "November"; #$tag = "29"; if ($tag eq "01") {$tag = 1}; if ($tag eq "02") {$tag = 2}; if ($tag eq "03") {$tag = 3}; if ($tag eq "04") {$tag = 4}; if ($tag eq "05") {$tag = 5}; if ($tag eq "06") {$tag = 6}; if ($tag eq "07") {$tag = 7}; if ($tag eq "08") {$tag = 8}; if ($tag eq "09") {$tag = 9}; &datum(); $ti =$stunde*60+$minute; $m = $zeit[4]+1; print "Content-Type: text/html\n\n"; if ($monat eq "Januar") {$m = 1} if ($monat eq "Februar") {$m = 2} if ($monat eq "März") {$m = 3} if ($monat eq "April") {$m = 4} if ($monat eq "Mai") {$m = 5} if ($monat eq "Juni") {$m = 6} if ($monat eq "Juli") {$m = 7} if ($monat eq "August") {$m = 8} if ($monat eq "September") {$m = 9} if ($monat eq "Oktober") {$m = 10} if ($monat eq "November") {$m= 11} if ($monat eq "Dezember") {$m= 12} # # Notdienst ausgeben.... html # $liste = 'apomeldorf.dat' ; open (RXIN,"$liste"); @RX = ; chop (@RX); close RXIN; $SIZE=@RX; $apo = "FAIL"; # # 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 = "
Linden-Apotheke
Bahnhofstraße 1, 25712 Burg
Tel.(0 48 25) 9 39 90
"; } if ($apo eq 2) { $apoout = "
Krabben-Apotheke
Koogstr. 64, 25718 Friedrichskoog
Tel.(0 48 54) 900 90
"; } if ($apo eq 3) { $apoout = "
Priv. Stadt-Apotheke
Südermarkt 8, 25704 Meldorf
Tel.(0 48 32) 14 63
"; } if ($apo eq 4) { $apoout = "
Neue Apotheke
Königstraße 1, 25709 Marne
Tel.(048 51) 7 64
"; } if ($apo eq 5) { $apoout = "
Priv. Apotheke am Markt
Am Markt 8, 25712 Burg
Tel.(0 48 25) 22 89
"; } if ($apo eq 6) { $apoout = "
Zingel-Apotheke
Zingelstraße 43, 25704 Meldorf
Tel.(0 48 32) 9 58 10

"; } if ($apo eq 7) { $apoout = "
Kgl. priv. Sonnen-Apotheke
Markt 5, 25709 Marne
Tel.(0 48 51) 9 50 80
"; } if ($apo eq 8) { $apoout = "
Donn-Apotheke
Johannssenstr. 2, 25693 St. Michaelisdonn
Tel.(0 48 53) 4 60
"; } if ($apo eq 9) { $apoout = "
Öster-Apotheke
Österstraße 27, 25704 Meldorf
Tel.(0 48 32) 9 59 40
"; } if ($apo eq "FAIL") {$apoout ="Daten sind noch nicht verfügbar!
";} } } $org = 'apomeldorfout.htm'; # # File einlesen! # print "STAWO FRAME DATAOUT..."; open (FILE,"$org") || die "HTML Source $org: $! nicht gefunden...\n"; @LINES=; close(FILE); $SIZE=@LINES; # # File ausgeben # for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; if (//) { print "Apothekennotdienst am $tag. $mon :
$apoout
\n"; } else { print $_; } } # # Serverdatum korrigieren... # sub datum { @zeit = localtime(time); ($stunde, $minute, $sekunde) = ($zeit[2], $zeit[1], $zeit[0]); # ($stunde) = ($stunde - 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"} $jahr=$zeit[5]+1900; $datum = "$tag.$mon $jahr $st:$min:$sek"; } # EOF