#!/usr/bin/perl #!perl.exe -t ############################################## ### datenbank suche ### Version 1.0 ### Copyright 2000 > boomtec < mario-luepke-online ### All Rights Reserved ############################################## ##################################################################### ###################### EINGABE AUSLESEN ##################### ##################################################################### print "Content-type: text/html\n\n"; print''; @kriterium = undef; $eingabe = ; @eingabe = split( /&/ , $eingabe); foreach $zeile (@eingabe) { ($feld, $inhalt) = split( /=/ , $zeile); $daten = $inhalt; $inhalt = &aufbereiter ($daten); $eingabe{$feld} = $inhalt; } ##################################################################### ###################### Datenbanken AUSLESEN ################# ##################################################################### ### Datenbank REGION einlesen ### open (REGION, "region.db"); @region = ; close (REGION); foreach $zeile (@region) { $zeile =~ s/\n//; $zeile =~ s/\r//; } ### Datenbank LAND einlesen ### open (LAND, "land.db"); @land = ; close (LAND); foreach $zeile (@land) { $zeile =~ s/\n//; $zeile =~ s/\r//; } ################################################################################ ######################### Ausgabefelder vorbereiten ############################# ################################################################################ ### Ausgabe REGION vorbereiten ### $region = undef; foreach $zeile (@region) { $zeile =~ s/\n//; $region = $region . "