#!/usr/bin/perl # Define Variables # use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); $q = new CGI; $workdir = '../aludb'; $query_string = $ENV{'QUERY_STRING'}; if ($query_string =~ m/action=start/i){ $action = 'start'; } elsif ($query_string =~ m/action=details/i){ $action = 'details'; ($pair1, $pair2) = split(/&/, $query_string); ($fieldname,$rim) = split(/=/, $pair2); $rim =~ tr/+/ /; $rim =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } elsif ($query_string =~ m/felge=/i){ $action = 'schritt1'; ($fieldname,$rim) = split(/=/, $query_string); $rim =~ tr/+/ /; $rim =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } print "Content-type: text/html\n\n"; @felgen = ("Fondmetal 5800","Fondmetal 6500","Fondmetal 6600","Fondmetal 6700","Fondmetal 7100","Fondmetal 7200","Fondmetal 9X","Fondmetal TECH4","Fondmetal TECH5","RADIUS R 3","RADIUS R 6","RADIUS R 8"); %f_bild_k = ("Fondmetal 5800"=>"../images/fondmetal_5800k.gif", "Fondmetal 6100"=>"../images/fondmetal_6100k.gif", "Fondmetal 6200"=>"../images/fondmetal_6200k.gif", "Fondmetal 6500"=>"../images/fondmetal_6500k.gif", "Fondmetal 6600"=>"../images/fondmetal_6600k.gif", "Fondmetal 6700"=>"../images/fondmetal_6700k.gif", "Fondmetal 7100"=>"../images/fondmetal_7100k.gif", "Fondmetal 7100-1"=>"../images/fondmetal_7100k.gif", "Fondmetal 7200"=>"../images/fondmetal_7200k.gif", "Fondmetal 9X"=>"../images/fondmetal_9xk.gif", "Fondmetal TECH4"=>"../images/fondmetal_tech4k.gif", "Fondmetal TECH5"=>"../images/fondmetal_tech5k.gif", "RADIUS R 3"=>"../images/radius_r3k.gif", "RADIUS R 6"=>"../images/radius_r6k.gif", "RADIUS R 7"=>"../images/radius_r7k.gif", "RADIUS R 8"=>"../images/radius_r8k.gif", "RADIUS R 9"=>"../images/radius_r9k.gif"); %felgenbild = ("Fondmetal 5800"=>"../images/fondmetal_5800.gif", "Fondmetal 6100"=>"../images/fondmetal_6100.gif", "Fondmetal 6200"=>"../images/fondmetal_6200.gif", "Fondmetal 6500"=>"../images/fondmetal_6500.gif", "Fondmetal 6600"=>"../images/fondmetal_6600.gif", "Fondmetal 6700"=>"../images/fondmetal_6700.gif", "Fondmetal 7100"=>"../images/fondmetal_7100.gif", "Fondmetal 7100-1"=>"../images/fondmetal_7100.gif", "Fondmetal 7200"=>"../images/fondmetal_7200.gif", "Fondmetal 9X"=>"../images/fondmetal_9x.gif", "Fondmetal TECH4"=>"../images/fondmetal_tech4.gif", "Fondmetal TECH5"=>"../images/fondmetal_tech5.gif", "RADIUS R 3"=>"../images/radius_r3.gif", "RADIUS R 6"=>"../images/radius_r6.gif", "RADIUS R 7"=>"../images/radius_r7.gif", "RADIUS R 8"=>"../images/radius_r8.gif", "RADIUS R 9"=>"../images/radius_r9.gif"); @html = ("fondmetal5800.html","fondmetal6500.html","fondmetal6600.html","fondmetal6700.html","fondmetal7100.html","fondmetal7200.html","fondmetal9x.html","fondmetaltech4.html","fondmetaltech5.html","radiusr3.html","radiusr6.html","radiusr8.html"); $pics = @felgen; @felgenbez = ('Marke','Modell','Typ','Design','Größe','ET','Lz/Lk','Nab.','AS','Bereifung','Art-Nr','Bestand','VK1','VK2','leer'); $alufile = "data/aluliste.txt"; $preisfile = 'data/preise.txt'; open (PREISE, "$preisfile") or die "Error opening file: $preisfile!\n"; @preise = ; $preise_zahl = @preise; close(PREISE); if ($action eq 'start'){ print< Sonderposten-Shop für Fondmetal und Radius Alufelgen!
 
Folgende Felgen sind z.Zt. verfügbar:

HTML $felgealt = ''; foreach $felge (@preise){ ($key,@felgen_vals) = split(/\|/, $felge); $felgen_vals[6] =~ s/,/\./g; $felgen_vals[6] = $felgen_vals[6]*1.16; if ($felgen_vals[6] =~ m/(\d*)\.(\d\d)(\d*)/i){ $vorkomma = $1; $nachkomma = $2; if ($nachkomma == 99){ $nachkomma = '00'; $vorkomma = $vorkomma + 1; } $felgen_vals[6] = $vorkomma.','.$nachkomma; } if ($felgealt eq ''){ $esrte = 1; print<
HTML $felgealt = $felgen_vals[1]; } elsif ($felgen_vals[1] ne $felgealt){ print<
$felgen_vals[1]
Größe
Einpress-
tiefe
Lochzahl/
Lochkreis
Preis
(in € incl. MwSt.)
$felgen_vals[2]
$felgen_vals[3]
$felgen_vals[4]
$felgen_vals[6]
 
HTML $felgealt = $felgen_vals[1]; } else { print< HTML $felgealt = $felgen_vals[1]; } } print<
$felgen_vals[1]
Größe
Einpress-
tiefe
Lochzahl/
Lochkreis
Preis
(in € incl. MwSt.)
$felgen_vals[2]
$felgen_vals[3]
$felgen_vals[4]
$felgen_vals[6]
$felgen_vals[2]
$felgen_vals[3]
$felgen_vals[4]
$felgen_vals[6]
 

Zurück

webmaster e-mail

 

HTML } if ($action eq 'details'){ print< Sonderposten-Shop für Fondmetal und Radius Alufelgen!
 

Dies sind die verfügbaren $rim Felgen
mit den zugehörigen Fahrzeugzuordnugen!

Um eine Felge zu bestellen klicken sie einfach auf den Sonderposten Shop Button.

HTML $felgealt = ''; foreach $felge (@preise){ ($key,@felgen_vals) = split(/\|/, $felge); if ($felgen_vals[1] eq $rim){ $felgen_vals[6] =~ s/,/\./g; $felgen_vals[6] = $felgen_vals[6]*1.16; if ($felgen_vals[6] =~ m/(\d*)\.(\d\d)(\d*)/i){ $vorkomma = $1; $nachkomma = $2; if ($nachkomma == 99){ $nachkomma = '00'; $vorkomma = $vorkomma + 1; } $felgen_vals[6] = $vorkomma.','.$nachkomma; } print<
$felgen_vals[1]
Größe
Einpress-
tiefe
Lochzahl/
Lochkreis
Verfügbare
Stückzahl

Preis
(in € incl. MwSt.)
$felgen_vals[2]
$felgen_vals[3]
$felgen_vals[4]
$felgen_vals[5]
$felgen_vals[6]
$felgen_vals[8]
 
HTML } } print<Zurück

webmaster e-mail

 

HTML } if ($action eq 'schritt1'){ foreach $felge (@preise){ ($key,@felgen_vals) = split(/\|/, $felge); if ($felgen_vals[0] eq $rim){ $felgen_vals[6] =~ s/,/\./g; $felgen_vals[6] = $felgen_vals[6]*1.16; if ($felgen_vals[6] =~ m/(\d*)\.(\d\d)(\d*)/i){ $vorkomma = $1; $nachkomma = $2; if ($nachkomma == 99){ $nachkomma = '00'; $vorkomma = $vorkomma + 1; } $felgen_vals[6] = $vorkomma.','.$nachkomma; } $sbox = ''; print< Sonderposten-Shop für Fondmetal und Radius Alufelgen!
 

Starten Sie jetzt die Bestell-Anfrage der $felgen_vals[1] Felge

HTML $felgen_vals[8] = ' '; print<
Größe
Einpress-
tiefe
Lochzahl/
Lochkreis
Verfügbare
Stückzahl

Preis
(in € incl. MwSt.)
Bestell-
menge
$felgen_vals[2]
$felgen_vals[3]
$felgen_vals[4]
$felgen_vals[5]
$felgen_vals[6]
$sbox
Felgenlieferung innerhalb Deutschland ab 4 Stück Frachtfrei. Deutsche Inseln pauschal 11 Euro pro Paket Zusatzkosten. Unter 4 Felgen 5,00 Euro/Paket. Max. 2 Felgen/Paket. Versand ins Ausland gegen Selbstkostenpreis auf Anfrage.

Zuordungen:
'.$felgen_vals[8]; $felgen_vals[8] =~ s/:<\/b>/:<\/b><\/span><\/div><\/td>
/g; $felgen_vals[8] =~ s/, /,<\/span><\/td><\/tr>
/g; $felgen_vals[8] .= $felgen_vals[6].'
   
Bitte füllen Sie die folgenden Felder vollständig aus (Felder mit * sind Pflichtangaben):
*Name:
Straße, Nr.:
PLZ:
Ort:
*E-Mail:
*Telefonnummer:
Fax-Nummer:
Bezahlung per:
Vorkasse
Nachnahme (+ 7,00 € Nachnahmekosten)
Sonstiges:
Auf welches Fahrzeug möchten Sie die Felgen montieren?
Bitte entnehmen Sie die erforderlichen Daten (1 - 4)
aus Ihrem Fahrzeugschein!
Fahrzeughersteller (1):
Typ und Ausführung (2):
Typ und Ausführung  Schlüssel. Nr. (3):
Tag der ersten Zulassung (4):
   
 
Ich habe die AGB's gelesen und erkenne diese an:
 
                   

Zurück

webmaster e-mail

 

HTML } } }