#!/usr/bin/perl -w
use CGI;
use strict;
use product qw(:productInfo);
use Cwd;
$|++;

my $q = new CGI;
my $sku = $q->param('sku');
my $path_to_images = "/webpics/originals/";
my $path_to_images = "/webpics/itemthumb/";
my $path_to_images = "/webpics/itemmed/";


print $q->header();

#check for sku, description associated with it
#then print the image
if ($sku){

my $firstDigits;

if ($sku =~ /^\d{3}/) {$firstDigits = $&}

my %product = getProductInfo($sku);
$path_to_images .= $firstDigits . "/" . $sku . ".jpg";
if (-e $path_to_images && values %product)
{

print <<HTML;
<center>
<table width="200" border="1">
<tr align="center" valign="middle">
<td>
<img src="/webpics/originals/$sku.jpg">
</td>
<td> <img src="/webpics/originals/$firstDigits/$sku.jpg">
</td>
<td><img src="/webpics/itemthumb/$firstDigits/$sku.jpg"></td>
</tr>
</table>
<table width="400" height="100">
<tr>
<td align="left">
Sku Number: <b>$sku</b><br>
Item Number: <b>$product{'item_number'}</b><br>
Minimum Sell: <b>$product{'min_amount'}</b><br>
Description: <b>$product{'description'}</b><br>
Retail: <b>\$$product{'retail'}</b><br>
</td>
</tr>
</table>
</center>
HTML
}
else{

print <<HTML;
<center>
<font color="red">Sorry, No Products Avaliable with that Sku Number.</font><br>

</center>

HTML
}
}
print scalar localtime, $q->end_html