#!/usr/bin/perl
print "Content-type:text/html\n\n";
$flag = 0;
$showwarning = 0;
$warningprint = "
";
@values = split(/&/,$ENV{'QUERY_STRING'});
foreach $i (@values) {
($varname, $mydata) = split(/=/,$i);
if ($varname eq "pid") {
$flag = 1;
$itemid = $mydata;
}
}
open(FILE, "data_v2.dat") || die &error_file;
while() {
chomp;
@datafile = split(/\n/);
foreach $line (@datafile) {
next if /#.*/;
($depart, $prodid, $prodtitle, $proddetail, $prodprice, $prodimage, $prodthumb) = split(/::/, $line);
if ($flag == 0) {
push(@pdp,$depart);
push(@pid,$prodid);
push(@ptl,$prodtitle);
push(@pdt,$proddetail);
push(@ppr,$prodprice);
push(@pim,$prodimage);
push(@ptm,$prodthumb);
$flag = 1;
}
if ($itemid eq $prodid) {
push(@pdp,$depart);
push(@pid,$prodid);
push(@ptl,$prodtitle);
push(@pdt,$proddetail);
push(@ppr,$prodprice);
push(@pim,$prodimage);
push(@ptm,$prodthumb);
}
}
}
close(FILE);
if ($pdp[0] eq "") {
push(@pdp,$depart);
push(@pid,$prodid);
push(@ptl,$prodtitle);
push(@pdt,$proddetail);
push(@ppr,$prodprice);
push(@pim,$prodimage);
push(@ptm,$prodthumb);
}
if ($pid[0] eq "CIW100") {
$ptm[0] = "CIW100_SX.jpg";
}
$ptl[0] =~ s/<([^img][^>]+)>/ /g;
$showwarning = 1;
## NON 3+ Items
#if (index($pid[0], "STD01") > -1) {
# $showwarning = 1;
#}
if ($pdp[0] eq "rufflebutts") {
$showwarning = 0;
}
if ($pdp[0] eq "beautytl") {
$showwarning = 0;
}
if ($showwarning == 1) {
$warningprint = "
";
}
print <
$ptl[0] - The Princess Store
![$ptl[0]](../images/products/$pim[0])