#!/usr/bin/perl -w
use strict;

use CGI qw(:standard);
## start file
print	header(),
	start_html(-title=>"Street Print CD Catalog", -background=>'/images/catalogbackground.jpg');

print	"<img src=\"/images/StPrintImageLogo2.gif\"><br><br>";
##collect the data from my forms page

my $filename = param('filename'); ## a text box to enter in a 
## whole or part file name

my $color = param('color');## pull down menu
## searches color types. default Any

my $pattern = param('pattern'); ## pull down menu
## searches pattern types. default Any

my $Typeofprint = param('Typeofprint'); ## A dialog of radio
##  buttons. Submitted data looks like either a single number,
## or a list of numbers ex) "1" or "1 2 3 15 22"

my $highres = param('highres'); ## yes or no high res

chomp ($filename, $color, $pattern, $Typeofprint, $highres); ## make sure no \n stuff follows it

## the beginning of the table

print "<table border=1><tr align=\"center\" valign=\"middle\"><td width =\"150\"><h3>Name</h3><h6>Picture number<br>followed by name</h6></td><td width =\"100\"><h3>Color</h3></td><td width =\"100\"><h3>Pattern</h3></td><td width =\"100\"><h3>CD Number</h3></td><td width =\"100\"><h3>High res, 300 dpi image available on CD?</h3></td><td width =\"150\"><h3>Thumbnail Image</h3><h6>**Click to enlarge**</h6></td></tr>";

## open the DBFILE, located in the same directory
open (DBFILE, 'scfrom.db') or die "$!";

## for each line of the DBFILE
while (my $line = <DBFILE>) {

chomp $line;
$line =~ tr/\r\n//d;## get rid of white space

my @record = split /\|/, $line, 7; ## split it up into....
## $record[0] is name, 1 => color, 2 => pattern, 3 => cd, 
## 4 => thumbnail picture, 5=> screen res picture, 6=> yes or no high res.

my @cdnumbers = split / /, $Typeofprint; ## split by whitespace,
## so cd numbers don't run into eachother
## ex 1 isn't in 12 :P
if ($color eq "Any"  ||  $record[1] =~ /^$color$/i 
## if color is Any or matches the DBFILE
  and  $pattern eq "Any"  ||  $record[2] =~ /^$pattern$/i ## if pattern is Any or matches DBFILE 
  and  $highres eq "Any"  || $record[6] eq 'Yes' 
## if highres is Any or if the record says Yes
  or $filename =~ /^$record[0]$/igc 
## if file name is located in $record[0])
{
my $i;
## while the $cdnumbers for that selection are checked by the DBFILE
while ($cdnumbers[$i])
{
if ($Typeofprint eq "Any" or $cdnumbers[$i] =~ /^$record[3]$/i) ## if it's any or it matches
{
print "<tr align=\"center\" valign=\"middle\"><td width=\"150\">$record[0]</td><td width=\"100\">$record[1]</td><td width=\"100\">$record[2]</td><td width=\"100\">$record[3]</td><td width=\"100\">$record[6]</td><td width=\"150\"><a href=\"/images/screenres/$record[5]\"><img BORDER=\"0\" src=\"/images/thumbnails/$record[4]\"></td></tr>\n"; ## the actual code :)
	next;
}
}
}
}
print '</table>';
print end_html;