Warhammer Historical

Warhammer Historical

#!/usr/bin/perl -w print "Content-type: text/html\n\n"; ################ ##### Html Wert einlesen use CGI; $query = new CGI; $Seite=$query->param("value"); #################### ##### Daten für Seite öffnen $rw = open(FILE,"$Seite.dat"); while(defined($b = )) {$c = $c . $b;} close(FILE); my @daten = split(/;/,$c); ########## ## Artikelnummern-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=20; $i<($summe); $i++) { $datennummer[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelname-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=21; $i<($summe); $i++) { $datenname[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbeschreibung-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=22; $i<($summe); $i++) { $beschreibung[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelpreis-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=23; $i<($summe); $i++) { $preis[$t] = $daten[$i]; if (length($preis[$t]) < 7) { $rabattpreis[$t] = $daten[$i] * 0.9; $_[0] = $rabattpreis[$t]; my @bidamt = split(/\./, $_[0]); $bidamt[0] = "0" if (!($bidamt[0])); $bidamt[0] = int($bidamt[0]); $bidamt[1] = substr($bidamt[1], 0, 2); $bidamt[1] = "00" if (length($bidamt[1]) == 0); $bidamt[1] = "$bidamt[1]0" if (length($bidamt[1]) == 1); $rabattpreis[$t]= "$bidamt[0].$bidamt[1]"; } $t = $t+1; $i = $i+6; } ########## ## Artikelbild-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=24; $i<($summe); $i++) { $bild[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbildlänge-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=25; $i<($summe); $i++) { $laenge[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbildbreite-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=26; $i<($summe); $i++) { $breite[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ############### #### Datennummer - Zeilenumbruch entfernen foreach $datennummer (@datennummer) { $datennummer = reverse($datennummer); for(my $e=0; $e < "2"; $e++) { $Zeichen = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; $b = length($Zeichen); $d = 0; for(my $i=0; $i < ($b); $i++) { $a = substr($datennummer,-1,1); $c = substr($Zeichen,$i,1); if ($a eq $c) {$d = 1;} } if ($d eq 0) { chop($datennummer); } } $datennummer = reverse($datennummer); } ############### ######## Lagerdatei öffnen, falls nötig $datei = ''; $dateinummer = ''; foreach $datennummer (@datennummer) { if( $datennummer =~ /#/ ) { $chopper = $datennummer; for(my $i=1; $i>0; $i++) { $datei = chop($chopper); if ($datei ne '#') { $dateinummer = "$dateinummer"."$datei"; } else { $i = -1; } } $dateinummer = reverse $dateinummer; last; } } if ($dateinummer ne '') { ## Anfang Lagerbestand lesen my $url = "http://www.fantasyladen.de/bestand/$dateinummer.dat"; use LWP::Simple; my $p = get $url; my @alle = split(/;/,$p); ########## ## Artikelnummern extrahieren my $summe = @alle; my $t = 0; for(my $i=0; $i<($summe); $i++) { $Nummer[$t] = $alle[$i]; $t = $t+1; $i = $i+1; } ########## ## Lagerbestand extrahieren my $summe = @alle; my $t = 0; for(my $i=1; $i<($summe); $i++) { $Anzahl[$t] = $alle[$i] ; $t = $t+1; $i = $i+1; } ############### #### Lagerbestand durchforsten my $zahl = 0; foreach $Nummer (@Nummer) { if($zahl>0) { $Nummer = reverse($Nummer); chop($Nummer); chop($Nummer); $Nummer = reverse($Nummer); } my $summe = @datennummer; for(my $i=0; $i<($summe); $i++) { if ($datennummer[$i] eq $Nummer) { $bestand[$i] = $Anzahl[$zahl]; $i = $i+1; } } $zahl = $zahl +1 ; } } ## Ende Lagerbestand lesen ############## #### Kategorien einlesen my $summe = 20; my $t = 0; for(my $i=0; $i<($summe); $i++) { $stelle[$t] = $daten[$i]; $t = $t+1; $i = $i+1; } my $summe = 20; my $t = 0; for(my $i=1; $i<($summe); $i++) { $kategorie[$t] = $daten[$i]; $t = $t+1; $i = $i+1; } ############## #### Tabelle schreiben my $summe = @datennummer; my $a = 0; for(my $i=0; $i<($summe); $i++) { if ($i eq $stelle[$a]) { print ""; $a = $a +1; } else { } print " "; print ""; } if ($bild[$i] eq "auswahl"){ print "

Artikel & Preis siehe oben

"; } if ($bild[$i] eq ""){ print "";} if ($bild[$i] eq "auswahl") { print ""; } else { if ($beschreibung[$i] ne "") { print "";} else { print ""; } } if ($bild[$i] ne "auswahl") { print ""; if( $datennummer[$i] =~ /xx/ ) { print ""; } else { print "";} print ""; } else {print "";} } else { print ""; } else {print "";} } }


Thumbnail	Artikel	Preis	Rabattpreis	Warenkorb
$kategorie[$a]
"; if (($bild[$i] ne "auswahl") && ($bild[$i] ne "")){ $thumb = $bild[$i]; chop($thumb); chop($thumb); chop($thumb); chop($thumb); $thumb = $thumb . "_sm.jpg"; print "	$beschreibung[$i]	$datenname[$i] $beschreibung[$i]	$datenname[$i]	"; print " $preis[$i] €	-	$rabattpreis[$i] €	"; if ($bestand[$i] eq "") { print "$bestand[$i]"; print " "; } elsif ($bestand[$i] >0) { print " Bestand : $bestand[$i] "; } else { print " Ausverkauft ! "; } if (($bestand[$i] >0) or ($bestand[$i] eq "")){ print "
	"; if ($bestand[$i] eq "") { print "$bestand[$i]"; print " "; } elsif ($bestand[$i] >0) { print " Bestand : $bestand[$i] "; } else { print " Ausverkauft ! "; } if (($bestand[$i] >0) or ($bestand[$i] eq "")){ print "