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


&GetFormInput;
$sp = $field{'sp'};
if ($sp eq "" || $sp == 0 || $sp> 4) {
   $sp=1;}

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";

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

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

for ($i=0;$i<$invsz-1;$i++) {
	for ($j=0;$j<$invsz-1-$i;$j++) {
		@d = split (/\|/o, $inv[$j]);
		@dx = split (/\|/o, $inv[$j+1]);
		if ($dx[2]=~/^$sp/ && $d[2]!~/^$sp/) {
		   $t=$inv[$j+1];
		   $inv[$j+1]=$inv[$j];
		   $inv[$j]=$t;
		}
	}
	@d = split (/\|/o, $inv[0]);
	if ($d[2] == $sp) {
	   $i=$invsz;}
}

$ti[1]="<a href='#household'><img src='http://www.alternativeenergygeneralstore.com/images/title_household.jpg' border=0 alt=Household></a>";
$ti[2]="<a href='#light'><img src='http://www.alternativeenergygeneralstore.com/images/title_light.jpg' border=0 alt=Lights></a>";
$ti[3]="<a href='#kits'><img src='http://www.alternativeenergygeneralstore.com/images/title_kit.jpg' border=0 alt=Kits></a>";
$ti[4]="<a href='#inventor'><img src='http://www.alternativeenergygeneralstore.com/images/title_invent.jpg' border=0 alt='Inventors Corner'></a>";
$tx[1]="Household products for daily use that will help save energy.  There are dozens of ways you can save energy and reduce carbon emissions by changing the household goods that you use.  Fluorescent bulbs, LED lights, solar powered gadgets, and rechargeable batteries are just a few.";
$tx[2]="Switching to compact fluorescent (CFL) or LED lights is a simple way to help reduce the demand for fossil fuel power and CO2 emissions.  AEGS has an attractive selection of bulbs for your everyday needs that typically reduce your use of watts by 80% with an average life of 6 years when used normally.  From baby&rsquo;s rooms to ceiling fans we have bulbs for you.  ";
$tx[3]="The ultimate solution to the energy and global warming 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;
for ($i=0;$i<$invsz;$i++) {
	chomp($inv[$i]);
	@d = split (/\|/o, $inv[$i]);
	if ($d[1] > 0) {
    	@dx = split (/\|/o, $inv[$i+1]);
    	$dx[2]=substr($dx[2],0,1);
        for ($j=0;$j<$prsz;$j++) {
    		@p = split (/\|/, $prod[$j]);
        	if ($p[0] eq $d[0]) {
    		   &prtitem;}
    	}
	}
}
&footer;

goto DONE;

ERR:;
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 class='main'><tr><td width=300><img src='http://www.alternativeenergygeneralstore.com/products/$pic' width=300 alt=$pdesc[0]></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><br>";
	print "$pdesc[11]\n";		
	print "</td></tr></table></form>\n";
	print "</td></tr></table><hr>\n";
	if ($dx[2] ne $hdg) {
	   	$hdg=$dx[2];		
		print "<font size=1><a href='#top'>Back to the top</a></font><br>\n";
		print "<div class='pattern'><span></span></div>\n";
        print "<center>$ti[$hdg]</center><br>\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/goods.php'>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>\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>