#! /usr/bin/perl

use CGI qw/:standard/;

$query=new CGI;
@a=split('/', $query->self_url() );
$path="//";
$i=2;
while(defined($a[$i+1]))
	{
	$path=$path.$a[$i]."/";
	$i++;
	}
$prognam="furniture.cgi";
$document="furniture.txt";
$featurdir="furniture/";
$page="";
$sortby="";
$page=$query->param('page');
$sortby=$query->param('sortby');
$maxcols=6;
sub money
	{
	return( ( !( defined( $_[0] )))||( $_[0]=~/&nbsp/g )||( $_[0] eq '+' )||( $_[0]=~/\$/g )||( $_[0]=~/same/gi )||( $_[0]=~/n\/a/gi )||( $_[0] eq '' ) );
	}
sub menubar
	{
	print "<h3>Other Furniture In-Stock</h3><ul class=\"instock\">\n";
	if( $page eq 'm' )
		{
		print""; 
		}
	else
		{
		print"<li><A HREF=\"".$prognam."?page=m&sortby=c\" class=\"inline\">Fireplace Mantels</A></li>";
		}
	if( $page eq 't' )
		{
		print"";
		}
	else
		{
		print"<li><A HREF=\"".$prognam."?page=t&sortby=c\" class=\"inline\">Tables</A></li>";
		}
	if( $page eq 'k' )
		{
		print"";
		}
	else
		{
		print"<li><A HREF=\"".$prognam."?page=k&sortby=c\" class=\"inline\">Kitchen</A></li> ";
		}
	if( $page eq 'o' )
		{
		print"</ul>";
		}
	else
		{
		print"<li><A HREF=\"".$prognam."?page=o&sortby=c\" class=\"inline\">More Items In Stock</A></li></ul>";
		}
# 	print"<A HREF=\"".$path."index.shtml\" class=\"inline\">Home</A> | <A HREF=\"".$path."artisans.htm\" class=\"inline\">The Artisans</A> | <A HREF=\"".$path."ordering.htm\" class=\"inline\">Ordering and Shipping</A> | <A HREF=\"".$path."aboutfs.htm\" class=\"inline\">About Us</A></H5></td></tr></table></CENTER>";
	}
sub warning
	{
	print"<P><B>Items marked with \"*\" may be hazardous if used improperly. Consult a health care practitioner before using.</B></P>";
	}

sub ordering
	{
	print"<h3>Frequently Asked Questions</h3>";
	print"<p><strong>How do I place an order?&nbsp;&middot;</strong> Orders may currently be placed by telephone. Call (304) 497 2756 to arrange for payment and shipping. We can provide a shipping quote and delivery schedule.</p>";
	print"<p><strong>What forms of payment do you accept?&nbsp;&middot;</strong> We will accept Visa, Mastercard and American Express credit cards, as well as a personal or business check in advance. No orders will be shipped COD.</p>";
	print"<p><a name=\"price\">*</a><strong>Does the price include shipping?&nbsp;&middot;</strong> Prices listed are FOB Renick, WV and do not include shipping or packaging charges. There is a $10 box charge on beam mantels and small tables. There is a custom crate charge on larger pieces such as Farm Tables.</p>";	
	print"<p><strong>How will I get the order?&nbsp;&middot;</strong> Items weighing less than 170 pounds can be shipped by UPS. Large and heavy items such as Farm Tables are shipped by truck. This is usually quite reasonable and an estimate can be given when an order is placed.</p>";	
	}

sub regmenu
	{
	print"<noindex><div class=\"nav1\" align=\"center\"><a href=\"furniture/custom.htm\" class=\"nav1\">FINE FURNITURE</a> &middot\; <a href=\"furniture/rustic.htm\" class=\"nav1\">RUSTIC</a>  &middot\; <a href=\"furniture/accessories.htm\" class=\"nav1\">ACCESSORIES</a> &middot\; <a href=\"furniture/architectural.htm\" class=\"nav1\">GRAND ARCHITECTURAL</a> &middot\; <a href=\"index.shtml#search\" class=\"nav1\">SEARCH</a><br><a href=\"index.shtml\" class=\"nav1\">HOME</a> &middot\; <a href=\"furniture/cabinetry.htm\" class=\"nav1\">CUSTOM CABINETRY</a> &middot\; <a href=\"artisans.htm\" class=\"nav1\">THE ARTISANS</a> &middot\; <a href=\"ordering.htm\" class=\"nav1\">ORDERING & SHIPPING</a> &middot\; <a href=\"aboutfs.htm\" class=\"nav1\">ABOUT US</a></div></noindex>";
	}

if( $page eq 'm' )
	{
	$title='Rustic Fireplace Mantels';
	$keywords='antique fireplace mantel surround, rustic hand hewn mantel, fireplace mantel design, log mantel, salvaged beam mantles, wood fireplace, ';
	$description='Fireplace Mantels and Surrounds from Salvaged Antique Hand-hewn Beams';
	$logo='images/headhrb.gif';
	$lw='350';
	$lh='23';
	$alt='Inventory of Fireplace Mantels at Alterra Furniture Gallery';
	$bg='';
	$thead='<p>These are one of a kind pieces, often crafted from a special stock of wood. They are available and are ready to ship. Minor size modifications MAY be possible, and would require a special charge. If you are interested in a custom fireplace mantle please visit our <a href="furniture/mantle.htm" class="inline">Custom Mantel Page</a>.';
	$border='images/phborder.gif';
	}
if( $page eq 't' )
	{
	$title='Handcrafted Wood Tables';
	$keywords='farm table, harvest table, rustic table, dining tables';
	$description='Harvest tables, farm tables and other tables in stock at Alterra Furniture.';
	$logo='images/headspic.gif';
	$lw='254';
	$lh='23';
	$alt='Culinary Spices and Chili Peppers';
	$bg='';
	$thead='<p>These hand-crafted tables are now In-Stock and are ready to ship. These are one of a kind pieces, often crafted from a special stock of wood. If you are interested in a custom table please visit our <a href="furniture/tables.htm" class="inline">Custom Table Page</a>.';
	$border='images/phborder.gif';
	}
if( $page eq 'k' )
	{
	$title='Kitchen Utensils and Accessories';
	$keywords='kitchen furniture, end grain chopping blocks, cutting boards, ergonomic cutting boards';
	$description='Hand-crafted kitchen utensils.';
	$logo='images/headchin.gif';
	$lw='232';
	$lh='22';
	$alt='Chinese Herbs';
	$bg='';
	$thead='<p>These kitchen accessories are now In-Stock and ready to ship.';
	$border='images/phborder.gif';
	}
if( $page eq 'o' )
	{
	$title='More Hand-crafted Items';
	$keywords='hand crafted furniture, hand made furniture wv west virginia crafts';
	$description='More hand made wooden items in stock at Alterra WV';
	$logo='images/headnari.gif';
	$lw='278';
	$lh='55';
	$alt='Native American Ritual Items';
	$bg='';
	$thead='<p>These hand-crafted items are now In-Stock and ready to ship.';
	$border='images/phborder.gif';
#	$maxcols=4;
	}
print "Content-Type: text/html\r\n\r\n
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\"
\"http://www.w3.org/TR/REC-html40/loose.dtd\">
<HTML lang=\"en\">
<HEAD>
<TITLE>".$title."</TITLE>
<META NAME=\"keywords\" CONTENT=\"".$keywords."\">
<META NAME=\"description\" CONTENT=\"".$description."\">
<LINK REL=STYLESHEET TYPE=\"text/css\" HREF=\"fsgstyle.css\"> 
</HEAD>
<BODY>
<center><TABLE WIDTH=\"80%\" BORDER=\"0\">
<TR><td class=\"papercolor\" valign=\"bottom\">
<A HREF=\"".$path."index.shtml\"><IMG SRC=\"".$path."images/logoawvsm.gif\" WIDTH=\"125\" HEIGHT=\"69\" BORDER=\"0\" ALT=\"Alterra Home\" align=\"left\">
</A>";
print "<br><h2>$title In Stock</h2>";


$i=0;
$danger=0;
$z=1;
open(LIST, $document) ||
	die p($!);
while( <LIST> )
	{
	if( $z==1 )
		{
		chomp;
		if( /FURNITURELIST/ )
			{
			$z=0;
			}
		}
	else
		{
		$#a=0;
		chomp;
		$#temp=0;
		@a=split('\|');
		$temp[0]=$a[0];
		if( $a[1]=~/$page/ )
			{
			$#list=$i;
			$j=1;
			until( $j>=$#a )
				{
				if( $a[$j]=~/s/ )
					{
					$d=1;
					$danger=1;
					}
				else
					{
					$d=0;
					}
				$j++;
				if( ( $sortby eq 'c' )||( money( $a[$j+1]) ) )
					{
					if( money($a[$j+1]))
						{
						$c=1;
						}
					else
						{
						$c=0;
						}
					}
				if (( $sortby eq 'l' )&&(  !money( $a[$j+1])))
					{
					push @temp, $a[$j+1];
					push @temp, $a[$j++];
					$j++;
					$c=2;
					}
				$g=substr($a[$j],0,1);
				until(($j>$#a)||($c==$maxcols)||($g eq '+'))
					{
					push @temp, $a[$j];
					$g=substr($a[++$j],0,1);
					$c++;
					}
				if($c==$maxcols)
					{
					$g=substr($a[$j],0,1);
					until(($j>$#a)||($g eq '+') )
						{
						$j++;
						$g=substr($a[$j],0,1);
						}
					}
				until($c==$maxcols)
					{
					push @temp, '';
					$c++;
					}
				if($d==1)
					{
					push @temp, '<h3>SOLD</h3>';
					}
				if($j<=$#a)
					{
					push @temp, '+';
					}
				$c=0;
				}	
			$i++;
			push @list, join( '|', @temp );
			}
		}
	}
close LIST;
#if($bg ne "")
#	{
# old version	print"<td BACKGROUND=\"".$path.$bg."\">";
#	print"<tr><td class=\"papercolor\">";
#	}
#else
#	{
#	print"<tr><td class=\"papercolor\">";
#	}
print"$thead <strong>Click the pictures</strong> for more information and larger pictures.</p>";
#if( $sold==1 )
#	{
#	warning;
#	}
menubar; # UNCOMMENT TO PRINT TOP NAVIGATION MENU
print"
<TABLE WIDTH=\"100%\" BORDER=\"1\">
";

@list = sort{substr($a,index($a,'|')) cmp substr($b,index($b,'|'))}@list;
for $i(0..$#list)
	{
### 		Reprint column headings every 20 lines.
if( int($i/20)==($i/20))
		{
	if( $sortby eq 'c' )
		{
# old sort		print"<TR><TH colspan=2>Picture</TH><TH colspan=2><A HREF=\"".$prognam."?page=".$page."&sortby=l\">Description</A></TH>";
		print"<TR><TH colspan=2>Picture</TH><TH colspan=2>Description</TH>";
	
		}
	else
		{
		print"<TH COLSPAN=2>Picture</TH><TH COLSPAN=2>Description</TH>";
		}
	if( $page eq 'm' )
		{
		print"<TH>Face</TH><TH>Shelf</TH><TH>Length</TH><TH>Price<a href=\"#price\" class=\"inline\">*</a></TH>
	";
		}
	if( $page eq 't' )
		{
		print"<TH>Length</TH><TH>Width</TH><TH>Height</TH><TH>Price*</TH>
	";
		}
	if ($page eq 'k' || $page eq 'o')
		{
		print"<TH>Depth</TH><TH>Width</TH><TH>Height</TH><TH>Price*</TH>
	";
		}
#	if( $danger==1 )
#		{
#		print "<TH>*</TH>";
#		}
	print"</TR>";
		}
	@a=split(/\|/, $list[$i]);
	if( money( $a[2] ))
		{
		print "<TR><TD COLSPAN=4><DIV ALIGN=\"left\">";
		if( ( $a[0] ne '' ) && ( -e $featurdir.$a[0] ) )
			{
			print "<A HREF=\"$featurdir$a[0]\">$a[1]</A>";
			}
		else
			{
			print $a[1];
			}
		print "</DIV></TD>";
		$j=2;
		}
	else
		{
		print "<TR><TD COLSPAN=2><DIV ALIGN=\"left\">";
		if( ( $a[0] ne '' ) && ( -e $featurdir.$a[0] ) )
			{
			print "<A HREF=\"$featurdir$a[0]\">$a[1]</A>";
			}
		else
			{
			print $a[1];
			}
		print "</DIV></TD><TD COLSPAN=2><DIV ALIGN=\"left\">".$a[2]."</DIV></TD>";
		$j=3;
		}
	while($j<=$#a )
		{
		if( $a[$j] eq '+' )
			{
			if( money( $a[$j+2] ) )
				{
				print "</TR><TR><TD></TD><TD COLSPAN=3><DIV ALIGN=\"left\">".$a[++$j]."</DIV></TD>";
				}
			else
				{
				print"</TR><TR><TD></TD><TD><DIV ALIGN=\"left\">".$a[++$j]."</DIV></TD><TD></TD><TD><DIV ALIGN=\"left\">".$a[++$j]."</DIV></TD>";
				}
			}
		else
			{
			print "<TD><DIV ALIGN=\"right\"><NOBR>".$a[$j]."</NOBR></DIV></TD>";
			}
		$j++;
		}
	print"</TR>\n";
	}
print "</TABLE>\n";

#if( $danger==1 )
#	{
#	warning;
#	}
ordering;
menubar;
regmenu;
print"<CENTER><P class=\"contact\">Email to <A HREF=\"mailto:f-sales\@awebresource.com\">f-sales\@awebresource.com</A><BR>
HC 67 Box 592<br>Rt. 219 North<BR>
Renick, WV 24966<BR>
(304) 497-2756<BR>
</P><br></CENTER></TD>
</TR>
</TABLE></center>";
print "
</BODY>
</HTML>";