#!/usr/bin/perl
# -I/usr/local/apache/virtual/o/www.obm.co.uk/bin/webdb

use lib '../bin/webdb';
use lib '../bin/perl5/lib';

#$ENV{'PATH'}.=":/usr/local/apache/virtual/o/www.obm.co.uk/bin";
#$ENV{'PATH'}.=":../bin";
$ENV{'PATH'}="/bin:/usr/bin:../bin";

$VAT=17.5;			# V.A.T. Amount

$company="Leisuretec";		# Company name to appear on HTML output pages
$bgcolor="#ffffff";		# Background color for HTML pages
$poundsign="£";		# HTML Entity for Pound Sign (£)
$titlebgcolor="whitesmoke";	# Background colour for titles

# Program name
if($0=~/\//) {
	($ProgramDir=$0)=~s/^(.*)\/[^\/]*$/$1/;
}
else {
	$ProgramDir=$ENV{'CWD'};
}
$ProgramName=$0;
$ProgramName=~s/^.*\/([^\/]+)$/$1/;
$ProgramName=~s/\.([^\.]+)$//;
$ProgramDir="." if(!$ProgramDir);
$SilentMode=0;	# Silent operation mode off by default

# HTML Output Directory
#$htmlwwwhome="/usr/local/apache/virtual/o/www.obm.co.uk/docs";	# Home directory for WWW server
$htmlwwwhome="../docs";	# Home directory for WWW server
$htmloutput="${htmlwwwhome}/catalog";
$htmlext=".html";
$tocfilename="toc";
$bullet="/images/blt_blue.gif";	# Bullet image to use

#$update_catalogue_cache_program="/usr/local/apache/virtual/o/www.obm.co.uk/bin/catalogue.pl -updatecache";
$update_catalogue_cache_program="../bin/catalogue.pl -updatecache";

# Shopping Basket Configuration
$HREFbasket="/cgi-bin/basket";		# Shopping Basket URL location
$IMGbasket="/images/basket1.gif";	# Bullet image to use

$HREFprefixNeeded="YES";		# Set to YES if basket resides on another site
$HREFprefix="http://www.obm.co.uk";	# Normal site prefix
$HREFprefixBasket="https://www.obm.co.uk";	# Basket site prefix
#$HREFprefixBasket="http://194.168.85.58";	# Basket site prefix

$HREFSecureprefix="https://www.obm.co.uk";	# Secure site prefix

if($HREFprefixNeeded eq "YES") {
	$HREFbasket=$HREFprefixBasket.$HREFbasket;
}
else {
	$HREFprefix = "";
}

# Recommendation Configuration File
$RecommendConfigFile="${htmloutput}/recommend.cnf";
$RecommendTitle="Recommendations";
$RecommendDataFile="${htmloutput}/recommend.dat";
$BasketItemsDataFile="${htmloutput}/basketitems.dat";

# Database Export File settings
$input_filename="full_bin.txt";
$fielddelimchar="^";		# Field Delimited
$fielddelim='\^';		# RegEx to match field delimited
$fieldsexpected=19;

# Record Selection
#$ignore_manu_codes="(0|40|41|5|60)";	# Ignore these manufacturers
#$ignore_manu_codes="(0|40|41|5|60|24|90)";	# Ignore these manufacturers
$ignore_manu_codes="(0|40|41|5|60|24|90|10)";	# Ignore these manufacturers

# Pricing codes
$pricePOA="P.O.A.";	# Price code = -2


# Determine Input Filename
if(length($ARGV[0])>0) {
	$input_filename=$ARGV[0];
}

# Setup output string arrays
@monthstring=("January","February","March","April","May","June","July","August","September","October","November","December");
@daystring=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday");

# HTML Output
$htmlheader="<TABLE WIDTH=100%% BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR=whitesmoke>\n<TR>\n";
$htmlheader.="<TD ALIGN=LEFT><FONT SIZE=-1><B>Leisuretec</B></FONT></TD>\n";
$htmlheader.="<TD ALIGN=RIGHT><FONT SIZE=-1>PO Box 68 - Benfleet - SS7 2YX - England - <I>+44 1702 551863</I></FONT></TD>\n";
$htmlheader.="</TR>\n</TABLE>\n";

$htmlfooter="<P></P>\n";
$htmlfooter.="<TABLE WIDTH=100%%>\n";
$htmlfooter.="<TR BGCOLOR=whitesmoke ALIGN=CENTER>\n";
$htmlfooter.="<TH><FONT FACE=Helvetica SIZE=-1>\n";
$htmlfooter.="Please note that all models may change without notification.<BR>\n";
$htmlfooter.="Please telephone for up-to-date information and details.\n";
$htmlfooter.="</FONT></TH>\n";
$htmlfooter.="</TR>\n";
$htmlfooter.="</TABLE>\n";
#$htmlfooter.=&footeraddress($input_filename);


sub footeraddress
{
	local($input_filename)=$_[0];
	local($string);

	$string="<HR>\n";
	$string.="<ADDRESS>\n";
	$string.="<TABLE WIDTH=100%%>\n";
	$string.="<TR VALIGN=TOP>\n";
	$string.="<TD ALIGN=LEFT>\n";
	$string.="<FONT SIZE=-1>\n";
	$string.="Sales / <A HREF=\"mailto:sales\@obm.co.uk\">sales\@obm.co.uk</A><BR>\n";
	$string.="</FONT>\n</TD>\n";
	$string.="<TD>\n<FONT SIZE=-2>\n";
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime((stat($input_filename))[9]);
	#$year=sprintf "%d$year",($year>95)?19:20;
	$year=$year+1900;
	$timestring=sprintf "%s %d %s %d %d:%.2d",$daystring[$wday],$mday,$monthstring[$mon],$year,$hour,$min;
	$string.="<I>Last Modified:</I> ${timestring}<BR>\n";
	#$string.="<I>URL:</I> http://www.leisuretec.mail.co.uk<!--#echo var="DOCUMENT_URI"-->\n";
	$string.="</FONT>\n";
	$string.="</TR>\n";
	$string.="</TABLE>\n";
	$string.="</ADDRESS>\n";

	return $string;
}


if(! -d "$htmloutput") {
	printf STDERR "Catalogue directory $htmloutput does not exist!\n";
	exit -1;
}

if($ProgramName eq "recommend") {
	$SilentMode=0;
	&recommend;
	exit 0;
}
elsif($ProgramName eq "basket") {
	$SilentMode=1;
	&basket;
	exit 0;
}
else {
}

use WebDB;

if(%Optics=&ReadDatabase($input_filename) != undef) {
#if(open(OPTICS,"gunzip -c $input_filename |")) {
#	printf "Input taken from $input_filename\n";
#	@Optics=<OPTICS>;
#	close(OPTICS);

#	$loop=0;
#	while(<OPTICS>) {
#		last if($loop>2);
#		chop;
#		printf "Test: $_\n";
#		@data=split(/${fielddelim}/,$_);
#			printf "Matched\n";
#			printf "GOT: @_[0] - @_[1] - @_[2]\n";
#		$loop++;
#	}
	
	# Move through the list of items and reorder the relevant fields
	$FieldTitles=shift(@Optics);	# Store the field titles line
	undef @Data;
	while($_=shift(@Optics)) {
		chop;
		$_ =~ s/\234/${poundsign}/g;
		my ($Fmodel,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmanucode,$Fmanudesc,$Frangcode,$Frangdesc,$Franginfo,$Fsectcode,$Fsectdesc,$Fsectinfo,$Flistord,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended)=split(/${fielddelim}/,$_);
		if($Fmanucode!~/^${ignore_manu_codes}$/) {
			push(@Data,join("${fielddelimchar}",$Fmanucode,$Frangcode,$Fsectcode,$Flistord,$Fmodel,$Fmanudesc,$Frangdesc,$Fsectdesc,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended));
		}
	}

#	shift(@Data);		# Remove the line containing headings
	@Optics=sort sortbycode (@Data);
	undef @Data;

	$dbobject = WebDB->new("leisuretec");

	# Load the recommended configuration information
	# This has been expanded and is being used to identify 'type' and
	# 'category' for each item.
	undef %TypeCategoryConfig;
	if(open(FILE,"${RecommendConfigFile}")) {
		while(<FILE>) {
			if(!/^#/ && /^([^=]+)=(.*)$/) {
				$TypeCategoryConfig{"$1"}=$2;
			}
		}
	}
	# End of Load

	# @Optics now holds all the sorted optics data
	printf "Outputing catalogue data to the directory $htmloutput\n";
	$lastmanudesc="";
	$lastmanu=-1;
	$lastrang=-1;
	$lastsect=-1;
	$fileopen="false";
	$count=0;
	$table=0;	# Indicate whether table tag has been output
	undef @toc;
	undef @recommend;
	undef @basketitems;
	my %data_manu;
	while($_=shift(@Optics)) {
		($Fmanucode,$Frangcode,$Fsectcode,$Flistord,$Fmodel,$Fmanudesc,$Frangdesc,$Fsectdesc,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended)=split(/${fielddelim}/,$_);
		next if(length($Fmanucode)==0);
		
		# Add to recommendation list if relevant
		if($Frecommended=~/1/) {
			push(@recommend,$_);
		}
		#

		# Add to basket items if there is a model number
		if(length($Fmodel)>0 && $Fprice > 0) {
			my $d = $Fdesc;
			$d.=" - ".$Fmag if(length($Fmag)>0);
			$d.=" - ".$Finfo if(length($Finfo)>0);
			push(@basketitems,$Fmodel.$fielddelimchar.$Fmanudesc.$fielddelimchar.$d.$fielddelimchar.$Fprice);
		}
		#

		if($Fmanucode != $lastmanu) {   # New manufacturer
			if($lastmanu!=-1) {
				printf "$count items for $lastmanudesc ($lastmanu)\n";

				my %data;
				#printf "Count for Manu $Fmanucode added\n";
				${ $data_manu{$Fmanucode} }{'--COUNT--'} = $count;

				$count=0;
			}
			$lastmanudesc=$Fmanudesc;
			$lastmanu=$Fmanucode;
			if($table>0) {
				printf OUTPUT "</TABLE>\n";
				$table=0;
			}
			#printf OUTPUT "<!--#include virtual=\".default-footer.html\"-->\n</BODY>\n</HTML>\n";
			printf OUTPUT "$htmlfooter\n";
			printf OUTPUT &footeraddress($input_filename);
			printf OUTPUT "\n</BODY>\n</HTML>\n";
			close(OUTPUT);
			$fileopen="false";
			if(open(OUTPUT,"> $htmloutput/$Fmanucode$htmlext")) {
				$fileopen="true";
				# Output the page header here
				printf OUTPUT "<HTML>\n<HEAD>\n<TITLE>$company - $Fmanudesc</TITLE>\n</HEAD>\n<BODY BGCOLOR=${bgcolor}>\n";
				#printf OUTPUT "<!--#include virtual=\".default-header.html\"-->\n";
				printf OUTPUT "$htmlheader\n";
				printf OUTPUT "<H1 ALIGN=CENTER><FONT COLOR=lightslateblue>$Fmanudesc</FONT></H1>\n";
				printf OUTPUT "<P ALIGN=CENTER>Click <IMG SRC=\"$IMGbasket\"> to add items to your shopping basket. - <A HREF=\"$HREFbasket\?RETURN_LINK=%s\&RETURN_DESC=%s\" target=\"obmbasket\">View Basket</A> <A HREF=\"$HREFbasket\" target=\"obmbasket\"><IMG BORDER=0 SRC=\"$IMGbasket\"></A></P>\n",&HTML::HTMLencodeURL("/catalog/$Fmanucode$htmlext"),&HTML::HTMLencodeURL("$Fmanudesc");
				push(@toc,"$Fmanudesc$fielddelimchar$Fmanucode$htmlext");
				#printf "Desc and column titles for Manu $Fmanucode added ($Fmanudesc)\n";
				${ $data_manu{$Fmanucode} }{'--DESC--'} = $Fmanudesc;
				${ $data_manu{$Fmanucode} }{'--COL_TITLE_1--'} = $Fmagtitle;
				${ $data_manu{$Fmanucode} }{'--COL_TITLE_2--'} = $Fotherinfotitle;
				${ $data_manu{$Fmanucode} }{'--COL_TITLE_3--'} = $Fpricetitle;
			}
			else {
				printf STDERR "Can't open output file $htmloutput/$Fmanucode$htmlext: $!\n";
			}
			$lastrang=-1;
			$lastsect=-1;
		}
		if($fileopen=="true") {
			if($table==0) {
				printf OUTPUT "<TABLE WIDTH=100%% BORDER=0>\n";
				$table=1;
			}
			if($lastrang!=$Frangcode) {
				printf OUTPUT "<TR><TD><BR></TD></TR>\n" if($count>0);
				if(length($Frangdesc)>0) {
					if($Frangdesc eq "BLANK") { $Frangdesc=""; }
					printf OUTPUT "<TR CELLSPACING=0 BGCOLOR=peachpuff><TH COLSPAN=5 ALIGN=LEFT><FONT FACE=Helvetica SIZE=+2>$Frangdesc</FONT></TH></TR>\n";
					printf OUTPUT "<TR><TH ALIGN=LEFT></TH><TH ALIGN=LEFT></TH><TH ALIGN=LEFT><FONT SIZE=-1><I>$Fmagtitle</I></FONT></TH><TH ALIGN=LEFT><FONT SIZE=-1><I>$Fotherinfotitle</I></FONT></TH><TH ALIGN=RIGHT><FONT SIZE=-1><I>$Fpricetitle</I></FONT></TH></TR>\n";
					#printf "Desc for Range $Fmanucode/$Frangcode added ($Frangdesc)\n";
					${ ${ $data_manu{$Fmanucode} }{$Frangcode} }{'--DESC--'} = $Frangdesc;
				}
				$lastrang=$Frangcode;
				$lastsect=-1;
			}
			if($lastsect!=$Fsectcode) {
				printf OUTPUT "<TR><TH ALIGN=LEFT COLSPAN=5><I>%s</I></TH></TR>\n",($Fsectdesc eq "BLANK")?"&nbsp;":"$Fsectdesc";
				#printf "Desc for Section $Fmanucode/$Frangcode/$Fsectcode added ($Fsectdesc)\n";
				${ ${ ${ $data_manu{$Fmanucode} }{$Frangcode} }{$Fsectcode} }{'--DESC--'} = $Fsectdesc;
				$lastsect=$Fsectcode;
			}
			my %data_item;
			$data_item{'PRICE'} = $Fprice;
			if(length($Fprice)>0) {
				# Check price codes
				if($Fprice == -1) { $Fprice=""; }
				elsif($Fprice == -2) { $Fprice=$pricePOA; }
				else { $Fprice=sprintf "$poundsign%.2f",$Fprice; }
			}
			#printf OUTPUT "$Fmanudesc,$Fmanucode,$Frangdesc,$Frangcode,$Fsectdesc,$Fsectcode,$Flistord,$Fmodel,$Fdesc,$Fmag,$Finfo,$Fprice\n";
			
			# Determine if the model exists in the DB
			undef $dbmodel;
			$model_with_dashes = $Fmodel;
			$model_with_dashes =~ s/\s/-/g;
			$model_with_dashes =~ tr/[A-Z]/[a-z]/;
			$data_item{'TYPE_CODE'} = $Ftype;
			$data_item{'CATEGORY_CODE'} = $Fcategory;
			$data_item{'RECOMMENDED'} = $Frecommended;
			$data_item{'MODEL'} = $Fmodel;
			$data_item{'DESC'} = $Fdesc;
			$data_item{'COL1'} = $Fmag;
			$data_item{'COL2'} = $Finfo;
			$data_item{'COL3'} = $Fprice;
			#printf "M:%s R:%s S:%s\n",$Fmanucode,$Frangcode,$Fsectcode;
			#printf "Item Data added in $Fmanucode/$Frangcode/$Fsectcode added ($Fmodel)\n";
			push(@{ ${ ${ ${ $data_manu{$Fmanucode} }{$Frangcode} }{$Fsectcode} }{'ITEM_LIST'} },\%data_item);

			if($dbobject->Check_Record_Exists("PRODUCTS",$model_with_dashes)) {
				$dbmodel = $model_with_dashes;
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"PRICE",$Fprice);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"MANUFACTURER",$Fmanudesc);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"MANUFACTURER_CODE",$Fmanucode);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"TYPE_CODE",$Ftype);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"CATEGORY_CODE",$Fcategory);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"RECOMMENDED",$Frecommended);
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"TYPE",$TypeCategoryConfig{"Type.".$Ftype});
				$dbobject->Set_Field("PRODUCTS",$model_with_dashes,"CATEGORY",$TypeCategoryConfig{"Type.".$Ftype.".Category.".$Fcategory});
			}
			
			printf OUTPUT "<TR ALIGN=LEFT VALIGN=TOP><TD>%s$Fmodel%s</TD><TD>$Fdesc</TD><TD>$Fmag</TD><TD>$Finfo</TD><TD ALIGN=RIGHT>$Fprice%s</TD></TR>\n",defined($dbmodel)?"<A HREF=\"/products/db/${dbmodel}.htm\">":"",defined($dbmodel)?"</A>":"",(length($Fmodel)>0 && length($Fprice)>0 && $Fprice=~/^${poundsign}[0-9.]+$/)?" <A HREF=\"$HREFbasket\?ACTION=ADD\&ITEM=".&HTML::HTMLencodeURL($Fmodel)."\&RETURN_LINK=".&HTML::HTMLencodeURL("/catalog/$Fmanucode$htmlext")."\&RETURN_DESC=".&HTML::HTMLencodeURL("$Fmanudesc")."\" target=\"obmbasket\"><IMG BORDER=0 SRC=\"$IMGbasket\"></A>":"";
		}
		$count++;
	}
	if($table>0) { printf OUTPUT "</TABLE>\n"; }
	#printf OUTPUT "<!--#include virtual=\".default-footer.html\"-->\n";
	printf OUTPUT "${htmlfooter}\n";
	printf OUTPUT &footeraddress($input_filename);
	printf OUTPUT "</BODY>\n</HTML>\n";
	close(OUTPUT);
	if($lastmanu!=-1) {
		printf "$count items for $lastmanudesc ($lastmanu)\n";
	}

	foreach my $manu_code (keys %data_manu) {
		printf "Updating db with manufacturer '%s'\n",${ $data_manu{$manu_code} }{'--DESC--'};
		$dbobject->Store_Record('catalogue',$manu_code,$data_manu{$manu_code});
	}
	system("nohup","/bin/sh","-c","$update_catalogue_cache_program &");

	# Now output the Table-of-Contents for the different manufacturers
	if(open(OUTPUT,"> $htmloutput/$tocfilename$htmlext")) {
		printf OUTPUT "<HTML>\n<HEAD>\n<TITLE>$company - Binoculars &amp; Telescopes Catalogue</TITLE>\n</HEAD>\n<BODY BGCOLOR=${bgcolor}>\n";
		#printf OUTPUT "<!--#include virtual=\".default-header.html\"-->\n";
		printf OUTPUT "$htmlheader\n";
#		printf OUTPUT "<H1 ALIGN=CENTER>Binoculars &amp; Telescopes Catalogue</H1>\n";
		printf OUTPUT "<P></P>\n<TABLE WIDTH=100%% BGCOLOR=peachpuff>\n<TR><TH ALIGN=LEFT><FONT SIZE=+2 FACE=Helvetica>Binoculars &amp; Telescopes Catalogue</FONT></TH></TR>\n</TABLE>\n";
		printf OUTPUT "<TABLE CELLPADDING=0 WIDTH=100%><TR><TD ALIGN=RIGHT><A HREF=\"$HREFbasket\?RETURN_LINK=%s\&RETURN_DESC=%s\" target=\"obmbasket\">View Basket</A> <A HREF=\"$HREFbasket\" target=\"obmbasket\"><IMG BORDER=0 SRC=\"$IMGbasket\"></A></TD></TR></TABLE>\n",&HTML::HTMLencodeURL("/catalog/"),&HTML::HTMLencodeURL("Binoculars &amp; Telescopes Catalogue");
		printf OUTPUT "<UL>\n";
		@toc=sort(@toc);
		while($_=shift(@toc)) {
			($name,$file)=split(/${fielddelim}/,$_);
			$file=~s/^${htmlwwwhome}//;	# Remove server home dir
			printf OUTPUT "<IMG SRC=\"${bullet}\" ALT=\"*\"> <A HREF=\"${file}\">$name</A><BR>\n";
		}
		printf OUTPUT "</UL>\n";
		#printf OUTPUT "<!--#include virtual=\".default-footer.html\"-->\n";
		printf OUTPUT "${htmlfooter}\n";
		printf OUTPUT &footeraddress($input_filename);
		printf OUTPUT "</BODY>\n</HTML>\n";
		close(OUTPUT);
		printf "Table-of-Contents output to $htmloutput/$tocfilename$htmlext\n";
	}

	# Output the recommendation data
	if(open(DATA,"> $RecommendDataFile")) {
		printf "Recommendation data output to $RecommendDataFile\n";
		foreach(@recommend) {
			printf DATA "$_\n";
		}
		close(DATA);
	}

	# Output the basket items data
	if(open(DATA,"> $BasketItemsDataFile")) {
		printf "Basket Items data output to $BasketItemsDataFile\n";
		foreach(@basketitems) {
			printf DATA "$_\n";
		}
		close(DATA);
	}
}
else {
	printf STDERR "Can't open $input_filename: $!\n";
}



# Sort the items by codes
sub sortbycode
{
	my ($AFmanucode,$AFrangcode,$AFsectcode,$AFlistord,$AFmodel,$AFmanudesc,$AFrangdesc,$AFsectdesc,$AFdesc,$AFmag,$AFinfo,$AFprice,$AFmagtitle,$AFotherinfotitle,$AFpricetitle)=split(/${fielddelim}/,$a);
	my ($BFmanucode,$BFrangcode,$BFsectcode,$BFlistord,$BFmodel,$BFmanudesc,$BFrangdesc,$BFsectdesc,$BFdesc,$BFmag,$BFinfo,$BFprice,$BFmagtitle,$BFotherinfotitle,$BFpricetitle)=split(/${fielddelim}/,$b);

	return (
		$AFmanucode <=> $BFmanucode ||
		$AFrangcode <=> $BFrangcode ||
		$AFsectcode <=> $BFsectcode ||
		$AFlistord <=> $BFlistord ||
		$AFmodel cmp $BFmodel
	);
}

# Read the Optics database
# First record will contain the fields in the database
sub ReadDatabase
{
	#local($input_filename)=$_[0];
	$input_filename=$_[0];
	local(%Optics);
	undef %Optics;
print STDERR "InputFilename: $input_filename\n" if($SilentMode==0);

	$readprog="cat";
	if(! -e $input_filename) {
print STDERR "  InputFilename didn't exist: $input_filename\n" if($SilentMode==0);
		foreach("gz:gunzip -c","Z:gunzip -c") {
			if(/^([^:]+):(.*)$/) {
				$fileext="$1";
				$readprog="$2";
			}
			else {
				$fileext="$_";
				$readprog="cat";
			}
			if(-e "${input_filename}.${fileext}") {
				$input_filename.=".${fileext}";
print STDERR "  InputFilename found: $input_filename\n" if($SilentMode==0);
				last;
			}
		}
	}
	if(-e $input_filename && open(OPTICS,"${readprog} ${input_filename} |")) {
		printf STDERR "Input taken from $input_filename\n" if($SilentMode==0);
		@Optics=<OPTICS>;
		close(OPTICS);
		#@Optics=~s/\r$//;
		foreach(@Optics) {
			s/\r$//;
		}
		return %Optics;
	}
	else {
print STDERR "Problem opening input file $input_filename: $!\n" if($SilentMode==0);
		return undef;
	}
}

# Display the recommended items
sub recommend
{
	# Invoke the CGI parser
	require "${ProgramDir}/cgiparse.pl";
	use WebDB;

	# Load the recommended configuration information
	undef %RecommendConfig;
	if(open(FILE,"${RecommendConfigFile}")) {
		while(<FILE>) {
			if(!/^#/ && /^([^=]+)=(.*)$/) {
				$RecommendConfig{"$1"}=$2;
			}
		}
	}

	printf "<HTML>\n<HEAD>\n<TITLE>$company - ${RecommendTitle}</TITLE>\n<link rel=\"stylesheet\" href=\"/cgi-bin/css\" type=\"text/css\">\n</HEAD>\n<BODY BGCOLOR=${bgcolor}>\n";
	#printf "$htmlheader\n";
	printf "<H1 ALIGN=CENTER>${RecommendTitle}</H1>\n";

print STDERR "RecommendDataFile: $RecommendDataFile\n" if($SilentMode==0);
	%Optics=&ReadDatabase($RecommendDataFile);
print STDERR "Optics ref: ".\%Optics."\n" if($SilentMode==0);

	foreach(keys %FORM) {
#		printf "Key: $_\n";
		if(/^Type\.(.*)$/) {
			if($FORM{'_RECOMMEND_TYPE_'}!~/$1/)
				{ $FORM{'_RECOMMEND_TYPE_'}.="$1"; }
		}
	}

	foreach(keys %FORM) {
#		printf "Key: $_\n";
		if(/^Type\.([^\.]+)\.Category\.([^\.]+)/) {
			if($FORM{'_RECOMMEND_CATEGORY_'}!~/$1$2/) {
				if(length($FORM{'_RECOMMEND_CATEGORY_'})>0)
					{ $FORM{'_RECOMMEND_CATEGORY_'}.=","; }
				$FORM{'_RECOMMEND_CATEGORY_'}.="$1$2";
			}
		}
		
	}

	if(length($FORM{'_RECOMMEND_TYPE_'})==0 && $FORM{'_TYPE_SELECTED_'}) {
		$FORM{'_RECOMMEND_TYPE_'}=$FORM{'_TYPE_SELECTED_'};
	}

	if($#Optics < 0) {
		# No Optics database
		printf "<P>Sorry! An error was encountered and the recommendations could not be retreived.</P>\n";
	}
	elsif($FORM{'_RECOMMEND_CATEGORY_'}) {
		# Category Recommendations requested
		$lasttype="";
		$lastcategory="";
		$tableopen=0;	# Monitor whether a table is open or closed
		foreach(split(",",$FORM{'_RECOMMEND_CATEGORY_'})) {
			($type,$category)=/^(.)(.)/;

			# Output a heading for the type
			if($lasttype ne $type) {
				if($tableopen==1) {
					printf "</TABLE>\n";
					$tableopen=0;
				}
				printf "<TABLE WIDTH=100%%><TR BGCOLOR=${titlebgcolor}><TD><B><FONT FACE=Helvetica SIZE=+1>%s</FONT></B></TD></TR></TABLE>\n",&RecommendOutput('Type.'.${type},@RecommendConfig);
				$lasttype=$type;
				$lastcategory="";
			}

			# Output the category heading
			if($lastcategory ne $category) {
				if($tableopen==1) {
					printf "</TABLE>\n";
					$tableopen=0;
				}
				printf "<TABLE WIDTH=100%%><TR><TD><B><FONT FACE=Helvetica>%s</FONT></B></TD></TR></TABLE>\n",&RecommendOutput('Type.'.${type}.'.Category.'.${category},@RecommendConfig);
			}

			# Output the recommended items
			my $db = new WebDB("leisuretec");
			foreach(@Optics) {
				($Fmanucode,$Frangcode,$Fsectcode,$Flistord,$Fmodel,$Fmanudesc,$Frangdesc,$Fsectdesc,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended)=split(/${fielddelim}/,$_);
				if($Ftype=~/${type}/ && $Fcategory=~/${category}/) {
					if($tableopen==0) {
						printf "<TABLE WIDTH=100%%>\n";
						$tableopen=1;
					}
					$model_with_dashes = $Fmodel;
					$model_with_dashes =~ s/\s/-/g;
					$model_with_dashes =~ tr/[A-Z]/[a-z]/;
					my $modellinked = $model_with_dashes;
					$modellinked = "<A HREF=\"/products/db/".$model_with_dashes.".htm\">".$model_with_dashes."</A>" if($db->Check_Record_Exists("products",$Fmodel));
					printf "<TR ALIGN=LEFT><TD>%s</TD><TD>%s</TD><TD ALIGN=RIGHT>$poundsign%.2f</TD></TR>\n",$modellinked,$Fdesc,$Fprice;
				}
			}
#			printf "Type: $type - Category $category\n";
		}
		if($tableopen==1) {
			printf "</TABLE>\n";
			$tableopen=0;
		}
		printf "$htmlfooter";
	}
	elsif($FORM{'_RECOMMEND_TYPE_'}) {
		# Recommendations requested
		printf "<P>Please selection one or more categories of interest:</P>\n";
		printf "<FORM ACTION=${ProgramName} METHOD=POST>\n";
		printf "<INPUT TYPE=HIDDEN NAME=\"_TYPE_SELECTED_\" VALUE=\"%s\">\n",$FORM{'_RECOMMEND_TYPE_'};
		foreach(split("",$FORM{'_RECOMMEND_TYPE_'})) {
			$type=$_;
			printf "<P>Recommendations for <B>%s</B></P>\n",&RecommendOutput('Type.'.${type},@RecommendConfig);
			$categories="";
			foreach(@Optics) {
				($Fmanucode,$Frangcode,$Fsectcode,$Flistord,$Fmodel,$Fmanudesc,$Frangdesc,$Fsectdesc,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended)=split(/${fielddelim}/,$_);
				if(${Ftype}=~/${type}/) {
					foreach(split("",$Fcategory)) {
						$categories.="$_" if($categories!~/$_/);
					}
				}
			}
			$output="";
			foreach(split("",$categories)) {
				$output.="<TR>";
				$output.=sprintf "<TD><A HREF=\"${ProgramName}\?_RECOMMEND_TYPE_=%s\&_RECOMMEND_CATEGORY_=%s%s\&_TYPE_SELECTED_=%s\">%s</A></TD>\n",${type},${type},$_,${type},&RecommendOutput('Type.'.${type}.".Category.".$_,@RecommendConfig);
				$output.=sprintf "<TD><INPUT TYPE=CHECKBOX NAME=\"Type.%s.Category.%s\"></TD>\n",${type},$_;
				$output.="</TR>\n";
			}
			if(length($output)>0) {
				printf "<DL><DD><TABLE>\n";
				printf "$output";
				printf "</TABLE></DD></DL>\n";
			}
			else {
				printf "<P>An error occured. No recommended categories could be read.</P>\n";
			}
		}
		printf "<P><INPUT TYPE=SUBMIT VALUE=\"View\">\n</P>";
		printf "</FORM>\n";
	}
#	elsif($FORM{'_REQUEST_METHOD_'}=~/empty|unknown/i) {
	else {
		# No selections made so far
		$types="";
		foreach(@Optics) {
			($Fmanucode,$Frangcode,$Fsectcode,$Flistord,$Fmodel,$Fmanudesc,$Frangdesc,$Fsectdesc,$Fdesc,$Fmag,$Finfo,$Fprice,$Fmagtitle,$Fotherinfotitle,$Fpricetitle,$Ftype,$Fcategory,$Frecommended)=split(/${fielddelim}/,$_);
			foreach(split("",$Ftype)) {
				$types.="$_" if($types!~/$_/);
			}
		}
		$output="";
		foreach(split("",$types)) {
			$output.="<TR>\n";
			$output.=sprintf "<TD><A HREF=\"${ProgramName}\?_RECOMMEND_TYPE_=%s\">%s</A></TD>\n",$_,&RecommendOutput('Type.'.$_,@RecommendConfig);
			$output.=sprintf "<TD><INPUT TYPE=CHECKBOX NAME=\"Type.%s\"></TD>\n",$_;
			$output.="</TR>\n";
		}
		if(length($output)>0) {
			printf "<P>Please select the type of equipment you want recommendations on:</P>\n";
			printf "<FORM ACTION=${ProgramName} METHOD=POST>\n";
			printf "<DL><DD><TABLE>\n";
			printf "$output";
			printf "<TR ALIGN=CENTER><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE=\"View\"></TD>\n";
			printf "</TABLE></DD></DL>\n";
			printf "</FORM>\n";
		}
		else {
			printf "<P>An error occured. No recommended areas could be read.</P>\n";
		}
	}

	#printf &footeraddress($RecommendDataFile);
	printf "</BODY>\n</HTML>\n";
}

sub RecommendOutput
{
	local($variable)=shift(@_);
	local($RecommendConfig)=@_;

	if($RecommendConfig{$variable}) { return $RecommendConfig{$variable}; }
	else {
		$variable=~s/^.*\.(.+)/$1/;
		return $variable;
	}
}


# -----------------------------------------------------------------------------
# Shopping Basket
#
#

$BASKETidformvar="LEISURETEC_BASKET_ID";
$BASKETidcookie="LEISURETEC_BASKET_ID";

# Actions: ADD REMOVE DISPLAY
sub basket
{
	use HTML;
	use WebDB;
	use Template;

	# Redirect to Secure server if necessary
	# This won't work with POST forms, so make sure
	# we redirect at the beginning before forms are in use.
#	if($ENV{'HTTPS'} !~ /ON/i) {
#		my $q = $ENV{'QUERY_STRING'};
#		$q = "?".$q if(length($q)>0);
#		Use_Secure_Server($HREFSecureprefix.$ENV{'SCRIPT_NAME'}.$q);
#		exit 0;
#	}


	my $cookie_expiry_time = 60*60*24*30*3;	# 3months
	my $cookies = HTML->HTMLcookie;

	my $db = WebDB->new("leisuretec");
	if(!defined($db)) {
		printf STDERR "Can't open database!\n";
		my $html = Template->new;
		$html->compile_template_data("sorry_no_basket");
		return;
	}

	my $basketid = undef;
	my $send_basketid = "NO";
	if(defined($$cookies{'basketid'}) && $db->Check_Record_Exists("basket",$$cookies{'basketid'})) {
		# If there is a basketid and it still exists in our database...
		$basketid=$$cookies{'basketid'};
	}
	else {
		# Otherwise we issue a new basketid...
		my $timenow = time;
		my $i = 0;
		$send_basketid = "YES";
		$basketid=sprintf("%s-%s-%s",$timenow,$ENV{'REMOTE_ADDR'},$i);
		while($db->Check_Record_Exists("basket",$$cookies{'basketid'})) {
			# Increment $i until a new basket is found.
			if($i==1000) {
				$basketid=undef;
				my $send_basketid = "NO";
				last;
			}
			$i++;
			$basketid=sprintf("%s-%s-%s",$timenow,$ENV{'REMOTE_ADDR'},$i);
		}
		$db->Set_Field("basket",$basketid,"BASKET_ID",$basketid);
	}

	if(!defined($basketid)) {
		printf STDERR "Can't allocate a new basket!\n";
		my $html = Template->new;
		$html->compile_template_data("sorry_no_basket");
		return;
	}

	if($send_basketid eq "YES") {
		my $expiry_time = time+$cookie_expiry_time;
		my $basket_cookie = sprintf("basketid=%s; expires=%s; path=/",$basketid,&StringTime($expiry_time));
		$db->Set_Field("basket",$basketid,"EXPIRY_TIME",$expiry_time);
		HTML->CGI_Header("text/html",$basket_cookie);
	}
	else {
		HTML->CGI_Header("text/html");
	}

	my %formdata = HTML->HTMLinput;
	my($return_link)=$formdata{'RETURN_LINK'};
	my($return_desc)=$formdata{'RETURN_DESC'};

	my $output;

	if($formdata{'ACTION'} eq "ADD") {
		if(length($formdata{'ITEM'})>0) {
			my(@itemvalues) = &Get_Item_Details($formdata{'ITEM'});
			if(@itemvalues && $#itemvalues==3-1) {
				my($model)=$formdata{'ITEM'};
				my($manu,$desc,$price)=@itemvalues;
				my $itemsdata = $db->Get_Field("basket",$basketid,"ITEMS");
				my @items = split(/;/,$itemsdata);
				my $additem = "YES";
				foreach(@items) {
					if(/^([^:]+):(\d+)$/) {
						my($m,$q) = ($1,$2);
						if($m eq $model) {
							$q++;
							$_=sprintf("%s:%d",$m,$q);
							$additem = "NO";
						}
					}
				}
				push(@items,$model.":1") if($additem eq "YES");
				$itemsdata = join(";",@items);
				$db->Set_Field("basket",$basketid,"ITEMS",$itemsdata);
			}
		}
		$output.=&Display_Basket($basketid,$db,$return_link,$return_desc,$formdata{'INFO_MSG'});
	}
	elsif($formdata{'ACTION'} =~ /EMPTY BASKET/i) {
		$db->Set_Field("basket",$basketid,"ITEMS","");
		$output.=&Display_Basket($basketid,$db,$return_link,$return_desc,$formdata{'INFO_MSG'});
	}
	elsif($formdata{'ACTION'} =~ /(SUBMIT|PLACE) ORDER/i) {
		if(length($db->Get_Field("basket",$basketid,"ITEMS"))==0) {
			$output.=&Display_Basket($basketid,$db,$return_link,$return_desc,$formdata{'INFO_MSG'});
		}
		elsif($formdata{'SUBACTION'} eq "PAYMENT_DETAILS") {
			# User has supplied payment details and verified order 
			# Now we need to check the payment details
			$output.=&Process_Order($basketid,$db,\%formdata,$return_link,$return_desc);
		}
		else {
			$output.=&Get_Payment_Details($basketid,$db,$return_link,$return_desc);
		}
	}
	elsif($formdata{'ACTION'} =~ /RECALCULATE/i) {
		# User has changed the quantity settings, so check through
		# items and compare quantities, then update db basket record.
		&Check_Quantities($basketid,$db,\%formdata);
		$output.=&Display_Basket($basketid,$db,$return_link,$return_desc,$formdata{'INFO_MSG'});
	}
	else {
		$output.=&Display_Basket($basketid,$db,$return_link,$return_desc,$formdata{'INFO_MSG'});
	}

	printf $output;
	return;
}

# Redirect to Secure server if necessary
sub Use_Secure_Server {
	my $url = shift;
	if($ENV{'HTTPS'} !~ /ON/i) {
		# Https is not currently in use, redirect to correct place.
		#printf "HTTP/1.0 302\n";
         	print "Location: ".$url."\n";
		print "Content-type: text/html\n";
		printf "\n";
	}
}


sub Get_Payment_Details
{
	my($basketid,$db,$return_link,$return_desc) = @_;
	
	my $output = "";
	$output.=&Basket_Page_Header("Online Order Processing");

	my $items = $db->Get_Field("basket",$basketid,"ITEMS");
	$output.=sprintf("<FORM ACTION=\"%s\" METHOD=POST>\n",$ProgramName);
	$output.="<TABLE WIDTH=100% ALIGN=CENTER>\n";
	$output.=sprintf("<TR><TD><IMG SRC=\"/images/1.gif\"></TD><TD><FONT FACE=\"Helvetica,Arial\">Please check your order items are correctly listed below.<BR>If not, return to your <A HREF=\"%s\?RETURN_LINK=%s\&RETURN_DESC=%s\" target=\"obmbasket\">Shopping Basket</A> and add or remove items.<BR>Alternatively you can continue browsing at your last location <A HREF=\"$HREFprefix%s\">%s</A>.</FONT></TD></TR>\n",$HREFbasket,&HTML::HTMLencodeURL($return_link),&HTML::HTMLencodeURL($return_desc),$return_link,$return_desc);
	$output.="<TR><TD></TD><TD ALIGN=CENTER><TABLE BORDER=1 WIDTH=85% BGCOLOR=#ffdddd><TR><TD><TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0>\n";
	$output.="<TR ALIGN=LEFT><TH WIDTH=15%>Item</TH><TH WIDTH=45%>Description</TH><TH WIDTH=15% ALIGN=RIGHT>Unit Price</TH><TH WIDTH=10% ALIGN=RIGHT>Qty</TH><TH WIDTH=15% ALIGN=RIGHT>Cost</TH></TR>\n";
	$output.="<TR><TD COLSPAN=5><HR></TD></TR>\n";
	my $total = 0;
	my $count = 0;
	my $count_items = 0;
	my $item;
	foreach $item (split(/;/,$items)) {
		$item =~ /^(.*):(\d*)$/;
		$count++;
		my($model,$quantity) = ($1,$2);
		my @itemdata = &Get_Item_Details($model);
		if(@itemdata && $#itemdata==3-1) {
			my($manu,$desc,$price) = @itemdata;
			$total=$total+($price*$quantity);
			$count_items=$count_items+$quantity;
			$output.=sprintf("<TR><TD>%s</TD><TD><FONT SIZE=-1>%s<BR>%s</FONT></TD><TD ALIGN=RIGHT>%s%.2f</TD><TD ALIGN=RIGHT>%d</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$model,$manu,$desc,$poundsign,$price,$quantity,$poundsign,$quantity*$price);
		}
		else {
			$output.=sprintf("<TR><TD>%s</TD><TD COLSPAN=2><I>%s</I></TD><TD ALIGN=RIGHT>%d</TD><TD ALIGN=RIGHT></TD></TR>\n",$model,"This product is currently unavailable","0");
		}
	}
	$output.="<TR><TD COLSPAN=5><HR></TD></TR>\n";
	$output.=sprintf("<TR><TD COLSPAN=4 ALIGN=RIGHT>Postage & Packaging</TD><TD ALIGN=RIGHT>TBA</TD></TR>\n");
	#$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=LEFT></TD><TD ALIGN=RIGHT>V.A.T.</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$poundsign,$total-($total/1.175));
	$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=RIGHT></TD><TD ALIGN=RIGHT>Total</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$poundsign,$total);
	$output.="<TR><TD COLSPAN=5 ALIGN=LEFT><FONT FACE=\"Helvetica,Arial\" SIZE=-1>Postage and packaging will be notified with order confirmation.</FONT></TD></TR>\n";
	$output.="</TABLE>\n";
	$output.="</TD></TR></TABLE>\n";
	$output.="</TD></TR>\n";
	$output.="<TR><TD></TD><TD><FONT SIZE=-1 FACE=\"Helvetica,Arial\">The prices listed here are for guidance only. Whilst we make every effort to keep this on-line price list up-to-date, we can not be held responsible for any changes in the pricing or products which may occur. Although we offer a method for online ordering, your order will be validated off-line. Although rather seldom, any price different between the online pricing shown here and the actual verified pricing will be notified to you. Orders which result is a price difference will need to be authorised by you before the transaction takes place. Postage &amp; packaging will also vary based upon the items and your location.</FONT></TD></TR>\n";
	$output.=sprintf("<TR><TD><IMG SRC=\"/images/2.gif\"></TD><TD>Please complete the payment details.</TD></TR>\n");
	$output.=sprintf <<HTMLEOF;
<TD></TD>
<TD ALIGN=CENTER>
<FONT SIZE=-1 FACE=\"Helvetica,Arial\">Please note that we can only accept orders for delivery to the card holders address.</FONT><BR>
<TABLE WIDTH=85%% BGCOLOR=#ddddff BORDER=1><TR><TD><TABLE WIDTH=100%% CELLSPACING=0 CELLPADDING=0>
<TR><TD><FONT FACE=\"Helvetica,Arial\" SIZE=+1><B>Card Holder Details</B></A></TD><TD></TD></TR>
<TR><TD>Full Name:
<BR><FONT SIZE=-2 FACE=\"Helvetica,Arial\" COLOR=#0000ff>This must match the card holders name.</FONT>
</TD><TD><INPUT TYPE=TEXT NAME=CUSTOMER_NAME SIZE=40>*
</TD></TR>
<TR><TD ROWSPAN=2>Address:
<BR><FONT SIZE=-2 FACE=\"Helvetica,Arial\" COLOR=#0000ff>This must match the card holders address,<BR>and will also be used for delivery.</FONT>
</TD><TD><INPUT TYPE=TEXT NAME=ADDRESS_1 SIZE=40>*</TD></TR>
<TR>           <TD><INPUT TYPE=TEXT NAME=ADDRESS_2 SIZE=40></TD></TR>
<TR><TD>Town / City:</TD><TD><INPUT TYPE=TEXT NAME=TOWN SIZE=30>*</TD></TR>
<TR><TD>County / State:</TD><TD><INPUT TYPE=TEXT NAME=COUNTY SIZE=30>*</TD></TR>
<TR><TD>Postal Code / ZIP Code:</TD><TD><INPUT TYPE=TEXT NAME=POSTCODE SIZE=15>*</TD></TR>
<TR><TD>Country:</TD><TD><INPUT TYPE=TEXT NAME=COUNTRY SIZE=15>*</TD></TR>
<TR><TD>Daytime Telephone:</TD><TD><INPUT TYPE=TEXT NAME=TELEPHONE_DAYTIME SIZE=20>*</TD></TR>
<TR><TD>Evening Telephone:</TD><TD><INPUT TYPE=TEXT NAME=TELEPHONE_EVENING SIZE=20></TD></TR>
<TR><TD>Email Address:</TD><TD><INPUT TYPE=TEXT NAME=EMAIL SIZE=40>*</TD></TR>
<TR><TD COLSPAN=2><HR></TD></TR>
<TR><TD>Card Type:</TD><TD>
<SELECT NAME=CARD_TYPE>
<OPTION>** Select from list **
<OPTION>American Express
<OPTION>Delta
<OPTION>JCB
<OPTION>Mastercard
<OPTION>Solo
<OPTION>Switch
<OPTION>Visa
</SELECT>*
</TD></TR>
<TR><TD>Card Number:</TD><TD><INPUT TYPE=TEXT NAME=CARD_NUMBER SIZE=30>*</TD></TR>
<TR><TD>Card Expiry Date:</TD><TD><INPUT TYPE=TEXT NAME=CARD_EXPIRY_DATE SIZE=10>*</TD></TR>
<TR><TD>Issue Number:
<BR><FONT SIZE=-2 FACE=\"Helvetica,Arial\" COLOR=#0000ff>If Applicable</FONT>
</TD><TD><INPUT TYPE=TEXT NAME=CARD_ISSUE_NUMBER SIZE=20></TD></TR>
<TR><TD>Issue Date:
<BR><FONT SIZE=-2 FACE=\"Helvetica,Arial\" COLOR=#0000ff>If Applicable</FONT>
</TD><TD><INPUT TYPE=TEXT NAME=CARD_ISSUE_DATE SIZE=10></TD></TR>
<TR><TD>Security Code:
</TD><TD><INPUT TYPE=TEXT NAME=CARD_SECURITY_CODE SIZE=5>
<FONT SIZE=-1 FACE=\"Helvetica,Arial\" COLOR=#0000ff>
<I>Last three digits found on the signature strip of your card.</I>
</FONT>
</TD>
</TR>

<TR><TD COLSPAN=2><HR></TD></TR>
<TR><TD>Comments:</TD><TD><TEXTAREA NAME=COMMENTS ROWS=3 COLS=40></TEXTAREA></TD></TR>
</TD></TR></TABLE>
</TABLE>
</TD>
<TR><TD></TD><TD ALIGN=CENTER>* <FONT FACE="Helvetica,Arial" SIZE=-1>denotes the compulsory fields</FONT></TD></TR>
HTMLEOF
	$output.="<TR><TD><IMG SRC=\"/images/3.gif\"></TD><TD>Please verify that your above order and payment details are correct, then hit the submit order button below.</TD></TR>\n";
	$output.=sprintf("<TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=SUBMIT NAME=ACTION VALUE=\"Submit Order\"></TD></TR>\n",(length($return_link)>0 && length($return_desc)>0)?"Return to <A HREF=\"$HREFprefix$return_link\">$return_desc</A> by using the other window":"");
	$output.="</TABLE>\n";
	$output.="<INPUT TYPE=HIDDEN NAME=RETURN_LINK VALUE=\"$return_link\">\n";
	$output.="<INPUT TYPE=HIDDEN NAME=RETURN_DESC VALUE=\"$return_desc\">\n";
	$output.="<INPUT TYPE=HIDDEN NAME=SUBACTION VALUE=\"PAYMENT_DETAILS\">\n";
	$output.="</FORM>\n";

	$output.=&Basket_Page_Footer;
	return $output;
}

sub Process_Order
{
	my($basketid,$db,$formdata,$return_link,$return_desc) = @_;
	
	my $output = "";
	$output.=&Basket_Page_Header("Online Order Submission");

	$valid = "YES";
	# Check for the required fields
	my $field;
	foreach $field ("CUSTOMER_NAME","ADDRESS_1","TOWN","COUNTY","POSTCODE","COUNTRY","EMAIL","CARD_NUMBER","CARD_EXPIRY_DATE") {
		$valid = "NO" if(length($$formdata{$field})==0);
	}

	if(length($$formdata{"TELEPHONE_DAYTIME"})==0 && length($$formdata{"TELEPHONE_EVENING"})==0) {
		$valid="NO";
	}
	if(length($$formdata{"CARD_TYPE"})==0 || $$formdata{"CARD_TYPE"} =~ /^\*\*/) {
		$valid="NO";
	}

	if($valid eq "YES") {
		$output.=&Store_Order($basketid,$db,$formdata);
	}
	else {
		$output.="<P>There were items missing which are required to complete your order. Please use the back button on your browser and complete the contact and card details.</P>\n";
	}

	$output.=&Basket_Page_Footer;
	return $output;
}

sub Store_Order
{
	my($basketid,$db,$formdata) = @_;

	my $items = $db->Get_Field("basket",$basketid,"ITEMS");
	my %data;

	#foreach my $field ("CUSTOMER_NAME","ADDRESS_1","ADDRESS_2","TOWN","COUNTY","POSTCODE","COUNTRY","TELEPHONE_DAYTIME","TELEPHONE_EVENING","EMAIL","CARD_TYPE","CARD_NUMBER","CARD_EXPIRY_DATE","CARD_ISSUE_NUMBER","CARD_ISSUE_DATE") {
	#	$data{$field} = $$formdata{$field};
	#}

	my @item_array = split(/;/,$items);
	my $item;
	foreach $item (@item_array) {
		$item =~ /^(.*):(\d*)$/;
		my($model,$quantity) = ($1,$2);
		my @itemdata = &Get_Item_Details($model);
		my($manu,$desc,$price);
		if(@itemdata && $#itemdata==3-1) {
			($manu,$desc,$price) = @itemdata;
		}
		$item = join(":",$model,$quantity,$manu,$desc,$price);
	}

	my $stored_okay = "YES";
	my %order_data;
	#$stored_okay = "NO" if($db->Set_Field("orders",$basketid,"BASKET_ID",$basketid)!=0);
	#$stored_okay = "NO" if($db->Set_Field("orders",$basketid,"ITEMS",join(";",@item_array))!=0);
	$order_data{"BASKET_ID"}=$basketid;
	$order_data{"ITEMS"}=join(";",@item_array);
	my $field;
	foreach $field ("CUSTOMER_NAME","ADDRESS_1","ADDRESS_2","TOWN","COUNTY","POSTCODE","COUNTRY","TELEPHONE_DAYTIME","TELEPHONE_EVENING","EMAIL","CARD_TYPE","CARD_NUMBER","CARD_EXPIRY_DATE","CARD_ISSUE_NUMBER","CARD_ISSUE_DATE","CARD_SECURITY_CODE","COMMENTS") {
		#$stored_okay = "NO" if($db->Set_Field("orders",$basketid,$field,$$formdata{$field})!=0);
		$order_data{$field}=$$formdata{$field};
	}
	my $order_ref = $basketid;
	$order_ref =~ s/\.//g;
	#$db->Set_Field("orders",$basketid,"ORDER_REF",$order_ref);
	$order_data{"ORDER_REF"}=$order_ref;
	$stored_okay="NO" if($db->Store_Record("orders",$basketid,\%order_data) == 1);
	

	# Now that we've stored the order, remove the basket ID
	#$db->Set_Field("basket",$basketid,"REMOVE_RECORD_AFTER",time);
	$db->Delete_Record("basket",$basketid) if($stored_okay eq "YES");

	my $output = "";
	$output.="Thank you for your order. You will receive a confirmation of the order and an order number shortly.<BR><BR>In the mean time, if you need to <A HREF=\"$HREFprefix/contact.html\">contact us</A> regarding this order, please quote the order reference number '<FONT COLOR=#0000bb>".$order_ref."</FONT>' in all correspondence.\n<BR><BR>Thank you for using our on-line ordering system.<BR><BR>Return to the <A HREF=\"$HREFprefix/\">OBM Home Page</A> by closing this window and using your original window to continue browsing.<BR><BR><BR><BR><BR>";

	return $output;
}

sub Check_Quantities
{
	my $basketid = shift;
	my $db = shift;
	my $formdata = shift;

	my $items = $db->Get_Field("basket",$basketid,"ITEMS");
	my %item_quantity;
	my @item_number;
	my $i = 0;
	my $item;
	foreach $item (split(/;/,$items)) {
		$i++;
		$item =~ /^(.*):(\d*)$/;
		$item_number[$i] = $1;
		$item_quantity{$1} = $2;
	}
	
	my $update_db = "NO";
	my $name;
	foreach $name (keys %{$formdata}) {
		if($name =~ /^ITEM_(\d+)_QUANTITY$/) {
			my $number = $1;

			# If non-numerical data is found then leave as is
			next if($$formdata{$name}!~/^\d+$/);
			if($$formdata{$name} ne $item_quantity{$item_number[$number]}) {
				# Item quantities differ, so update...
				$item_quantity{$item_number[$number]}=$$formdata{$name};
#printf STDERR "Checking Quantity: $number $name $$formdata{$name}\n";
				$update_db = "YES";
			}
		}
	}
	if($update_db eq "YES") {
		my @it;
		for(my $i=1; $i<=$#item_number; $i++) {
#printf STDERR "Checking $i %s=%s\n",$item_number[$i],$item_quantity{$item_number[$i]};
			if($item_quantity{$item_number[$i]}>0) {
				push(@it,$item_number[$i].":".$item_quantity{$item_number[$i]});
			}
		}
#printf STDERR "Setting DB: %s\n",join(";",@it);
		$db->Set_Field("basket",$basketid,"ITEMS",join(";",@it));
	}
}


sub Display_Basket
{
	my($basketid,$db,$return_link,$return_desc,$info_msg) = @_;
	if(!defined($basketid)) {
		printf STDERR "No basketid passed to Display_Basket!\n";
		my $html = Template->new;
		$html->compile_template_data("sorry_no_basket");
		return;
	}
	if(!defined($db)) {
		printf STDERR "No database object passed to Display_Basket!\n";
		my $html = Template->new;
		$html->compile_template_data("sorry_no_basket");
		return;
	}

	if(!defined($return_link)) {
		$return_link = "/catalog/";
		$return_desc = "Binoculars &amp; Telescopes Catalogue";
	}


	my $output ;
	$output.=&Basket_Page_Header("Shopping Basket",$info_msg);

	my $items = $db->Get_Field("basket",$basketid,"ITEMS");
	$output.=sprintf("<FORM ACTION=\"%s\" METHOD=POST>\n",$ProgramName);
	$output.="<TABLE ALIGN=CENTER>\n";
	$output.="<TR ALIGN=RIGHT BGCOLOR=#90EE90><TD COLSPAN=5><FONT FACE=\"Arial,Helvetica\"><FONT SIZE=-1><B>This is a secure page</B> -- If you would prefer, you may order directly with us by <A HREF=\"/contact.html\">telephone</A>.</FONT><BR><FONT SIZE=-2>You can check the page security by looking for the padlock symbol at the bottom of this window, or right-click and select Properties/View Page Info.</FONT></TD></TR>\n";
	$output.="<TR ALIGN=LEFT BGCOLOR=#B0FFB0><TD COLSPAN=5><FONT FACE=\"Arial,Helvetica\" SIZE=-2>A separate window (this window) has been opened in addition to the OBM site to allow you to access your basket securely. This provides a view into your secure basket whilst still offering you responsive browsing (in the other window) of our range of products. You may switch between the windows as you wish and you can close this window if you no longer wish to see it at this time. Your basket contents will be maintained and will be available next time you add to or view your secure basket.</FONT></TD></TR>\n";
	$output.="<TR ALIGN=LEFT><TH WIDTH=15%>Item</TH><TH WIDTH=45%>Description</TH><TH WIDTH=15% ALIGN=RIGHT>Unit Price</TH><TH WIDTH=10% ALIGN=RIGHT>Quantity</TH><TH WIDTH=15% ALIGN=RIGHT>Cost</TH></TR>\n";
	$output.="<TR><TD COLSPAN=5><HR></TD></TR>\n";
	my $total = 0;
	my $count = 0;
	my $item;
	foreach $item (split(/;/,$items)) {
		$item =~ /^(.*):(\d*)$/;
		$count++;
		my($model,$quantity) = ($1,$2);
		my @itemdata = &Get_Item_Details($model);
		if(@itemdata && $#itemdata==3-1) {
			my($manu,$desc,$price) = @itemdata;
			$total=$total+($price*$quantity);
			$output.=sprintf("<TR><TD>%s</TD><TD><FONT SIZE=-1>%s<BR>%s</FONT></TD><TD ALIGN=RIGHT>%s%.2f</TD><TD ALIGN=RIGHT><INPUT TYPE=TEXT NAME=ITEM_%d_QUANTITY VALUE=%d SIZE=3></TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$model,$manu,$desc,$poundsign,$price,$count,$quantity,$poundsign,$quantity*$price);
		}
		else {
			$output.=sprintf("<TR><TD>%s</TD><TD COLSPAN=2><I>%s</I></TD><TD ALIGN=RIGHT><INPUT TYPE=TEXT NAME=ITEM_%d_QUANTITY VALUE=%d SIZE=3></TD><TD ALIGN=RIGHT></TD></TR>\n",$model,"This product is currently unavailable",$count,"0");
		}
	}
	$output.="<TR><TD COLSPAN=5><HR></TD></TR>\n";
	$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=LEFT><FONT SIZE=-1 FACE=\"Helvetica\">Modify your quantity required and then select 'Recalculate'.<BR>Specify  a quantity of 0 to remove an item from your basket.</FONT></TD><TD ALIGN=RIGHT>Postage &amp; Packaging</TD><TD ALIGN=RIGHT>TBA</TD></TR>\n");
	#$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=LEFT><FONT SIZE=-1 FACE=\"Helvetica\">Modify your quantity required and then select 'Recalculate'.<BR>Specify  a quantity of 0 to remove an item from your basket.</FONT></TD><TD ALIGN=RIGHT>V.A.T.</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$poundsign,$total-($total/1.175));
	$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=RIGHT><INPUT TYPE=SUBMIT NAME=ACTION VALUE=\"Empty Basket\"><INPUT TYPE=SUBMIT NAME=ACTION VALUE=Recalculate></TD><TD ALIGN=RIGHT>Total</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$poundsign,$total);
	#$output.=sprintf("<TR><TD COLSPAN=3 ALIGN=RIGHT><INPUT TYPE=SUBMIT NAME=ACTION VALUE=\"Empty Basket\"><INPUT TYPE=SUBMIT NAME=ACTION VALUE=Recalculate></TD><TD ALIGN=RIGHT>Total</TD><TD ALIGN=RIGHT>%s%.2f</TD></TR>\n",$poundsign,$total);
	$output.=sprintf("<TR><TD COLSPAN=3>%s</TD><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT NAME=ACTION VALUE=\"Submit Order\"></TD></TR>\n",(length($return_link)>0 && length($return_desc)>0)?"Return to <A HREF=\"$HREFprefix$return_link\">$return_desc</A> by using the other window":"");
	$output.=sprintf("<TR><TD COLSPAN=5><FONT FACE=\"Helvetica,Arial\">Prices include UK V.A.T which can be deducted for residence outside the UK and EU countries. This is currently set at %.2f\%</FONT></TD></TR>\n",$VAT);
	$output.="</TABLE>\n";
	$output.="<INPUT TYPE=HIDDEN NAME=RETURN_LINK VALUE=\"$return_link\">\n";
	$output.="<INPUT TYPE=HIDDEN NAME=RETURN_DESC VALUE=\"$return_desc\">\n";
	$output.="</FORM>\n";
	$output.=&Basket_Page_Footer;
}


sub Get_Item_Details
{
	my $model = shift;

	%Optics=&ReadDatabase($BasketItemsDataFile);

	if(defined(@Optics)) {
		my @results = grep(/^$model$fielddelim/,@Optics);
		if($#results==-1) {
			# Nothing was returned, relax to case-insensitive search
			@results = grep(/^$model$fielddelim/i,@Optics);
		}
		if($#results==0) {
			my($item_model,$item_manu,$item_desc,$item_price) =
				split(/$fielddelim/,$results[0]);
			$item_price =~ s/[^\d\.]//;
			return($item_manu,$item_desc,$item_price);
		}
		else {
			return undef;
		}
	}
	else {
		return undef;
	}
}

sub Basket_Page_Footer
{
return <<HTML
<P></P>
<TABLE WIDTH=100%>
<TR BGCOLOR=whitesmoke ALIGN=CENTER>
<TH><FONT FACE=Helvetica SIZE=-2>
Please note that all models may change without notification.<BR>
Every effort is made to ensure that the details listed here are as up-to-date as possible, however, we can not be held responsible for any changes which may occur or be held responsible for any loss or damage incurred as a result of accessing or using this site.
All pricing and models on this website are provided as a guide.
Availability and pricing will be confirmed upon order placement.
By accessing this site, you agree to these terms and conditions and understand that all information on this web site is provided as guidance only.
We can not provide goods on a sales and return basis.
<BR>
Please telephone for up-to-date information and details.
</FONT></TH>
</TR>
</TABLE>

<HR>
<ADDRESS>
<TABLE WIDTH=100%>
<TR VALIGN=TOP>
<TD ALIGN=LEFT>
<FONT SIZE=-1>
Sales / <A HREF="mailto:sales\@obm.co.uk">sales\@obm.co.uk</A><BR>
</FONT>
</TD>
<TD>
<FONT SIZE=-2>
</FONT>
</TR>
</TABLE>
</ADDRESS>
</BODY>
</HTML>
HTML
}

sub Basket_Page_Header
{
	my $title = shift;
	my $info = shift;

	my $infostr = "";
	if(length($info)>0) {
		$infostr .= "<TABLE WIDTH=100% ALIGN=CENTER BGCOLOR=#eeeeff CELLPADDING=5>\n";
		$infostr .= "<TR><TD ALIGN=LEFT><FONT FACE=\"Arial,Helvetica\" SIZE=-1>${info}</FONT></TD></TR>\n";
		$infostr .= "</TABLE>\n";
	}
return <<HTML
<HTML>
<HEAD>
<TITLE>Leisuretec - $title</TITLE>
</HEAD>
<BODY BGCOLOR=#ffffff>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR=whitesmoke>
<TR>
<TD ALIGN=LEFT><FONT SIZE=-1><B>Leisuretec</B></FONT></TD>
<TD ALIGN=RIGHT><FONT SIZE=-1>PO Box 68 - Benfleet - SS7 2YX - England - <I>+44 
1702 551863</I></FONT></TD>
</TR>
</TABLE>

<P></P>
<TABLE WIDTH=100% BGCOLOR=peachpuff>
<TR><TH ALIGN=LEFT><FONT SIZE=+2 FACE=Helvetica>$title</FONT></TH></TR>
</TABLE>
$infostr

HTML
}

sub StringTime
{
	my $expirestime = shift;
	my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($expirestime);
	my $stringtime = sprintf("%s, %.d-%.3s-%.4d %.2d:%.2d:%.2d GMT",$HTML::daysfull[$wday+1],$mday,$HTML::months[$mon+1],$year+1900,$hour,$min,$sec);

	#printf "Retrieved cookies: %s<BR>\n",join(" ",keys(%{HTML->HTMLcookie}));
	return $stringtime;;
}