#!/usr/bin/perl

#use lib '../bin/webdb';
#use lib '../bin/perl5/lib';
use lib '/data/www/o/obm/www.obm.co.uk/bin/webdb';
use lib '/data/www/o/obm/www.obm.co.uk/bin/perl5/lib';
#use lib '/usr/local/apache/virtual/o/www.obm.co.uk/bin/perl5/lib/sun4-solaris';
use strict;
use WebDB;
use HTML;
use Cache;

# Program name
my $ProgramName;
my $ProgramDir;
if($0=~/\//) {
        ($ProgramDir=$0)=~s/^(.*)\/[^\/]*$/$1/;
}
else {
        $ProgramDir=$ENV{'CWD'};
}
$ProgramName=$0;
$ProgramName=~s/^.*\/([^\/]+)$/$1/;
$ProgramName=~s/\.([^\.]+)$//;
$ProgramDir="." if(!$ProgramDir);
my $DEBUG = 0;
my $show_currency = 1;

my $basket_url = "https://www.obm.co.uk/cgi-bin/basket";
my $basket_returnlink_title = "Catalogue";
my $basket_returnlink_url = "/cgi-bin/catalogue";
my $sterling_symbol = "£";

#my $template_file = '/usr/local/apache/virtual/o/www.obm.co.uk/data/template/catalogue.thtml';
my $template_file = '../data/template/catalogue.thtml';
my $products_url = '/products/db/$MODEL.htm';

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

# Set the devlopment environment
if($ENV{'SERVER_NAME'} eq 'wwwdev.obm.co.uk') {
	$basket_url =~ s/www.obm.co.uk/192.168.1.11/;
}

&main();

1;

sub main
{
	my $db = WebDB->new('leisuretec');
	my $cache = Cache->new('catalogue');

	# Firstly, check whether the cache update is requested
	if($ARGV[0] =~ /^-updatecache$/i) {
		# Update the manufacturer list
		my $output = &build_manufacturer_list($db);
		$cache->store('#MANULIST#',$output);
		# Update each manufacturer page
		foreach my $manu ($db->Get_Record_List('CATALOGUE')) {
			my $output = &build_manufacturer_items($db,$manu);
			$cache->store($manu,$output);
		}
		return;
	}

	my %web_data = HTML->HTMLinput;
	
	HTML->CGI_Header;
	$web_data{'MANUFACTURER'} = $web_data{'manufacturer'} if(length($web_data{'MANUFACTURER'})==0);

	#printf "Catalogue Requested: %s\n",$web_data{'MANUFACTURER'};


	if(length($web_data{'MANUFACTURER'})>0 && $db->Check_Record_Exists('CATALOGUE',$web_data{'MANUFACTURER'})) {
		# We display the requested manufacturer page if it exists
		#printf "Displaying manufacturer items\n";
		my $data = $cache->retrieve($web_data{'MANUFACTURER'});
		if(defined($data)) {
			print output_template($db,\%web_data,$template_file,$data);
		}
		else {
			my $output =  &build_manufacturer_items($db,$web_data{'MANUFACTURER'});
				
			print output_template($db,\%web_data,$template_file,$output);
		}
	}
	else {
		# We display the list of available manufacturers
		#printf "Displaying manufacturer list\n";
		my $data = $cache->retrieve('#MANULIST#');
		if(defined($data)) {
			print output_template($db,\%web_data,$template_file,$data);
		}
		else {
			my $output = &build_manufacturer_list($db);
			print output_template($db,\%web_data,$template_file,$output);
		}
	}

	return;
}


# Build Manufacturer List HTML
sub build_manufacturer_list
{
	my $db = shift;

	my %manu_title;
	foreach my $manu ($db->Get_Record_List('CATALOGUE')) {
		my ($ec,$es,%data) = $db->Read_Record('CATALOGUE',$manu);
		
		$manu_title{$manu} = $db->Get_Field('CATALOGUE',$manu,'--DESC--');
	}

	my $list = "";
	$list .= "<TABLE WIDTH=80% ALIGN=CENTER>\n";
	$list .= "<TR><TD ALIGN=CENTER><H1>Optics Catalogue</H1></TD></TR>\n";
	$list .= "<TR><TD ALIGN=RIGHT>";
	my $a_tag = sprintf("<A HREF=\"%s\" class=\"basket-text\" target=\"obmbasket\">",$basket_url."?RETURN_LINK=".&HTML::HTMLencodeURL($basket_returnlink_url)."&RETURN_DESC=".&HTML::HTMLencodeURL($basket_returnlink_title));
	$list .= $a_tag."View Basket</A> ".$a_tag."<IMG BORDER=0 SRC=\"/images/basket1.gif\"></A>\n";
	$list .= "</TD></TR>\n";
	$list .= "<TR><TD>\n";
	foreach my $manu (sort { $manu_title{$a} cmp $manu_title{$b} } keys(%manu_title)) {
		$list .= sprintf "<IMG SRC=\"/images/blt_blue.gif\" ALT=\"*\"> <A HREF=\"%s?manufacturer=%s\">%s</A><BR>\n",$ProgramName,$manu,$manu_title{$manu};
	}
	$list .= "</TD></TR>\n";
	$list .= "</TABLE>\n";

	return $list;
}

# Build Manufacturer Items HTML
sub build_manufacturer_items
{
	my $db = shift;
	my $manu = shift;

	my($ec,$es,%data) = $db->Read_Record('CATALOGUE',$manu);
	if($ec>0) {
		printf "Couldn't retrieve catalogue data: $es\n";
		return "";
	}

	$data{'--COL_TITLE_3--'} = "Retail Price" if(length($data{'--COL_TITLE_1--'})==0);


	my $output = "";
	$output .= "<TABLE WIDTH=90% ALIGN=CENTER>\n";
	$output .= "<TR><TD COLSPAN=2 ALIGN=CENTER><H2>Optics Catalogue</H2></TD></TR>\n";
	$output .= "<TR><TD COLSPAN=2 ALIGN=CENTER>";
	$output .= sprintf("<P class=\"catalogue-title-manu\">%s</P>\n",$data{'--DESC--'});
	$output .= "</TD></TR>\n";
	$output .= "<TR><TD ALIGN=LEFT class=\"standard-text\">Retail price is shown in UK Sterling including VAT</TD><TD ALIGN=RIGHT>";
	my $a_tag = sprintf("<A HREF=\"%s\" class=\"basket-text\" target=\"obmbasket\">",$basket_url."?RETURN_LINK=".&HTML::HTMLencodeURL($basket_returnlink_url)."&RETURN_DESC=".&HTML::HTMLencodeURL($basket_returnlink_title." ".$data{'--DESC--'}));
	$output .= $a_tag."View Basket</A> ".$a_tag."<IMG BORDER=0 SRC=\"/images/basket1.gif\"></A>\n";
	$output .= "</TD></TR>\n";
	$output .= "<TR><TD COLSPAN=2>\n";

	my $table_start = 0;
	my $table_colwidth = 6;	# Number of columns
	foreach my $rangcode (sort {$a <=> $b} grep(/^\d+$/,keys(%data))) {
		my $rangedata = $data{$rangcode};
		printf "Rangecode: $rangcode\n" if($DEBUG);
		$output .= "</TABLE>\n<BR>\n" if($table_start==1);
		$output .= "<TABLE BORDER=0 WIDTH=100%>\n";
		$table_start = 1;
		$output .= sprintf("<TR><TD COLSPAN=%d class=\"catalogue-title-range\">%s</TD></TR>\n",$table_colwidth,$$rangedata{'--DESC--'});
		$output .= "<TR VALIGN=TOP>";
		$output .= sprintf("<TD WIDTH=60 ALIGN=LEFT class=\"catalogue-heading-model\">%s</TD>","Model");
		$output .= sprintf("<TD ALIGN=LEFT class=\"catalogue-heading-desc\">%s</TD>","Description");
		$output .= sprintf("<TD ALIGN=RIGHT class=\"catalogue-heading-col1\">%s</TD>",$data{'--COL_TITLE_1--'});
		$output .= sprintf("<TD ALIGN=RIGHT class=\"catalogue-heading-col2\">%s</TD>",$data{'--COL_TITLE_2--'});
		$output .= sprintf("<TD ALIGN=RIGHT class=\"catalogue-heading-col3\">%s</TD>",$data{'--COL_TITLE_3--'});
		$output .= sprintf("<TD ALIGN=RIGHT class=\"catalogue-heading-currency\">*&nbsp;%s</TD>","\$CURRENCY_TITLE") if($show_currency);
		$output .= "</TR>\n";
		foreach my $sectcode (sort {$a <=> $b} grep(/^\d+$/,keys(%{$rangedata}))) {
			my $sectdata = $$rangedata{$sectcode};
			printf "Sectioncode: $sectcode\n" if($DEBUG);
			$output .= sprintf("<TR><TD COLSPAN=%d class=\"catalogue-title-section\">%s</TD></TR>\n",$table_colwidth,$$sectdata{'--DESC--'});
			foreach my $itemdata (@{$$sectdata{'ITEM_LIST'}}) {
				printf "Itemmodel: %s\n",$$itemdata{'MODEL'} if($DEBUG);
				$output .= "<TR VALIGN=TOP>";
				my $model_url_string_begin = "";
				my $model_url_string_end = "";
				my $model_url = $$itemdata{'MODEL'};
				$model_url =~ tr/[A-Z]/[a-z]/;
				if($db->Check_Record_Exists("PRODUCTS",$$itemdata{'MODEL'})) {
					print "ProductDetail found: $$itemdata{'MODEL'}\n" if($DEBUG);
					$model_url_string_begin = sprintf("<A HREF=\"%s\">",$products_url);
					$model_url_string_end = "</A>";
					$model_url_string_begin =~ s/\$MODEL/$model_url/g;
					$model_url_string_end =~ s/\$MODEL/$model_url/g;
				}
				$output .= sprintf("<TD class=\"catalogue-item-model\">$model_url_string_begin%s$model_url_string_end</TD>",$$itemdata{'MODEL'});
				$output .= sprintf("<TD class=\"catalogue-item-desc\">%s</TD>",$$itemdata{'DESC'});
				$output .= sprintf("<TD class=\"catalogue-item-col1\">%s</TD>",$$itemdata{'COL1'});
				$output .= sprintf("<TD class=\"catalogue-item-col2\">%s</TD>",$$itemdata{'COL2'});
				my $price = $$itemdata{'PRICE'};
				if($price =~ /[^0-9\.]/) {
					if($price == -2) {
						$price = $pricePOA;
					}
					else {
						$price = "";
					}
				}
				my $basket_tag_start = undef;
				my $basket_tag_end = undef;
				$basket_tag_start = sprintf("<A class=\"catalogue-item-col3\" HREF=\"%s\" class=\"basket-text\" target=\"obmbasket\">",$basket_url."?ACTION=ADD&ITEM=".$model_url."&RETURN_LINK=".&HTML::HTMLencodeURL($basket_returnlink_url."?MANUFACTURER=".$manu)."&RETURN_DESC=".&HTML::HTMLencodeURL($basket_returnlink_title." ".$data{'--DESC--'}));
				$basket_tag_end = "</A>";
				if($price =~ /[^0-9\.]/) {
					$basket_tag_start = undef;
					$basket_tag_end = undef;
				}
				$output .= sprintf("<TD class=\"catalogue-item-col3\">%s</TD>",(length($price)>0)?$basket_tag_start.$sterling_symbol.$price.$basket_tag_end."&nbsp;".$basket_tag_start."<IMG ALIGN=TOP BORDER=0 SRC=\"/images/basket1.gif\">".$basket_tag_end:"");
				my $currency = $$itemdata{'PRICE'};
				$currency =~ s/[^0-9\.]//g;
				$currency = '$CURRENCY{'.$currency.'}' if(length($currency)>0);
				if($price =~ /[^0-9\.]/) {
					$currency = $price;
				}
				$output .= sprintf("<TD class=\"catalogue-item-col3\">%s</TD>",$currency);
				$output .= "</TR>\n";
			}
		}
	}
	$output .= "</TABLE>\n" if($table_start==1);
	$output .= "</TD></TR>\n";
	$output .= "<TR><TD COLSPAN=2 ALIGN=RIGHT class=\"standard-text\"><BR>*&nbsp;The \$CURRENCY_TITLE currency shown here is based on an exchange&nbsp;rate&nbsp;of&nbsp;approximately&nbsp;\$CURRENCY_RATE<BR>\$VAT_DEDUCTED_MESSAGE</TD></TR>\n" if($show_currency);
	$output .= "</TABLE>\n";

	return $output;
}

# Output the data in the template
sub output_template
{
	my $db = shift;
	my $webdata = shift;
	my $template = shift;
	my $data = shift;

	my $output;

	if(open(TEMPLATE,$template)) {
		my $ofs = $/;
		$/ = undef;
		$output = <TEMPLATE>;
		$/ = $ofs;
		close(TEMPLATE);

		$output =~ s/\$DATA/$data/;

		# Substitute the currency into the output
		my $currency = $$webdata{'CURRENCY'};
		$currency = $db->Get_Field("GLOBAL","SYSTEM","DEFAULT_CURRENCY") if(length($currency)==0);
		$currency = "usdollar" if(length($currency)==0);
		use Currency;
		my $currency_obj = Currency->new($currency);
		if($show_currency && length($currency)>0 && $currency_obj->Check_Currency_Exists($currency)) {
			#my($ec,$es,%currency_data) = $db->Read_Record("CURRENCY",$currency);
			$output =~ s/\$CURRENCY_TITLE/$currency_obj->Title/eg;
			$output =~ s/\$CURRENCY_RATE/$currency_obj->Rate/eg;
			my $vat_msg = "";
			$vat_msg = $currency_obj->Info('COUNTRY')." customers can deduct VAT as they are outside the EU<BR>VAT has been deducted in the ".$currency_obj->Title." currency conversion above" if($currency_obj->Info('VAT_DEDUCTABLE') =~ /YES/i);
			$output =~ s/\$VAT_DEDUCTED_MESSAGE/$vat_msg/g;
			my $symbol = $currency_obj->Info('SYMBOL_HTML');
			$output =~ s/\$CURRENCY\{(.*?)\}/$symbol.$currency_obj->Convert($1)/eg;
		}
		else {
			$output =~ s/\$CURRENCY\{.*?\}//g;
			$output =~ s/\$CURRENCY_TITLE//g;
		}
	}
	else {
		printf STDERR "An error occured. The template file could not be found. (#1)\n";
	}

	return $output;
}