Anzeige Buchungspool

#!/usr/bin/perl -w ############################################################################## # # Programm zur Künstlerbestellung über Anfrage-Pool # Hier Auslesen des Anfragepools # Copyright 1999 Holger Roosen (DUMA) # # # letzte Änderung : 20.04.2000 ############################################################################## require "pool_nr.pl"; #require "c:\\Eigene Dateien\\intranet\\teatime\\cgibin\\pool_nr.pl"; &HTMLTeil; &PoolEinlesen; &HTMLForm; &HTMLFuss; ############################################################################## # Subroutine Pool einlesen ############################################################################## sub PoolEinlesen { if (-e "$adresse.txt") { open (POOL, "<$adresse.txt") || die "kann Datei nicht öffnen : $!"; @quelle = ; close(POOL); @quelle = sort(@quelle); foreach $a(@quelle) { chomp($a); ($name) = split(/;/, $a); print "\n"; print "$name\n"; print "\n"; print "\n"; } } } ############################################################################## # HTML Kopfteil erstellen ############################################################################## sub HTMLTeil { print "Content-type: text/html\n"; print "Pragma: no-cache\n\n"; print << "EOM"; Anzeige Buchungspool Tea-Time Agentur

Folgende Kuenstler würde ich gerne buchen EOM } ############################################################################## # HTML Formteil Hidden-Felder Künstler definieren ############################################################################## sub HTMLForm { print <<"EOM";

Künstler/Ensemble

EOM foreach $a(@quelle) { ($name) = split(/;/, $a); print ""; } } ############################################################################## # HTML Ende erstellen ############################################################################## sub HTMLFuss { print << "EOM"; Ich suche folgende spezielle Künstler
oder Ensembles

Absender

Name           
Vorname        
eMail          
Telefon        / opt.

Für welchen Zeitraum möchten Sie den/die Künstler buchen

von              Uhr
bis              Uhr

Wo soll die Veranstaltung stattfinden ?

Weitere Mitteilungen

Wie haben Sie unsere Seite gefunden

Suchmaschine   
Bannerwerbung  
andere WebPage 
sonstige

Die Verarbeitung des Formulars kann etwas dauern.
Bitte haben Sie ein wenig Geduld.
Danke

Startseite || Angebot EOM }