#!/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 (<FILE>)
 { $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 "<html>\n";
	print "<head><title>Haus Nr. $feld[1][$index]</title></head>\n";
	print "<body bgcolor=\"#FFFFFF\">\n";
	print "<p align=\"center\"><b><font color=\"#000000\" size=\"4\">\n";
	print "Kaxdorf, Lindenstra&szlig;e $feld[1][$index], Familie $feld[2][$index], Foto vom ";
	print "$feld[4][$index]</font></b></p>\n";
	print "<p align=\"center\"><img src=\"$bildpfad$nr.jpg\"></p>\n";
	print "<p align=\"center\"><b><font size=\"4\"><a href=\"http://www.kaxdorf.de/haus/karte.htm\">zur&uuml;ck</a></font></b></p>\n";
	print "</body></html>\n";
}

elsif(($index < "31")and($index > "26")){
	print "Content-type: text/html\n\n";
	print "<html>\n";
	print "<head><title>$feld[2][$index]</title></head>\n";
	print "<body bgcolor=\"#FFFFFF\">\n";
	print "<p align=\"center\"><b><font color=\"#000000\" size=\"4\">\n";
	print "Kaxdorf, $feld[2][$index], Foto vom ";
	print "$feld[3][$index]</font></b></p>\n";
	print "<p align=\"center\"><img src=\"$bildpfad$nr.jpg\"></p>\n";
	print "<p align=\"center\"><b><font size=\"4\"><a href=\"http://www.kaxdorf.de/haus/karte.htm\">zur&uuml;ck</a></font></b></p>\n";
	print "</body></html>\n";
}

else{
	print "Content-type: text/html\n\n";
	print "<html><head><title>Ung&uuml;ltiger Aufruf</title></head><body>\n";
	print "<center><h1>Ung&uuml;ltiger Aufruf</h1></center>";
 	print "<p align=\"center\"><b><font size=\"4\"><a href=\"http://www.kaxdorf.de/haus/karte.htm\">zur&uuml;ck</a></font></b></p>\n";
	print "</body></html>\n";
};

exit(0);
