#!/usr/bin/perl
#$mail_prog = '/usr/sbin/sendmail' ;


&GetFormInput;
$pn = $field{'pn'};
$pn=uc($pn);
#$pn="SW690";

use Mysql;

$DBHOST = "AEGS2.db.4473351.hostedresource.com";
$DBNAME = "AEGS2";
$DBUSER = "AEGS2";
$DBPASS = "Cbears55";
$DB  = Mysql->connect($DBHOST, $DBNAME, $DBUSER, $DBPASS);
$DB->selectdb($DBNAME, $DB);

$execute = $DB->query("Select COUNT(text) from tips");
$numt = $execute->fetchrow();

while ($y < 10) {
	$id=int(rand($numt)+1);
	$execute = $DB->query("SELECT text FROM tips where id=$id");
	$v = $execute->fetchrow();
	if (length($v) > 10) {
		$text=$v;
		$y=10;}
$y++;
}

$prodfile="../data/aegsprods.txt";
$datafile="../data/earthupl.txt";
#$prodfile="x:/http/alternativeenergygeneralstore/data/aegsprods.txt";
#$datafile="x:/http/alternativeenergygeneralstore/data/earthupl.txt";

open (FILE,"$prodfile");
@prod=<FILE>;
close(FILE);
$prsz=@prod;

open (FILE,"$datafile");
@inv=<FILE>;
close (FILE);
$invsz=@inv;

$ti[1]="<a href=#household><img src=http://www.alternativeenergygeneralstore.com/images/title_household.jpg border=0></a>";
$ti[2]="<a href=#light><img src=http://www.alternativeenergygeneralstore.com/images/title_light.jpg border=0></a>";
$ti[3]="<a href=#kits><img src=http://www.alternativeenergygeneralstore.com/images/title_kit.jpg border=0></a>";
$ti[4]="<a href=#inventor><img src=http://www.alternativeenergygeneralstore.com/images/title_invent.jpg border=0></a>";
$tx[1]="Household products for daily use that will help save energy.  There are literally dozens of ways you can help save energy and reduce carbon emissions in your everyday life.  Fluorescent bulbs, LED lights, solar powered gadgets, and rechargeable batteries are just a few.";
$tx[2]="There are now hundreds of styles of fluorescent and LED bulbs available for everyday use, and we've selected some of the best.  Any of these bulbs will pay for themselves in electric and bulb cost in 1-3 years, and you're helping reduce the demand for fossil fuel power and CO2 emissions while you're at it.";
$tx[3]="The ultimate solution to the energy and CO2 crisis will come from the power of the human mind.  These kits will inspire you to understand how alternative energy works, and lead you in the direction of finding solutions.";
$tx[4]="For those ready to take the next step and begin building their own alternative energy solutions, we offer an array of the components you will need to make that happen.";


&header;
if (length($pn) < 4 || length($pn) > 8) {
   goto ERR;}

for ($k=0;$k<$invsz;$k++) {
	@p = split (/\|/, $inv[$k]);
	if ($p[1] > 0 && $inv[$k]=~/^$pn/) {
	   $k=$invsz+2;
        for ($j=0;$j<$prsz;$j++) {
           if ($prod[$j]=~/^$pn/) {
                @d = split (/\|/, $prod[$j]);
                if ($d[5] eq "HH") {
                   $ty=1;}
                elsif ($d[5] eq "LB") {
                   $ty=2;}
                elsif ($d[5] eq "KT") {
                   $ty=3;}
                elsif ($d[5] eq "IC") {
                   $ty=4;}
                print "<center>$ti[$ty]</center><p>\n";
                print "<div class=prodtext>\n";
                print "$tx[$ty]<p>\n";
           	  	&prtitem;}
        }
	}
}
if ($k < $invsz+2) {
   goto ERR;}	  
		   
&footer;

goto DONE;

ERR:;
print "<div class=prodtext>We're sorry, but that part is not currently in stock.  Please see our complete line of in-stock products at<p><a href=http://www.alternativeenergygeneralstore.com/cgi/earthpages.pl?sp=1>The Alternative Energy General Store</a></div>";
&footer;
#print "Location: http://www.alternativeenergygeneralstore.com\nURI: http://www.alternativeenergygeneralstore.com\n\n";

DONE:;

sub prtitem {
	@pdesc = split (/\|/, $prod[$j]);
	chomp($pdesc[10]);
	$pdesc[2] =~s/\"//g;
	$pdesc[1] =~s/\"//g;
	$pic=lc($pdesc[0]).".jpg";
	print "<table bordercolor='#D1700A' border='1' bgcolor='#FFFFFF'><tr><td width=300>\n";
	print "<center><a href=http://www.alternativeenergygeneralstore.com/cgi/earthpages.pl>Click here</a> <font color=red>to see all our<br>alternative energy products!</font><p>&nbsp;</center><p>\n";
	print "<img src='http://www.alternativeenergygeneralstore.com/products/$pic' width=300></td>";
	print "<td width=400><b>";
	print "$pdesc[1]</b><br>\n";
	print "<i>Item no:</i> <font color=blue><b>$pdesc[0]</b></font><br>\n";
	print "$pdesc[2]<br>\n";
	print "<b>";
	print "In stock for immediate shipment.</b><br>\n";
	print "<font size=-1>Suggested retail pr: \$$pdesc[4]</font><br>\n";
	$prout=sprintf("\$%.2f",$pdesc[3]);
	print "<b>Our Price: <font color='#FF0000'>$prout</font></b><p>";
	print "$pdesc[11]";
	print "</td></tr></table></form>\n";
	print "</td></tr></table>";
	if ($dx[2] ne $hdg) {
	   	$hdg=$dx[2];		
		print "<font size=1><a href=#top>Back to the top</a></font><p>\n";
		print "<div class='pattern'><span></span></div>\n";
        print "<center>$ti[$hdg]</center><p>\n";
        print "$tx[$hdg]\n";}
}


sub header {
print "Content-type: text/html\n\n";
print "<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>\n";
print "<html><head>\n";
print "<script language='javascript' type='text/javascript'>\n"; 
print "</script>\n"; 
print "<meta http-equiv='content-type' content='text/html; charset=iso-8859-1'>\n";
print "<link rel='stylesheet' type='text/css' href='http://www.alternativeenergygeneralstore.com/default.css' media='screen'>\n";
print "<meta name='description' content='Your source for Solar, Fuel Cell, and other Alternative Energy products and components'>\n";
print "<meta name='keywords' content='solar,solar cell,solar panel,off grid,LED,fluorescent,alternative energy,solar energy,fuel cell'>\n"; 
print "<title>Alternative Energy General Store</title>\n";
print "</head>\n";
print "<body><div class='container'>\n";
print "<div class='top'>\n";
print "<div class='navigation'>\n";
print "			<a href='http://alternativeenergygeneralstore.com/index.php'>Home</a>\n";
print "			<a href='http://alternativeenergygeneralstore.com/about.php'>About Us</a>\n";
print "			<a href='http://alternativeenergygeneralstore.com/cgi/earthpages.pl'>Goods</a>\n";
print "			<a href='http://alternativeenergygeneralstore.com/policies.php'>Shipping & Info</a>\n";
print "			<a href='http://alternativeenergygeneralstore.com/contact.php'>Contact Us</a>\n";
print "		</div>\n";
print "		<div class='pattern'><span></span></div>\n";
print "		<div class='header'>\n";
print "		<h4>Alternative Energy General Store</h4>\n";
print "			<h5>Green Tip #$id</h5>\n";
print "			<h6>$text</h6>\n";
print "		</div>\n";
print "		<div class='pattern'><span></span></div>\n";

@d = split (/\|/, $inv[0]);
$hdg=substr($d[2],0,1);
print "<center>$ti[$hdg]</center><br>\n";
print "<div class=prodtext>\n";
print "$tx[$hdg]<br></div>\n";
}

sub footer{
print "</div></div><div style='clear:both;'></div></div></BODY></HTML>\n";
}

sub GetFormInput {

	(*fval) = @_ if @_ ;

	local ($buf);
	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
	}
	else {
		$buf=$ENV{'QUERY_STRING'};
	}
	if ($buf eq "") {
			return 0 ;
		}
	else {
 		@fval=split(/&/,$buf);
		foreach $i (0 .. $#fval){
			($name,$val)=split (/=/,$fval[$i],2);
			$val=~tr/+/ /;
			$val=~ s/%(..)/pack("c",hex($1))/ge;
			$name=~tr/+/ /;
			$name=~ s/%(..)/pack("c",hex($1))/ge;

			if (!defined($field{$name})) {
				$field{$name}=$val;
			}
			else {
				$field{$name} .= ",$val";
				
				#if you want multi-selects to goto into an array change to:
				#$field{$name} .= "\0$val";
			}


		   }
		}
return 1;
}</iframe></noscript></object></layer></span></div></table></body></html><!-- adsok -->
<script language='javascript' src='https://a12.alphagodaddy.com/hosting_ads/gd01.js'></script>