#######################################################################
## Title:           Script to build equipment from database          ##
## Author:          Shawn Wakefield                                  ##
## Creation Date:   07/30/2001                                       ##
## Edited Date:                                                      ##
##     Comment:                                                      ##
## Created For:     EXW                                              ##
#######################################################################

############### SUB ###############
# Build_Equipment subroutine

sub Build_Equipment {

######## REQUIRED FILES ###########
require "/usr/www/users/cmp101/exw/cgi-bin/db-common.sub" || die "Error loading db-common.sub";
require "/usr/www/users/cmp101/exw/cgi-bin/category-setup-equipment.sub" || die "Error loading category-setup-equipment.sub";
require "/usr/www/users/cmp101/exw/cgi-bin/all-common.sub" || die "Error loading all-common.sub";


######## INPUT VARIABLES ##########
&Init_Common_Vars;
$front_include = "front-equip.txt"; # name of front page hw include
$equip_include = "equipment.txt";	# name of main hw include
$imagesdir = "/images/equipment";                # images dir relative to base
$rating_img = "<font size=-2>&nbsp;&nbsp;1&nbsp;&nbsp;2&nbsp;&nbsp;3&nbsp;&nbsp;4&nbsp;&nbsp;5&nbsp;</font>";
$opinions_per_page = 8;
$menu_includes = "<!--#include virtual=\"/skin/menu-messageboards.txt\" --><!--#include virtual=\"/skin/menu-siteguide.txt\" -->";
$titles_per_listpage = 20;
$search_link = "$rooturl/cgi-bin/search-equipment.pl";

$meta_keywords = $keywords . "equipment, synthesizer, cassette deck, video projector, microphone";
$meta_description = $sitename . " equipment information";
$equiprootdir = $rootpath.$equipdir;                              # main hardware directory for file access
$equiprooturl = $rooturl.$equipdir;                               # main hardware directory for links

&Equip_Category_Setup;
$num_equip_cat = @equip_cat_title-1;

######## MAIN SCRIPT ############
# get epoch seconds so we can find new software
use Time::Local;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# setup current date to put in text box
#year needs to have 1900 added
$year4 = $year+1900;
#month starts at 0 for Jan, so add 1
$mon++;
$todays_date = $year4."-".$mon."-".$mday;

# connect to mySQL with user and password
&Conn_to_DB;



#    for ($c=1; $c<=$num_equip_cat; $c++) {
#        $equip_cat_db_var = @equip_cat_dbname[$c];
#        $equip_cat_title_var = @equip_cat_title[$c];
#        if ($quick_category eq $cat_db_var) {
#            $category = $cat_db_var;
#            $equip_cat_title = $equip_cat_title_var;
#            &Build_Equipment_Cat_Pages;
#        #} # end if ($cat1 eq $equip_cat_db_var)
#    } # end for ($c=1; $c<=$num_equip_cat; $c++)
#} else {
    for ($c=1; $c<=$num_equip_cat; $c++) {
        $category = @equip_cat_dbname[$c];
        $equip_cat_title = @equip_cat_title[$c];
        &Build_Equipment_Cat_Pages;
    } # end for ($c=1; $c<=$num_equip_cat; $c++)
#}
&Build_Equipment_Cat_Pages;

if ($quick_build_type !~ /modify/i) {
    print "front inc..";
    &Build_Front_Include;
    print "includes and indexes..";
    # build include for main page
    $type_tag = "Equipment Devices";
    $outfile = "$rootpath$equipdir/$equip_include";
    open (OUT_FILE, ">".$outfile) || print "ERROR: *** Cannot open output file: $outfile. ***\n";
    # build list of hw into include, no subtype pages
    $SQL="SELECT * FROM $equip_tbl ORDER BY category ASC, manufacturer ASC, model ASC";
    &Print_Device_List;
    close (OUT_FILE);
    chmod (0777, "$outfile");
}

if (!$quick_build) {
    # build hardware device pages
    $SQL="SELECT * FROM $equip_tbl";
	print "Building all equip...\n";
    &Build_Equip_Pages;

} else {

    # build page for only desired device (update or opinion add)
    $SQL="SELECT * FROM $equip_tbl WHERE filename = '$quick_filename'";
    &Build_Equip_Pages;
}

# DO NOT disconnect from mySQL or build-hardware.pl fails to connect for the next devicetype

##       END of main script      ##

} # end Build_Equipment subroutine


############### SUB ###############
# Build_Equip_Pages subroutine

sub Build_Equip_Pages {

    &Do_SQL;

    while ($pointer = $sth->fetchrow_hashref){
        $filename = $pointer->{'filename'};
        $graphic = $pointer->{'graphic'};
        $graphicheight = $pointer->{'graphicheight'};
        $graphicwidth = $pointer->{'graphicwidth'};
		$buylink = $pointer->{'buylink'};
        $dateadded = $pointer->{'dateadded'};
        $manufacturer = $pointer->{'manufacturer'};
        $model = $pointer->{'model'};
        $category = $pointer->{'category'};
        $description = $pointer->{'description'};
        $review = $pointer->{'review'};
        $price = $pointer->{'price'};
        $available = $pointer->{'available'};
        $website = $pointer->{'website'};
        $pick = $pointer->{'pick'};
        $ID = $pointer->{'ID'};

        if ($price eq "") {
			$price = "";
		} else {
			$price = "<b>Price:</b> $price<br>";
		}

        if ($available eq "") {
			$available = "";
		} else {
			$available = "<b>Availability:</b> $available<br>";
		}

        if ($website ne "") {
            $website = "http://".$website if (!($website =~ "http:"));
			$website = "<b>Manufacturer Website:</b> <a href=\"$website\" target=\"_new\">$manufacturer Site</a><br>";
        } else {
			$website = "";
		}

        if ($description ne "") {
            $description = "<p><b>Description:</b><br>$description<br>";
        }

        if ($review ne "") {
            $review = "<p><b>EXW Review:</b><br>$review<br>";
        }



#    $buyit = "";
#    if ($buylink) {

#        $buyit = "<a href=\"$buylink\" target=\"_new\"><img src=\"$rooturl/images/album-buyit.gif\" height=63 width=100 border=0 align=right></a>";
#
#    }


    $buyit = "";
    if ($buylink) {
        if ($buylink =~ /(.+)<IMG SRC=\"http:\/\/img/i) {
			$buylink = $1;
			$buyit_text = $buylink . "<font color=red>Buy This Item Now!</font></a>";
			$buyit_text =~ s/href/nocolor href/i;
            $buyit = $buylink . "<img src=\"$rooturl/images/album-buyit.gif\" height=63 width=100 border=0 align=right></a>";
            }
        }

else {

 $buyit = "<a href=\"/nomerchant.html\"><img src=\"$rooturl/images/album-buyit.gif\" height=63 width=100 border=0 align=right></a>";
$buyit_text = "<a nocolor href=\"/nomerchant.html\"><font color=red>Buy This Item Now!</font></a>";

}




        if ($pick eq "Yes") {
           $pick = "<img src=\"/images/$awardimage\" border=0 $awardsize>";
        } else {
            $pick = "";
        }

        if ($graphicwidth <= 0 || $graphicheight <= 0) {
            $widthtag = "";
            $heighttag = "";
        } elsif ($graphicwidth <= 200 && $graphicheight <= 150) {
            $widthtag = "width=$graphicwidth";
            $heighttag = "height=$graphicheight";
        } else {
            if ($graphicwidth >= $graphicheight) {
                $ratio = 200/$graphicwidth;
                $graphicwidth = 200;
                $graphicheight = int($graphicheight*$ratio);
            } else {
                $ratio = 150/$graphicheight;
                $graphicheight = 150;
                $graphicwidth = int($graphicwidth*$ratio);
            }
            $widthtag = "width=$graphicwidth";
            $heighttag = "height = $graphicheight";
        }

        $escmodel = $model;
        $escmodel =~ s/ /%20/g;
        $graphic = "<table border=0>
			<tr><td><a href=\"$graphicscript?graphicfile=$imagesdir/$graphic&pagetitle=$escmodel\%20by\%20$manufacturer&devicetype=$devicetype\" target=\"_blank\"><img src=\"$imagesdir/$graphic\" $widthtag $heighttag border=0></a></td></tr>
			<tr><td><a href=\"$graphicscript?graphicfile=$imagesdir/$graphic&pagetitle=$escmodel\%20by\%20$manufacturer&devicetype=$devicetype\" target=\"_blank\"><center><font size=1>Click to View</font></center></a></td></tr>
			</table>" if ($graphic ne "");

        $top_site_links = "<a href=\"$rooturl$mainequippage\">Equipment</a>: ";
        $title_tag = "Equipment: ";

        # build user opinion page
        $opinion_page = 1;

        $opinion_filename_base = substr($filename, 0, length($filename)-5) . "-uo";
        $opinion_filename_first = substr($filename, 0, length($filename)-5) . "-uo1.html";
        $submit_opinion_link = "$add_uo_url?prodtype=equipment&prodID=$ID&itemtitle=$model&itemauthor=$manufacturer&itemlink=$equiprooturl/$filename";
        $submit_opinion_link =~ s/ /%20/g;

        $top_uo_links = "<table border=0 cellpadding=0 cellspacing=0 width=100%><tr><td align=center width=100%><b>[ <a href = \"$filename\">Back to Equipment Details</a>&nbsp;&nbsp; | &nbsp;&nbsp;<a href = \"$submit_opinion_link\">Submit Your Opinion</a> ]</b></font></center><br><br></td></tr></table>\n";

        # get user opinions
        $SQL2 = "SELECT * from $op_tbl WHERE (prodID = '$ID' AND prodtype = 'equipment') ORDER BY dateadded DESC, ID DESC";
        &Do_SQL2;
        $num_records = $sth2->rows;

        # build opinion page for each device
        $title = "$manufacturer $model - User Opinions";
        $leftmenu = 0;

        @list_opinions = "";
        $existing_opinions = "";
        $num_op = 0;
        $recent_opinions = "";
        $opinion_page = 1;

        while ($pointer2 = $sth2->fetchrow_hashref){
            $num_op++;
            $op_name = $pointer2->{'name'};
            $op_email = $pointer2->{'email'};
            $op_location = $pointer2->{'location'};
            $op_dateadded = $pointer2->{'dateadded'};
            $op_title = $pointer2->{'title'};
            $op_body = $pointer2->{'body'};
            $op_features = $pointer2->{'features'};
            $op_usability = $pointer2->{'usability'};

            # figure out what page we are on
            $opinion_page = int($num_op / $opinions_per_page);
            $opinion_page++ if (($num_op / $opinions_per_page) > $opinion_page);

            $submitter = "<br><b>Submitted by:</b> $op_name</b>";
            $submitter = $submitter . "<br><b>Email:</b> $op_email" if ($op_email);
            $submitter = $submitter . "<br><b>Location:</b> $op_location" if ($op_location);
            $submitter = $submitter . "<br><b>Date Added:</b> $op_dateadded";

            $features_img = "<img src = \"$rooturl/images/review-dot$op_features.gif\">";
            $usability_img = "<img src = \"$rooturl/images/review-dot$op_usability.gif\">";

            $existing_opinions = @list_opinions[$opinion_page];
            @list_opinions[$opinion_page] = $existing_opinions . "
            <hr width=100% size=1>\n
            <TABLE border=0 cellpadding=6 width=100%>\n
            <tr>\n
                <td align=right valign=top nowrap=on>\n
                    $rating_img<br>\n
                    <b>Features</b> $features_img<br>\n
                    <b>Usability</b> $usability_img<br>\n
                </td>\n
                <td width=100% valign=top>\n
                    <b><font color=#b22222 face=\"arial\">$op_title</font></b><br>\n
                    <font face=\"arial\">$op_body<br>\n
                    $submitter</font>\n
                </td>\n
            </TR>\n
            </table>\n";

            if ($num_op <= 3) {
                $op_body = substr($op_body, 0, 250);
                $recent_opinions = $recent_opinions . "
                    <hr width=100% size=1><br>\n
                    <b><font color=#b22222>$op_title</font></b><br>\n
                    $op_body...<a href=\"$opinion_filename_first\"><font size=-1>more</font></a><br><br>\n
                    <b>Submitted by:</b> $op_name<br><br>\n";
            }# end if ($num_op <= 2)

        } # end while ($pointer = $sth2->fetchrow_hashref)

    # check if any opinions found
    if ($recent_opinions eq "") {
        $recent_opinions = "<center><font face=\"arial\" size=\"-1\"><br>Be the first to add your opinion about this product<br><b><a href=\"$submit_opinion_link\">Click HERE Now</a></b>!</font></center><br>\n";
        @list_opinions[1] = $recent_opinions;
    } else {
        $recent_opinions = $recent_opinions . "<hr width=100% size=1>\n";
    } # end if ($recent_opinions eq "")

    $bottom_hr = "";
    $nextprev = "";
    $headercount = "";
    $stopcount = 0;
    $startcount = 0;

    for ($p=1; $p<=$opinion_page; $p++) {
    
         if ($num_op >= 1) {
            $bottom_hr = "<hr width=100% size=1>";
            $startcount = ($p - 1) * $opinions_per_page + 1;
            $stopcount = $p * $opinions_per_page;

            # build next & prev buttons
            if ($p > 1) {
                $prevpage = $p - 1;
                $nextprev = "<font size=1>&lt&lt&nbsp;<a href=\"$opinion_filename_first\">First</a></font>&nbsp;";
                $nextprev = $nextprev."|&nbsp;<a href=\"$opinion_filename_base$prevpage.html\"><font size=-1><b>Prev</b></font></a>&nbsp;&nbsp;||";
            } else {
                $nextprev = "<font size=1>&lt&lt&nbsp;First</font>&nbsp;";
                $nextprev = $nextprev."|&nbsp;<font size=-1><b>Prev</b></font>&nbsp;||";
            }
            if ($p < ($num_op / $opinions_per_page)) {
                $lastpage = int($num_op / $opinions_per_page);
                $lastpage++ if (($num_op/$opinions_per_page) > $lastpage);
                $nextpage = $p + 1;
                $nextprev = $nextprev."&nbsp;<a href=\"$opinion_filename_base$nextpage.html\"><font size=-1><b>Next</b></font></a>&nbsp;|";
                $nextprev = $nextprev."&nbsp;<a href=\"$opinion_filename_base$lastpage.html\"><font size=1>Last</a>&nbsp;&gt&gt</font>";
            } else {
                $nextprev = $nextprev."&nbsp;<font size=-1><b>Next</b></font>&nbsp;|";
                $nextprev = $nextprev."&nbsp;<font size=1>Last&nbsp;&gt&gt</font>";
            }

            # build headers/footers, then print body
            $stopcount = $num_op if ($stopcount > $num_op);
            $headercount = "
            <table width=100% border=0 cellpadding=4 cellspacing=0 bgcolor=#FFFFFF>\n
                <tr valign=middle>\n
                    <td align=left nowrap=1><font size=-1>Total:&nbsp;<b>$num_op Opinions</b>&nbsp;&nbsp; Displaying:&nbsp;<b>$startcount - $stopcount</b></font></td>\n
                    <td align=right><font size=-1>$nextprev</font></td>\n
                </tr>\n
            </table>\n";

         }

        # build individual software user opinion page
        $outfile = "$equiprootdir/$opinion_filename_base$p.html";
        open (OUT_FILE, ">". $outfile) || print "ERROR: *** Cannot open $outfile ***<br>\n";

        &Print_Page_Top_File;
        print OUT_FILE "<p><center><font size=\"+2\" face=\"arial\"><b>$title</b></font></center><br>\n";

        print OUT_FILE <<HTML;
$top_uo_links
$headercount
<!--content_start-->
@list_opinions[$p]
<!--content_stop-->
$bottom_hr
$headercount
<br>
$top_uo_links
<br>
HTML

        &Print_Page_Bottom_File;
    } # end for

	$opinion_page = 0;
	if ($num_op > 0) {
		$display_count = 3;
		$display_count = $num_op if ($num_op <= 3);
		$show_tag = "<b><font size=-1 face=arial>Total:&nbsp;<b>$num_op Opinions</b>&nbsp;&nbsp;-&nbsp;&nbsp; Displaying:&nbsp;<b>$display_count of $num_op</b></font>";
		$see_all = "<img src = \"$rooturl/images/readmoreopinions.gif\" border=0>&nbsp;<b><a href=\"$opinion_filename_first\">See All $num_op Opinions</a></b>";
		$read_more = "<b><a href=\"$opinion_filename_first\">Read More...</a></b>";
	} else {
		$show_tag = "&nbsp;";
		$see_all = "&nbsp;";
		$read_more = "&nbsp;";
	}
	# end of printing opinions list page

	$title = "$manufacturer $model";
	$top_site_links = $top_site_links.$title;
	$title_tag = $title_tag.$title;

	$outfile = "$equiprootdir/$filename";
	open (OUT_FILE, ">".$outfile) || print "ERROR: *** Cannot open output file: $outfile. ***\n";
	&Print_Page_Top_File;

    # prints top of table
    print OUT_FILE <<HTML;
<p>
<!-- Global Table -->
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr>
<!-- Start Equipment -->
<td width=160 valign=top>
	<!--#include virtual="/skin/leftmenu-google.txt" --><br>
</td>
	<td>&nbsp;</td>
<td align=center valign=top>

    <table border=0 cellpadding=2 cellspacing=0 width=94%>
	<tr><td colspan=2 width=100%>$pick<br>$buyit<h2><b>$title</b></h2></td></tr>
	<tr><td valign=top><font face=arial size="-1">
		<b>Manufacturer:</b> $manufacturer<br>
		<b>Model:</b> $model<br>
		$price
		$available
		$website
		</font></td><td align=center>
		$graphic
		</td></tr>
	<tr><td colspan=2 width=100%><font face=arial size="-1">




<table border=0 cellpadding=0 cellspacing=0 width=94%>
<td align=left>
<script type="text/javascript"><!--
google_ad_client = "pub-2799562338255208";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
//2007-02-26: 468 EXW Albums
google_ad_channel = "4255605046";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "000000";
//-->
</script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td>
</table>
<br>


		$description
		$review
		<br><p>
		$buyit_text
	</font></td></tr>
	<tr><td align=right colspan=2 width=100%><font face=arial size="-1">
		<br><b><a href="$search_link">Search All Equipment</a></b>
	</font></td></tr></table>

    <p>
    <table border=0 cellpadding=2 cellspacing=0 width=94%>
        <tr>
            <td colspan=2><font color=green size="+1" face=arial>User Opinions:<br><br></font></td>
		</tr>
		<tr>
            <td>$show_tag</td><td align=right>$read_more</td>
		</tr>
		<tr>
            <td colspan=2>
                $recent_opinions
                <br>
            </td>
		</tr>
		<tr>
            <td><font face=arial size="-1"><img src = "/images/submitopinions.gif" border=0>&nbsp;<b><a href="$submit_opinion_link">Add Your Opinion</a></b></font></td>
            <td align=right>$see_all</td>
        </tr>
    </table>

<!-- Space -->
<td><img src="/images/indent.gif" width="8" height="1" border=0></td>
<td bgcolor=#EEB508 width=1><img src="/images/indent.gif" width="1" height="1" border=0></td>
<td><img src="/images/indent.gif" width="8" height="1" border=0></td>
<!-- End Space -->

<!-- Right menu -->
<td valign=top align=center width=135>


<table border=0 width=100%><td align=center><a href="$opinion_filename_first"><img src="/images/speakup.gif" width=126 height=57 border=0 alt="Give Your Opinion"></a></td></table>
<br>

<!--#include virtual="/skin/ad-125.txt" --><br>

<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" BGCOLOR="$barbgcolor"><tr><td>
<table border=0 cellpadding=3 cellspacing=0 width="100%">
<tr><td bgcolor="$barbgcolor" align=center nowrap=on>
<FONT SIZE="-1" COLOR="#FFFFFF" FACE="ARIAL, HELVETICA"><b>Compare</b></font>
</td></tr>
<tr><td valign=middle bgcolor=white> 
<table width=100% border=0 cellspacing=0 cellpadding=2>
<tr><td>
<font face="arial" size="-1">
Looking to purchase more equipment? <a href="$mainequippage"><b>Compare</b></a> equipment here!
<p>
Already own this piece of equipment? <a href="$submit_opinion_link"><b>Add your review here!</b></a>
<p> 
</font>
</td></tr></table>
</td></tr></table> 
</td></tr></table>
$menu_includes
</td>
</tr>
</table>
<!-- End Global Table -->
HTML

        &Print_Page_Bottom_File;
        # end of printing main record page

    } # end while ($pointer = $sth->fetchrow_hashref)

} # end of Build_Equip_Pages


############### SUB ###############
# Print_Device_List subroutine

sub Print_Device_List {

    $rowcolor = "#EEEEEE";

    $headerbar = "
        <table width=100% border=0 cellpadding=4 cellspacing=0>
        <tr align=center valign=middle bgcolor=$barbgcolor>\n
            <td align=left height=18><font color=#FFFFFF face=arial size=\"-1\"><b>Product</b></font></td>\n
            <td width=\"30%\"><font color=#FFFFFF face=arial size=\"-1\"><b>Manufacturer</b></td>\n
            <td width=\"20%\"><font color=#FFFFFF face=arial size=\"-1\"><b>Price</b></td>\n
            <td width=\"20%\"><font color=#FFFFFF face=arial size=\"-1\"><b>Availability</b></td>\n
        </tr></table>\n";

    $devices = "";
    &Do_SQL;

    $oldcat = "";

    while ($pointer = $sth->fetchrow_hashref){
        $filename = $pointer->{'filename'};
        $model = $pointer->{'model'};
        $manufacturer = $pointer->{'manufacturer'};
        $price = $pointer->{'price'};
        $price = "&nbsp;" if (!$price);
        $category = $pointer->{'category'};
        $available = $pointer->{'available'};
        $available = "&nbsp;" if (!$available);
        if ($category ne $oldcat) {
            $category_title = $category;
            for ($c=1; $c<=$num_equip_cat; $c++) {
                $cat_db_var = @equip_cat_dbname[$c];
                $cat_title_var = @equip_cat_title[$c];
                if ($category eq $cat_db_var) {
                    $category_title = $cat_title_var;
                } # end if ($cat1 eq $cat_db_var)
            } # end for ($c=1; $c<=$num_equip_cat; $c++)

            $devices = $devices . "
                <table width=100% border=0 cellpadding=1 cellspacing=0>
                <tr align=center bgcolor=\"#999999\">\n
                    <td align=left><font size=-1 face=arial>&nbsp;<b>$category_title</a></b></td>\n
                </tr></table>\n";
                $oldcat = $category;
        }
        $devices = $devices . "
            <table width=100% border=0 cellpadding=4 cellspacing=0>
            <tr align=center bgcolor=\"$rowcolor\">\n
                <td align=left bgcolor=\"$rowcolor\"><font size=-1 face=arial><a href = \"$equiprooturl/$filename\"><b>$model</a></b></td>\n
                <td width=\"30%\" bgcolor=\"$rowcolor\"><font size=-1 face=arial>$manufacturer</font></td>\n
                <td width=\"20%\" bgcolor=\"$rowcolor\"><font size=-1 face=arial>$price</font></td>\n
                <td width=\"20%\" bgcolor=\"$rowcolor\"><font size=-1 face=arial>$available</font></td>\n
            </tr></table>\n";

        # alternate grey and white bar
        if ($rowcolor eq "#EEEEEE") {
            $rowcolor = "#FFFFFF";
        } else {
            $rowcolor = "#EEEEEE";
        }
    } # end while

    # prints list of devices
    print OUT_FILE <<HTML;
<table border=0 width=100% cellpadding=4 cellspacing=0>
<tr><td align=left><font face=arial size="-1"><b>$type_tag</b></font></td><td align=right><font face=arial size="-1"><a href="$rooturl/cgi-bin/search-equipment.pl"><b>Search Equipment</b></a></font></td></tr></table>
$headerbar
$devices
$headerbar
<table width=100% border=0 cellpadding=4 cellspacing=0>
<tr><td align=center><br>$hwtype_links</td></tr>
<tr><td align=left>
    <br><font face=arial size="-1">If you don't see your product, <a href="/mail.html"><b>let us know</b></a>, and we will add it!</font>
</td></tr>
</table>

HTML

} # end Print_Device_List subroutine


############### SUB ###############
# Build_Front_Include subroutine

sub Build_Front_Include {

    # builds include for front page spotlight
    $outfile = "$rootpath/skin/$front_include";
    open (OUT_FILE, ">". $outfile) || print "ERROR: *** Cannot open $outfile ***<br>\n";

    print OUT_FILE <<HTML;
<!-- Front HW spotlight include - built by build-hardware.sub script -->
<!- built for front page of sites -->
<table cellpadding=1 cellspacing=0 border=0 bgcolor="#000000" width="100%">
<tr><td>

	<table width="100%" cellpadding=0 cellspacing=0 border=0 bgcolor="#ffffef">
	<tr>
	<td width=160 valign=top align=center nowrap><br><b>Product Focus</b><br><br>
HTML

    $SQL="SELECT * FROM $equip_tbl WHERE available='Now' AND CHARACTER_LENGTH(graphic)>3";
    &Do_SQL;

    $num_records = $sth->rows;
    $start_num = int rand($num_records - 1);
    $print_num = 1;
    $curr_num = 0;
    # SELECT statement to get records from specified table
    &Do_SQL;
            
    $rowcolor = "#FFFFFF";
    while ($pointer = $sth->fetchrow_hashref) {
        $curr_num++;
        if ($curr_num > $start_num) {
            last if ($curr_num > $start_num + $print_num);
            $filename = $pointer->{'filename'};
            $graphic = $pointer->{'graphic'};
            $graphicheight = $pointer->{'graphicheight'};
            $graphicwidth = $pointer->{'graphicwidth'};
            $manufacturer = $pointer->{'manufacturer'};
            $model = $pointer->{'model'};
            $website = $pointer->{'website'};

            if ($website ne "") {
                $website = "http://".$website if (!($website =~ "http:"));
                $manufacturer = "<a href=\"$website\" target=\"_new\">$manufacturer</a>";
            }

            if ($graphicwidth <= 0 || $graphicheight <= 0) {
                $widthtag = "";
                $heighttag = "";
            } elsif ($graphicwidth <= 100 && $graphicheight <= 100) {
                $widthtag = "width=$graphicwidth";
                $heighttag = "height=$graphicheight";
            } else {
                if ($graphicwidth >= $graphicheight) {
                    $ratio = 100/$graphicwidth;
                    $graphicwidth = 100;
                    $graphicheight = int($graphicheight*$ratio);
                } else {
                    $ratio = 100/$graphicheight;
                    $graphicheight = 100;
                    $graphicwidth = int($graphicwidth*$ratio);
                }
                $widthtag = "width=$graphicwidth";
                $heighttag = "height = $graphicheight";
            }
            $graphic = "<img src=\"$imagesdir/$graphic\" $widthtag $heighttag border=0>" if ($graphic ne "");

            $filename = $pointer->{'filename'};
            $filename_uo = substr($filename, 0, length($filename)-5) . "-uo1.html";
            $filename  = $filename."-datesort-1.html" if (!($filename =~ /html/));
            
            print OUT_FILE <<HTML;
	<a href="$equiprooturl/$filename">$graphic</a><br>
	<a href="$equiprooturl/$filename">$model</a><br><br>
	</td>
	<td height=100% width=1 bgcolor=black><img src="/images/indent.gif" width=1 height=100></td>
	<td height=100% width=10><img src="/images/indent.gif" width=1 height=100></td>
	<td valign=top><br>

    <table border=0 cellpadding=1 cellspacing=0 width=100%>
        <tr><td valign=top colspan=2><font size="+1" color=$barbgcolor><b>Device Summary</b></font></td></tr>
        <tr valign=top><td><font face="arial" size="-1"><b>Manufacturer:</b></font></td><td><font face="arial" size="-1">$manufacturer</font></td></tr>
HTML
        }

    }
      
    print OUT_FILE <<HTML;
    </table>
		
	</td></tr>
	</table>

</td></tr></table>
HTML

    close (OUT_FILE);
    chmod (0777, "$outfile");

} # end Build_Front_Include subroutine






############### SUB ###############
# Build_Equipment_Cat_Pages subroutine

sub Build_Equipment_Cat_Pages {
$catbase = "$category";
$title_heading = "Equipment - $equip_cat_title";
$title_tag = "Equipment: $equip_cat_title:";
$SQLbase="SELECT * FROM $equip_tbl ";

$SQL = $SQLbase . " WHERE category='$category' ORDER BY model ASC";
$listfile_base = "$rootpath$equipdir/$catbase-model";
$listfile_baseurl = "$rooturl$equipdir/$catbase-model";
&Build_Equipment_List_Pages;

$SQL = $SQLbase . " WHERE category='$category' ORDER BY manufacturer ASC, model ASC";
$listfile_base = "$rootpath$equipdir/$catbase-manufacturer";
$listfile_baseurl = "$rooturl$equipdir/$catbase-manufacturer";
&Build_Equipment_List_Pages;

$SQL = $SQLbase . " WHERE category='$category' ORDER BY price DESC, model ASC";
$listfile_base = "$rootpath$equipdir/$catbase-price";
$listfile_baseurl = "$rooturl$equipdir/$catbase-price";
&Build_Equipment_List_Pages;

} # end Build_Cat_Pages subroutine


############### SUB ###############
# Build_Equipment_List_Pages subroutine

sub Build_Equipment_List_Pages {


    $headerbar = "
    <table width=100% border=0 cellpadding=4 cellspacing=0>
        <tr align=center valign=middle bgcolor=$barbgcolor>\n
	 <td align=left height=18 width=85><font color=#FFFFFF face=arial size=-1><b><font color=#FFFFFF face=arial></a></b></td>\n

            <td align=left height=18 width=\"45%\"><font color=#FFFFFF face=arial size=-1>Sort by: <b><a href=\"$rooturl$equipdir/$catbase-model1.html\"><font color=#FFFFFF face=arial>Model</a></b></td>\n
            <td width=\"10%\"><b><a href=\"$rooturl$equipdir/$catbase-manufacturer1.html\"><font color=#FFFFFF face=arial size=-1>Manufacturer</b></td>\n
            <td width=\"20%\"><b><a href=\"$rooturl$equipdir/$catbase-price1.html\"><font color=#FFFFFF face=arial size=-1>Price</b></font></td>\n
            <td width=\"15%\"><font color=#FFFFFF face=arial size=-1><b>Pick</b></td>\n
        </tr>\n
    </table>\n";

    # clear/setup variables for new category
    $recordcount = 0;
    $rowcolor = "#EEEEEE";
    $list_pagenum = 1;
    @list_titles = "";
    $existing_titles = "";

    &Do_SQL;
    while ($pointer = $sth->fetchrow_hashref){
        # figure out what page we are on
        $list_pagenum = int($recordcount / $titles_per_listpage) + 1;
        $recordcount++;
        $filename = $pointer->{'filename'};
        $graphic = $pointer->{'graphic'};
        $graphicheight = $pointer->{'graphicheight'};
        $graphicwidth = $pointer->{'graphicwidth'};
		$buylink = $pointer->{'buylink'};
        $dateadded = $pointer->{'dateadded'};
        $manufacturer = $pointer->{'manufacturer'};
        $model = $pointer->{'model'};
        $category = $pointer->{'category'};
        $description = $pointer->{'description'};
        $review = $pointer->{'review'};
        $price = $pointer->{'price'};
        $available = $pointer->{'available'};
        $website = $pointer->{'website'};
        $pick = $pointer->{'pick'};
        $ID = $pointer->{'ID'};

        $esctitle = $title;
        $esctitle =~ s/ /%20/g;
        $esctitle =~ s/&/%26/g;

        if ($pick eq "Yes") {
           $pick = "<img src=\"/images/$awardimage\" border=0 $awardsize>";
        } else {
            $pick = "&nbsp;";
        }



        # fix description - XX chars long
        $shortdesc = "";
        # strip tags out to keep description compact
        $description =~ s/<([^>]|\n)*>//g;    # take out html tags
        $shortdesc = substr ($description, 0, 100) . "....<a href=\"$filename\"><font size=-1 face=arial>more</font></a>" if ($description ne "");
        $shortdesc = "<br> $shortdesc \n" if ($description ne "");

        # build line for each record
        $existing_titles = @list_titles[$list_pagenum];

        $existing_titles = @list_titles[$list_pagenum];
        @list_titles[$list_pagenum] = $existing_titles . "
        <table width=100% border=0 cellpadding=4 cellspacing=0>\n
            <tr align=center bgcolor=\"$rowcolor\">\n
		    <td align=left width=85><a href=\"$filename\"><img src=\"/images/equipment/$graphic\" width=75 height=75 border=0></a></td>\n
          <td align=left width=\"45%\"><font size=-1 face=arial><b><a href=\"$filename\">$model</a></b>\n
                    $shortdesc
                    $pubtag
                    $booktag
                </font></td>\n
                <td width=\"10%\"><font size=-1 face=arial>$manufacturer</font></td>\n
                <td width=\"20%\"><font size=-1 face=arial>$price</font></td>\n
                <td width=\"15%\"><font size=-1 face=arial>$pick</font></td>\n
            </tr>\n
        </table>\n";

        # alternate grey and white bar
        if ($rowcolor eq "#EEEEEE") {
            $rowcolor = "#FFFFFF";
        } else {
            $rowcolor = "#EEEEEE";
        }

    } # End of while

    # fix variables if no records were found
    if ($recordcount == 0) {
        $startcount = 0; 
        $headercount = "
        <table width=100% border=0 cellpadding=4 cellspacing=0 bgcolor=#FFFFFF>\n
            <tr valign=middle>\n
                <td><font size=-1 face=arial>Found:&nbsp;<b>0</b></font></td>\n
                <td valign=bottom align=right></td>\n
            </tr>\n
        </table>\n";
    } # end if ($recordcount == 0)

    if (@list_titles[1] eq "") {
        @list_titles[1] = "
    <table width=100% border=0 cellpadding=4 cellspacing=0 bgcolor=$rowcolor>\n
            <tr align=center>\n
                <td align=left colspan=5><font size=-1 face=arial><br><b>No records were found.</b><br><br></td>\n
            </tr>\n
    </table>\n";
    } # end if (@list_titles[1] eq "")

    $nextprev = "";

    for ($p=1; $p<=$list_pagenum; $p++) {
    
         if ($recordcount >= 1) {
            $startcount = ($p - 1) * $titles_per_listpage + 1;
            $stopcount = $p * $titles_per_listpage;

            # build next & prev buttons
            if ($p > 1) {
                $prevpage = $p - 1;
                $nextprev = "<font size=1 face=arial>&lt&lt&nbsp;<a href=\"". $listfile_baseurl . "1.html\">First</a></font>&nbsp;";
                $nextprev = $nextprev."|&nbsp;<a href=\"$listfile_baseurl$prevpage.html\"><font size=-1 face=arial><b>Prev</b></font></a>&nbsp;&nbsp;||";
            } else {
                $nextprev = "<font size=1 face=arial>&lt&lt&nbsp;First</font>&nbsp;";
                $nextprev = $nextprev."|&nbsp;<font size=-1 face=arial><b>Prev</b></font>&nbsp;||";
            }
            if ($p < ($recordcount / $titles_per_listpage)) {
                $lastpage = int($recordcount / $titles_per_listpage);
                $lastpage++ if (($recordcount/$titles_per_listpage) > $lastpage);
                $nextpage = $p + 1;
                $nextprev = $nextprev."&nbsp;<a href=\"$listfile_baseurl$nextpage.html\"><font size=-1 face=arial><b>Next</b></font></a>&nbsp;|";
                $nextprev = $nextprev."&nbsp;<a href=\"$listfile_baseurl$lastpage.html\"><font size=1 face=arial>Last</a>&nbsp;&gt&gt</font>";
            } else {
                $nextprev = $nextprev."&nbsp;<font size=-1 face=arial><b>Next</b></font>&nbsp;|";
                $nextprev = $nextprev."&nbsp;<font size=1 face=arial>Last&nbsp;&gt&gt</font>";
            }
            # build headers/footers, then print body
            $stopcount = $recordcount if ($stopcount > $recordcount);
            $headercount = "
            <table width=100% border=0 cellpadding=4 cellspacing=0 bgcolor=#FFFFFF>\n
                <tr valign=middle>\n
                    <td align=left nowrap=1><font size=-1 face=arial>Total:&nbsp;<b>$recordcount</b>&nbsp;&nbsp; Displaying:&nbsp;<b>$startcount - $stopcount</b></font></td>\n
                    <td align=right><font size=-1 face=arial><a href=\"$search_link\"><b>Search Equipment</b></a></font></td>\n
                    <td align=right><font size=-1 face=arial>$nextprev</font></td>\n
                </tr>\n
            </table>\n";
        }

        # build individual software user opinion page
        $outfile = $listfile_base . $p . ".html";
        open (OUT_FILE, ">". $outfile) || print "ERROR: *** Cannot open $outfile ***<br>\n";
        flock(OUT_FILE, 2);   # lock exclusive

        # all vars are set, build this category page
        $leftmenu = "";
        $title_tag = "$title_tag $equip_cat_title";
        $top_site_links = "<a href=\"/equipment.html\">Equipment</a>:  $equip_cat_title";
        &Print_Page_Top_File;

        print OUT_FILE <<HTMLEND;
<h2>$title_heading</h2>
$headercount
$headerbar
@list_titles[$p]
$headerbar
$headercount
</center>
HTMLEND

        $print_additional_info = "no";
        &Print_Page_Bottom_File;

    } # end for ($p=1; $p<=$list_pagenum; $p++)

} # end Build_Album_List_Pages subroutine
1; # required