Rotfl: Fahrplan

#!/usr/bin/perl print "Content-type: text/html\nPragma: no-cache\n\n"; print "\nRotfl: Fahrplan\n\n\n"; print "\n\n"; print "\n\n

\n"; print " $\"rotfl\"$ \n"; print "

\n"; print "\n"; print " $\"|$ \n"; print "\n"; print " $\"|$ \n"; print "\n"; print " $\"|$ \n"; print "\n"; print " $\"|$ \n"; print "

\n"; print "
$\"\"$

\n"; @timenow=localtime; $mymonat=$timenow[4]+1; print "
\n"; print "
Fahrplan nach rotfl.org
\n"; print "Bitte hier den Abfahrtsort und entweder Abfahrts- oder Ankunftszeit eintragen\n"; print "und danach auf ,,Anfordern'' klicken. Danach erscheint der\n"; print "persönliche Fahrplan nach rotfl.org (zur S-Bahn Haltestelle\n"; print "Isartor).
\n\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "Datum: . "; print ". "; print "19$timenow[5]\n"; print "
\n"; print "\n"; print " Stunden,\n"; print " Minuten
\n"; print "Abfahrtsort: in\n"; print ",\n"; print "\n"; print "nach rotfl.org
\n"; print "\n"; print "
\n"; print "
\n\n"; print "

Fahrplan von rotfl.org
\n"; print "Bitte hier das gewünschte Ziel und entweder Abfahrts- oder Ankunftszeit eintragen\n"; print "und danach auf ,,Anfordern'' klicken. Danach erscheint der\n"; print "persönliche Fahrplan (von S-Bahn Haltestelle\n"; print "Isartor).
\n\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "Datum: . "; print ". "; print "19$timenow[5]\n"; print "
\n"; print "\n"; print " Stunden,\n"; print " Minuten
\n"; print "Ziel: in\n"; print ",\n"; print "\n"; print "von rotfl.org
\n"; print "\n"; print "
\n"; print "
\n\n"; print "

Gute Fahrt wüncht rotfl.org. Dieser Fahrplanservice wird durch"; print "den Verkehrsverbund Rhein-Neckar\n"; print "ermöglicht.\n\n"; print "
\n\n

\n\n"; print " $\"\"$

\n\n\n";