#!/usr/local/bin/perl use CGI; $query = new CGI; print $query->header; @zeichen = ($query->param('zeichentext1'),$query->param('zeichentext2'),$query->param('zeichentext3'),$query->param('zeichentext4'),$query->param('zeichentext5'),$query->param('zeichentext6')); @klassen = ($query->param('klassen1'),$query->param('klassen2'),$query->param('klassen3'),$query->param('klassen4'),$query->param('klassen5'),$query->param('klassen6')); @land = $query->param('Land'); @gruppen = $query->param('gruppen'); @us = $query->param('us'); $laender = $query->param('Laender'); $usercode = $query->param('usercode'); if (!$usercode) { $usercode = $$; $usercode .= ":".$query->remote_host(); } ######## # Uebergabe der Angaben an eine Datei if (@zeichen) { open (BESTELL, ">>data/bestmue.$usercode"); $zaehler = 0; foreach $z (@zeichen) { if (@zeichen[$zaehler]) { print BESTELL "@zeichen[$zaehler]\t\@\t@klassen[$zaehler]\t\@\t@land\t\@\t$laender\t\@\t@us\t\@\t@gruppen\n"; } $zaehler++; } close BESTELL; } print "\ \
\| Hier können Sie einen Überwachungsauftrag \
erteilen oder uns um eine verbindliche Preiskalkulation bitten. \ Sie können mehrere Zeichen mit unterschiedlichen Klassen für dasselbe \ Territorium eingeben. Die Eingabe mehrerer Territorien für dasselbe Zeichen ist möglich. \ Bildzeichen können digital per E-Mail, als Hardcopy per Post oder als LOGO in einer \ URL getrennt übermittelt werden. Bitte setzen Sie die Fundstelle ein. \ Weitere Zeichen und solche für andere Territorien können nach WEITER \ übergeben werden. | \