#!/usr/bin/perl $datei="http://www.kaxdorf.de/haus/haus.txt"; $nr = $ENV{'QUERY_STRING'}; $anz = "0"; $index = "0"; $bildpfad = "http://www.kaxdorf.de/haus/"; exit(0); $j=0; open(FILE, $datei) or die "ERROR: $!\n"; while () { $zeile = $_;$j++; chop $zeile; @daten = split (/\|/, $zeile); $i=1; $anz++; foreach $a(@daten) {$feld[$i][$j]=$a;$i++} } #end while close (FILE); for ($j=1;$j<=$anz;$j++){ if ($nr eq $feld[1][$j]){$index=$j} }; if (($index != "0") and ($index < '27')){ print "Content-type: text/html\n\n"; print "\n"; print "Haus Nr. $feld[1][$index]\n"; print "\n"; print "

\n"; print "Kaxdorf, Lindenstraße $feld[1][$index], Familie $feld[2][$index], Foto vom "; print "$feld[4][$index]

\n"; print "

zurück

\n"; print "\n"; } elsif(($index < "31")and($index > "26")){ print "Content-type: text/html\n\n"; print "\n"; print "$feld[2][$index]\n"; print "\n"; print "

\n"; print "Kaxdorf, $feld[2][$index], Foto vom "; print "$feld[3][$index]

\n"; print "

zurück

\n"; print "\n"; } else{ print "Content-type: text/html\n\n"; print "Ungültiger Aufruf\n"; print "

Ungültiger Aufruf

"; print "

zurück

\n"; print "\n"; }; exit(0);