Mietwohnungen in Berlin

#!/usr/local/bin/perl ################################################################# # # Steuermodul INVARIANT.DE Generierung Suchmodul Mietwohnungen # Projektierung Heinz Brehm # last Update: 12. 11. 2000 # ################################################################# require 'cgi-bibliothek.pl'; sub main { %puffer = &cgiparse(); $sp = $puffer{'sp'}; # sprache $moderk = $puffer{'moderk'}; # moderk = "" Kauf $idxxx = $puffer{'IDINV'}; # ID-Nummer INVARIANT $bau = $puffer{'BAU'}; # 1 = NEUBAU / 0 = San. Altbau / 9 beides $bezug = $puffer{'BEZUG'}; # 1 = Bezugsfertig $anz = $puffer{'ANZ'}; # Anzahl gefundene Sätze $art = $puffer{'ART'}; # N = NEU $von = $puffer{'VON'}; # 1. Satz $bis = $puffer{'BIS'}; # n. Satz $idinv = $puffer{'IDINV'}; # ID der Datenbank Invariant $idtext = $puffer{'IDTEXT'}; # ID TEXT $bezirk = $puffer{'bezirk'}; # Stadtbezirk $eb = $puffer{'EB'}; # Erstbezug = 1 $ort = $puffer{'ort'}; # Ortsangabe / 9 Umland $gf = $puffer{'GF'}; # Gesamtfläche $qmp = $puffer{'QMP'}; # Preis pro QM $kp = $puffer{'KP'}; # Kaufpreis / Warmmiete $km = $puffer{'KM'}; # Kaltmiete $zi = $puffer{'ZI'}; # Zimmeranzahl $ge = $puffer{'GE'}; # Geschoß alle,9,0,3,4 $afa = $puffer{'AFA'}; # Sonderabschreibung $rlvf = $puffer{'RLVF'}; # Sonderabschreibung $ma = $puffer{'MA'}; # Maisonette $dg = $puffer{'DG'}; # Dachgeschoß $az = $puffer{'AZ'}; # Aufzug $wb = $puffer{'WB'}; # Wannenbad $du = $puffer{'DU'}; # Dusche $gwc = $puffer{'GWC'}; # Gäste-WC $bk = $puffer{'BK'}; # Balkon/Terasse $wg = $puffer{'WG'}; # Wintergarten $ga = $puffer{'GA'}; # Garage/Stellplatz $zh = $puffer{'ZH'}; # Zentralheizung $gh = $puffer{'GH'}; # Gasheizung $ek = $puffer{'EK'}; # Einbauküche $ak = $puffer{'AK'}; # offene (amerikan.) Küche $mb = $puffer{'MB'}; # Möbliert erwünscht $nm = $puffer{'NM'}; # nur möbliert gewünscht $st = $puffer{'ST'}; # Stuck $pa = $puffer{'PA'}; # Parkett $co = $puffer{'CO'}; # Concierge $ws = $puffer{'WS'}; # Doorman $vm = $puffer{'VM'}; # Vermietet $mg = $puffer{'MG'}; # Mietgarantie $s = $puffer{'S'}; $datei = "wohnungen.txt"; # Wohnungstabelle ############################# $idtext =~ tr/ /+/; ######## Kategorien auswerfen ################################# ############## Stadtteile einlesen @kategorie = %kat; open (TESTXXX, $datei); $vorhanden = 1; $kat{"alle"} = '1'; # Alle Bezirke while ($zeile = ) { @xx = split(/;/, $zeile); # Aufteilen in einzelne Felder #### Test auf Miete ############## if ($xx[3] eq "Miete") { $kat{"$xx[6]"} = '1'; }; # $kat{"Biesdorf-Süd"} # print STDOUT "$kat{\"$xx[6]\"} $xx[6]
"; } close(TESTXXX); &einleitung; &kopfausgabe; # Ausgabe Seitenkopf print STDOUT<

SUCHE STARTEN

EOF print STDOUT "

"; print STDOUT " "; print STDOUT " "; print STDOUT ""; print STDOUT " "; print STDOUT ""; print STDOUT "

"; print STDOUT " Hilfe	Bitte Kriterien wählen
Lage	<- oder ->
Größe	Zimmeranzahl
	min. Gesamtfläche in qm:	,00 qm
Preis	max. qm-Preis in EUR/qm	,00 EUR
	maximale Kaltmiete in EUR	,00 EUR
	maximale Warmmiete in EUR	,00 EUR
Merkmale	Objekt bezugsfertig	Erstbezug
	Maisonettenwohnung	Dachgeschoßwohnung
	RLvF-Bescheinigung	Geschoß
Ausstattung	Aufzug	Wannenbad
Gäste-WC	Kfz-Stellplatz/Garage	Dusche
Einbauküche	\"amerikanische\" Küche	Balkon oder Terrasse
Möblierung	Parkett	Stuck
Service	Appartmentservice	Wachschutz

"; print STDOUT<

EOF print STDOUT<

EOF } # Letzte Klammer #################### sub kopfausgabe { print STDOUT "Mietwohnungen in Berlin\n \n \n"; } ############### sub einleitung { &send_header; # Startzeile ausgeben print STDOUT "\n\n\n"; }