#!/usr/bin/perl

use CGI qw(:standard);


sub url_decode
{
  my $text = shift;
  $text =~ tr/\+/ /;
  $text =~ s/%([a-f0-9][a-f0-9])/chr( hex( $1 ) )/ei;
  return $text;
}

$title = url_decode(param(painting)); 

print "Content-type: text/html\n\n";
open INVENTORY, "inventory.txt";
while (<INVENTORY>)
{
  ($name, $category, $type, $size, $description, $price, $thumbnail, $fullsize, $qty, $num, $ondisplay) = split /\t/;
  $paintings{$name}{category} = $category;
  $paintings{$name}{type} = $type;
  $paintings{$name}{size} = $size;
  $paintings{$name}{description} = $description;
  $paintings{$name}{price} = $price;
  $paintings{$name}{thumbnail} = $thumbnail;
  $paintings{$name}{fullsize} = $fullsize;
  $paintings{$name}{qty} = $qty;
  $paintings{$name}{num} = $num;
  $paintings{$name}{ondisplay} = $ondisplay;
}
close INVENTORY;
if(param())
{
open TOP, "$paintings{$title}{category}/top.html";
while(<TOP>){print;}
close TOP;

print "<center>\n";
print "<h2>\"$title\"</h2>\n";
print "<hr width=\"75%\" color=\"White\">\n";
print "<table width=\"60%\"><tr><td>\n";
print "<div align=\"justify\">\n";
print "<div align=\"center\"><img src=\"/$paintings{$title}{fullsize}\" border=0 alt=\"\"></div><br>\n";
print "<font size=\"-1\"<div align=\"center\"><i>$paintings{$title}{description}</i><p><b><i>$paintings{$title}{type},\n";
print "$paintings{$title}{size}\n";

if($paintings{$title}{ondisplay} =~ /\w+/)
{
  print "<br><font color=\"orange\">On Display at $paintings{$title}{ondisplay}</font>\n";
}
elsif($paintings{$title}{qty} == 0)
{
  print "<br><font color=\"red\">SOLD</font>\n";
}
else
{
  print "<BR>\$$paintings{$title}{price}\n";
  print "<form action=\"/order.cgi\" method=\"post\">\n";
  print "<input type=\"hidden\" name=\"painting\" value=\"$title\">\n";
  print "<br><input type=\"submit\" name=\"submit\" value=\"Order\">";
  print "</form>";
}
print "</font></i></b>\n";


#print "$paintings{$title}{size}<br>\$$paintings{$title}{price}</i></b>\n";
#print "<form action=\"/order.cgi\" method=\"post\">\n";
#print "<input type=\"hidden\" name=\"painting\" value=\"$title\">\n";
#print "<input type=\"submit\" name=\"submit\" value=\"Order\">";
#print "</form>";

print "</div>\n";

print <<END_OF_HTML;
</td></tr></table>

<hr width="75%" color="White">
END_OF_HTML
print "<a href=\"/$paintings{$title}{category}\">Go back</a><br><br><br>\n";

open BOTTOM, "bottom.html";
while(<BOTTOM>){print;}
close BOTTOM;
}