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

use CGI qw(:standard);

print	header(),
	start_html("Street Print CD Catalog"),
	h1("StreetPrint CD Catalog");

if (param()) {
chomp(my $color = param("color"));
chomp(my $pattern = param("pattern"));
print p($color, br(), $pattern);
open (DBFILE, "<form.db") or die "$!";
while (my $line = <DBFILE>) {
chomp $line;
my @record = split /\|/, $line, 4;
# $record[0] is name, 1 => color 2 => pattern, etc.
if ($record[1] =~ /$color/i or $record[2] =~ /$pattern/i)
	{		
	print p($record[0], br(), $record[1], br(), $record[2], br(), $record[3]);	
	}
}

close (DBFILE);



} else {
print start_form();
print p("What Color do you want? ", popup_menu("color", ["Any", 'Brick', 'Terracotta','Burnt Sienna','Hunter Green','Safety Blue','White', 'Bedrock','Slate','Sierra']));
print p("What Pattern do you want? ", popup_menu("pattern", ["Any", 'Offset Brick','Herringbone','Herringbone Diagonal','Ashlar Slate','British Cobble','Frisco Cobble','Random Stone','Eurofan']));
print p(submit("Find"), reset("Reset"));
print end_form;
}
print end_html;