#!/usr/bin/perl 


########################################################
# 	This file creates the CPU Graveyard's website
#
# 	Feel free to used it for your site, in whole or any pieces, 
# 	in acordance with GPL. IE give me credit. See below. If you do
# 	use the entire code for ur collections page, please use a
# 	different color scheme and title so it will be distiguishable
# 	from 'the CPU Graveyard'.  Much of the text has been moved 
# 	to 'chip_html_include.pl', so the file isn't as large, easier
#	to work with.
#
# 	Copyright 2008-2012, Jeff Israel, http://www.happytrees.org
# 	
#   This program is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation, either version 3 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#	see <http://www.gnu.org/licenses/>
#

my $URL = "https://happytrees.org/chips/";

print "Status: 301 Moved\nLocation: $URL\n\n";
exit;












use File::stat;
use Time::localtime;
use Switch;
use Archive::Zip;
# use Spreadsheet::Read;
print "Content-type:text/html\n\n";

#############################
# Config
#

$version		= 'v2.10';

$scriptName 	= $ENV{'SCRIPT_NAME'};
$serverName 	= $ENV{'SERVER_NAME'};

$spreadsheetFileName = "chipCollection-v1.03.ods";
$extended_code_include_file = 'chip_html_include-v2.pl';

$familyErasOrderedFileName = 'familyErasOrdered.txt';

$imageLoc	= 'main-images';
$photoLoc 	= 'main-images/chip-v2';
$thumbLoc 	= 'main-images/chip-v2/sm';
$board_loc 	= 'main-images/boards-v1';
$board_thumb_loc= 'main-images/boards-v1/sm';
$code_loc = 'http://www.happytrees.org/cgi-bin/chipParse-source.pl';

$logoLoc 	= 'main-images/ic-manuf-logos';
$datasheet_loc = 'main-files/datasheets';

$skipLines 	= 1;

$chip_page_number = 0;
$manuf_page_number = 1;
$family_page_number = 2;
$board_page_number = 3;
$varient_page_number = 4;


@manuf_others_list_global = ('2WIRE','ATI','Alcatel','Broadcom','Conexant','Microsoft','Virata','Zarlink','Zoran','nVIDIA','General Instruments','Nintendo','Sega','GPS','ELAN','ADMtek','Sanyo','STC','Temic','Novatek','Matsushita');


######################################################
############## Coding ################################
######################################################

sub check_script_location {
	my @scriptParts = split(/\//,$scriptName);
	$relativeLoc = '.';
	if($scriptName =~ /\//) {
		@scriptParts = split(/\//,$scriptName);
		# print "$#scriptParts $scriptParts[$#scriptParts]<br />\n";
		$scriptName = $scriptParts[$#scriptParts];
		if($#scriptParts > 1) {
			$relativeLoc = '..';
		}
	}
}

################## Import ARGS ##############
sub read_input {
    local ($buffer, @pairs, $pair, $name, $value, %FORM);
    # Read in text
    $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
    if ($ENV{'REQUEST_METHOD'} eq "POST")
    {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    } else
    {
        $buffer = $ENV{'QUERY_STRING'};
    }
	# $buffer = 'page=manufacturer&manufacturer=AMD&family=AM29000';
    # Split information into name/value pairs
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs)
    {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%(..)/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
    }
    %FORM;
}
###############Inport ARGS (end) ##################











##################################################
############### Reading Files ####################

#open file
sub openFile { 
	my $fileName = $_[0];
	open(FILEVARIABLE, "< $fileName");
	@fileLines= <FILEVARIABLE>;
	close(FILEVARIABLE);
	return @fileLines;
}


sub bbl_sort {
	# my (@a, @b) = @_;
    my @array =  @_;
	# print_2d(@array);
	my $row_sort = 0;
	# my $array2 =  @{$_[1]};
    my $not_complete = 1;
    my $index;
    my $len = ($#{$array[$row_sort]} - 2);
    # print "|sub=" . scalar @array . " -- " . scalar @array2 . "|";
    while ($not_complete) {
        $not_complete = 0;
        foreach $index (0 .. $len) {
            if ($array[$row_sort][$index] > $array[$row_sort][$index + 1]) {
                my $temp = $array[0][$index + 1];
				my $temp2 = $array[1][$index + 1];
                $array[0][$index + 1] = $array[0][$index];
				$array[1][$index + 1] = $array[1][$index];
                $array[0][$index] = $temp;
				$array[1][$index] = $temp2;
                $not_complete = 1;
				# print @array2[$index]; 
            }
        }
    }
	return (@array);
}


sub parse_ods {
	my $file = $_[0];
	my @sheets = ();
	my @data = ();
	my $sheet_num=0;
	my $row_num=0;
	my $col_num=0;
	my $col_repeated=0;
	
	my $zip = Archive::Zip->new($file);
	my $content=$zip->contents('content.xml');
	
	$content =~ s/<\?xml .*\?>\n//;
	$content =~ s/^.*<office:spreadsheet>//;
	$content =~ s/<\/office:spreadsheet>.*$//;
	$content =~ s/<table:named-expressions>.*<\/table:named-expressions>//;
	$content =~ s/<table:database-ranges>.*<\/table:database-ranges>//; #keep greedy?
	$content =~ s/<\/table:table-cell>//; #maybe not neeeded
	$content =~ s/<\/table:table-row>//; #maybe not neeeded
	# $content =~ s///; 
	
	@sheets = split(/<table:table .*?>/,$content);
	shift(@sheets); #skips the first _blank_ element

	foreach $sheet (@sheets) {
		$row_num=-1;
		foreach $row (split(/<table:table-row .*?>/,$sheet)) {
			if ($row_num != -1) {
				#skips first element
				$col_num=-1;
				foreach $cell ( split(/<table:table-cell/,$row )) {
					if ( $col_num == -1 ) {
						#skips first element
						$col_num++;
					} else {
						$cell_content = $cell;
						if ( $cell_content =~ /<text:p>/ ) {
							$cell_content =~ s/.*<text:p>//;
							$cell_content =~ s/<\/text:p>.*//;
						} else { # no content in cell
							$cell_content = '';
						}
						if ($cell =~ /number-columns-repeated/) {
							# repeat cells contents n-times
							$col_repeated = $cell;
							$col_repeated =~ s/table:number-columns-repeated="//;
							$col_repeated =~ s/".*//;
							for (my $x=1;$x<=$col_repeated;$x++) {
								# removes trailling whitespace/new line
								# $data[$sheet_num][$row_num][$col_num]= ( $cell_content =~ s/[\s\n]*$//);
								# $col_num++;
								# print "<<<$cell_content $data[$sheet_num][$row_num][$col_num]>>> || \n";
								$data[$sheet_num][$row_num][$col_num]=$cell_content;
								$data[$sheet_num][$row_num][$col_num] =~ s/[\s\n]*$//g; 

								$col_num++;
							}
						} else {
							# no repeated cols 
							# removes trailling whitespace/new line
							# $data[$sheet_num][$row_num][$col_num]= ( $cell_content =~ s/[\s\n]*$//);
							$data[$sheet_num][$row_num][$col_num]=$cell_content;
							$data[$sheet_num][$row_num][$col_num] =~ s/[\s\n]*$//g; 

							$col_num++;
							# print "<<<$cell_content $data[$sheet_num][$row_num][$col_num]>>> || \n";
						}
					}
				}
			}
			$row_num++
		}
		$sheet_num++;
	}
	return @data;
}


############# Reading Files (end) ##################
####################################################











########################################################
################# Processing Data ######################


sub getColLabels {
	my $col=0;
	while ( &chipData2(0,$col) ) {
		
		print "(((" . &chipData2(0,$col) . ")))";
		switch (&chipData2(0,$col)) {
			case "My Label" {$colJeffLable=$col}
			case "#" 		{$colTotal	=$col}
			case "Trade" 	{$colTrade	=$col}
			case "Manufacturer" {$colManuf	=$col}
			case "Part #" 	{$colPart	=$col}
			case "Type" 	{$colType	=$col}
			case "Family" 	{$colFamily	=$col}
			case "Core" 	{$colCore	=$col}
			case "Architecture"	{$colArch	=$col}
			case "Bus Width" 	{$colDataBus=$col}
			case "Address Width" {$colAddBus=$col}
			case "Speed" 	{$colSpeed	=$col}
			case "blank" 	{$colBlank	=$col}
			case "FPU" 		{$colFPU	=$col}
			case "L1 cache" {$colL1		=$col}
			case "L2 cache" {$colL2		=$col}
			case "L3 cache"	{$colL3		=$col}
			case "Package" 	{$colPack	=$col}
			case "Transistors" 	{$colTrans	=$col}
			case "Process Size" {$colProc	=$col}
			case "Technology" 	{$colTech	=$col}
			case "Die Size" {$colDie	=$col}
			case "Vcc" 		{$colVcc	=$col}
			case "Vcc (I/O)" 		{$col_volt_io	=$col}
			case "Power Max" 		{$col_power	=$col}
			case "Date Introduced" 	{$colDate=$col}
			case "Condition" 	{$colCond	=$col}
			case "Variants" 	{$colVar	=$col}
			case "Description" 	{$colDesc	=$col}
			case "Photo 1" 	{$colPhoto1	=$col}
			case "Photo 2" 	{$colPhoto2	=$col}
			case "Photo 3" 	{$colPhoto3	=$col}
			case "Photo 4" 	{$colPhoto4	=$col}
			case "Photo 5" 	{$colPhoto5	=$col}
			case "Datasheet" {$col_datasheet	=$col}
			case "Label ID" {$col_label_id	=$col}
			case "Alt ID"	{$col_alt_id	=$col}
			case "ROM Int"	{$col_rom_int	=$col}
			case "ROM type"	{$col_rom_type	=$col}
			case "RAM Int"	{$col_ram_int	=$col}
			case "RAM Max"	{$col_ram_max	=$col}
			case "RAM type"	{$col_ram_type	=$col}
			case "Socket"	{$col_socket	=$col}
			case "Features"	{$col_features	=$col}
			case "# Cores"	{$col_num_cores	=$col}
			case "Designer of Core"	{$col_designer	=$col}
			case "Bus speed"	{$col_bus_speed	=$col}
			case "Applications"	{$col_applications = $col}
			case "Instruction set"	{$col_instruction_set = $col}
			case "Instruction link"	{$col_instruction_link = $col}
			case "Computer architecture"{$col_computer_architecture = $col}
			case "Microarchitecture"	{$col_microarchitecture = $col}	
			case "ISA"	{$col_isa = $col}
			# case ""	{$col_ = $col}
			# case ""	{$col_ = $col}
			# case ""	{$col_ = $col}
			# case ""	{$col_ = $col}
			else {}
		}
		$col++;
	}
	$col=1;
	while ( &manufData2(0,$col) ) {
		# print &chipData2(1,$col) . ", ";
		switch (&manufData2(0,$col)) {
			case "Short name"	{$colManufName	=$col}
			case "Abrev"	{$colManufAbrev	=$col}
			case "Full name"	{$colManufFullName	=$col}
			case "Date"	{$colManufDate	=$col}
			case "Homepage"	{$colManufHomepage	=$col}
			case "Wiki"	{$colManufWiki	=$col}
			case "Traditional"	{$colManufTrad	=$col}
			case "Current"	{$colManufCurrent	=$col}
			case "Status"	{$colManufStatus	=$col}
			case "Description"	{$colManufDesc	=$col}
			case "Wide logo"	{$colManufWideLogo	=$col}
			case "Logo1"	{$colManufLogo1	=$col}
			case "Logo2"	{$colManufLogo2	=$col}
			case "Logo3"	{$colManufLogo3	=$col}
			case "Logo4"	{$colManufLogo4	=$col}
			case "Logo5"	{$colManufLogo5	=$col}
			else {}
		}
		$col++;
	}
	$col=1;
	while ( &familyData2(0,$col) ) {
		# print &chipData2(1,$col) . ", ";
		switch (&familyData2(0,$col)) {
			case "Var"		{$colFamilyName	=$col}
			case "Full name"	{$colFamilyFullName	=$col}
			case "Manuf"	{$colFamilyManuf	=$col}
			case "Date"		{$colFamilyDate	=$col}
			case "Chip"		{$colFamilyChip	=$col} #maybe dont use
			case "Arch"		{$colFamilyArch	=$col}
			case "Freq range"	{$colFamilyFreq	=$col}
			case "Technology"	{$colFamilyTech	=$col}
			case "# Intructions"	{$colFamilyIntrucNum	=$col}
			case "Int Set Name"	{$colFamilyInstrucName	=$col}
			case "Intruction link"	{$colFamilyInstrucLink	=$col}
			case "Description"	{$colFamilyDesc	=$col}
			case "Core arch"	{$colFamilyCoreArch	=$col}
			case "Wiki"			{$colFamilyWiki	=$col}
			case "Homepage"		{$colFamilyHomepage	=$col}
			case "Logo"			{$colFamilyLogo	=$col}
			else {}
		}
		$col++;
	}
	$col=1;
	while ( &wanted_data(0,$col) ) {
		# print &chipData2(1,$col) . ", ";
		switch (&wanted_data(0,$col)) {
			case "Manufacture"	{$col_wanted_man	=$col}
			case "Part #"		{$col_wanted_part	=$col}
			else {}
		}
		$col++;
	}
	$col=1;
	while ( &board_data(0,$col) ) {
		# print &chipData2(1,$col) . ", ";
		switch (&board_data(0,$col)) {
			case "Board type"	{$col_board_type	=$col}
			case "Type"			{$col_board_type	=$col}
			case "Manuf"		{$col_board_manuf	=$col}
			case "Name"			{$col_board_name	=$col}
			case "Chip manuf"	{$col_board_chip_manuf=$col}
			case "Chip part"	{$col_board_chip_part	=$col}
			case "Chip type"	{$col_board_chip_type	=$col}			
			case "Speed"		{$col_board_speed		=$col}
			case "Arch width"	{$col_board_arch_width=$col}
			case "Socket"		{$col_board_socket	=$col}
			case "Ports"		{$col_board_ports		=$col}
			case "Computers"	{$col_board_computers	=$col}
			case "Features"		{$col_board_features	=$col}
			case "Description"	{$col_board_desc		=$col}
			case "Photo front"	{$col_board_photo_front=$col}
			case "Photo back"	{$col_board_photo_back=$col}
			case "Manuf p1"		{$col_board_manuf_p1	=$col}
			case "Part p1"		{$col_board_part_p1	=$col}
			case "Func p1"		{$col_board_func_p1	=$col}
			case "Manuf p2"		{$col_board_manuf_p2	=$col}
			case "Part p2"		{$col_board_part_p2	=$col}
			case "Func p2"		{$col_board_func_p2	=$col}
			case "Manuf p3"		{$col_board_manuf_p3	=$col}
			case "Part p3"		{$col_board_part_p3	=$col}
			case "Func p3"		{$col_board_func_p3	=$col}
			case "Manuf p4"		{$col_board_manuf_p4	=$col}
			case "Part p4"		{$col_board_part_p4	=$col}
			case "Func p4"		{$col_board_func_p4	=$col}
			case "Manuf p5"		{$col_board_manuf_p5	=$col}
			case "Part p5"		{$col_board_part_p5	=$col}
			case "Func p5"		{$col_board_func_p5	=$col}
			case "Manuf p6"		{$col_board_manuf_p6	=$col}
			case "Part p6"		{$col_board_part_p6	=$col}
			case "Func p6"		{$col_board_func_p6	=$col}
			case "Manuf p7"		{$col_board_manuf_p7	=$col}
			case "Part p7"		{$col_board_part_p7	=$col}
			case "Func p7"		{$col_board_func_p7	=$col}
			case "Manuf p8"		{$col_board_manuf_p8	=$col}
			case "Part p8"		{$col_board_part_p8	=$col}
			case "Func p8"		{$col_board_func_p8	=$col}
			case "Manuf p9"		{$col_board_manuf_p9	=$col}
			case "Part p9"		{$col_board_part_p9	=$col}
			case "Func p9"		{$col_board_func_p9	=$col}
			case "Datasheet"	{$col_board_datasheet	=$col}
			else {}
		}
		$col++;
	}
}

sub getColChipData {
	my $row=$skipLines;
	my @manufList = ();
	my @familyList = ();
	@manufListGlobal = ();
	@familyListGlobal = ();

	print "<<< $colPart >>> &chipData2(4,$colPart) |||||";
	while (&chipData2($row,$colPart) ne '') {
		#Makes a list of manuf and fams
		$manufList[$row-1]=&chipData2($row,$colManuf);
		$familyList[$row-1]=&chipData2($row,$colFamily);
		
		# This makes a list and count of manuf
		if ($manufListCountGlobal{&chipData2($row,$colManuf)} eq '') {
			$manufListCountGlobal{&chipData2($row,$colManuf)} =1;
		} else {
			$manufListCountGlobal{&chipData2($row,$colManuf)}++;
		}

		# Count families for this manufacturer
		if ( &chipData2($row,$colManuf) eq $data{'manufacturer'} ) {
			if (&chipData2($row,$colFamily) eq '') {
				$fam='Other';
			} else {$fam=&chipData2($row,$colFamily);}
			if ( $manufFamilyCountGlobal{$fam} eq '' ) {
				$manufFamilyCountGlobal{$fam} = 1;
			} else {
				$manufFamilyCountGlobal{$fam}++;
			}
		}
		$row++;
	}
	$totalChipCountGlobal=$row;

	undef %saw;
	@saw{@manufList} = ();
	@manufListGlobal = sort keys %saw;  
	undef %saw;
	@saw{@familyList} = ();
	@familyListGlobal = sort keys %saw;  
	$totalManufCountGlobal=$#manufListGlobal+1;
	$totalFamilyCountGlobal=$#familyListGlobal+1;

	@manufFamilies = keys %manufFamilyCountGlobal;
	&sortManufFamilies(%manufFamilyCountGlobal);
}



sub sortManufFamilies {
	#this creating two ordered arrays, organized by era to print prettylike
	# @manufFamilyListGlobal
	# @manufFamilyListCountGlobal
	my %manufFamilyCount = %manufFamilyCountGlobal; # $_[0]???
	my $x=0;
	my $hasOther=0;
	my $isInList=0;
	
	foreach $famEra (@chipErasGlobal) { #sorts the families included in chipEras list  
		if ($manufFamilyCount{$famEra} ne '' ) {
			$manufFamilyListGlobal[$x]=$famEra;
			$manufFamilyListCountGlobal[$x]=$manufFamilyCount{$famEra};
			$x++;	
		}
	}
	
	foreach $manufFamily (keys %manufFamilyCount) {
		$isInList=0;
		if ($manufFamily eq 'Other') {
			$hasOther=1;
			$isInList=1; #a bypass
		} else {
			foreach $famEra (@chipErasGlobal) {
				if ( $manufFamily eq $famEra){
					$isInList=1;
				}
			}
		}
		if ($isInList == 0){ #is its not in the list, add it
			$manufFamilyListGlobal[$x]=$manufFamily;
			$manufFamilyListCountGlobal[$x]=$manufFamilyCount{$manufFamily};
			$x++;
		}
	}

	if ($hasOther == 1) { #Adds Other to list
		$manufFamilyListGlobal[$x]='Other';
		$manufFamilyListCountGlobal[$x]=$manufFamilyCount{'Other'};
		$x++
	}

	if ($x >= 2) {
		unshift(@manufFamilyListGlobal, "All");
		unshift(@manufFamilyListCountGlobal, "null");
	}
}


# not currently used
sub sort_family_by {
	my $sort_element = $_[0];
	my %families_sort = ();
	my $row = $skipLines;
	my $col = '';

	switch ($sort_element) {
		case "data-width"	{ $col = $colArch; }
		case "arch"			{ $col = $col_computer_architecture; }
		case "tech"			{ $col = $colTech; }
		# case "family"		{ $col = $colFamily; }
		case "app"			{ $col = $col_applications; }
		case "microarch"	{ $col = $col_microarchitecture; }
		# case ""			{ $col = $; }
		# case ""			{ $col = $; }
		# case ""			{ $col = $; }
		# case ""			{ $col = $; }
		else				{ $col = 'X'; }
	}
	print "$sort_element:$col";

	if ( $col eq 'X' ) {
		print "Error: invalid sort elements.<br />\n";
	} else {
		while (&chipData2($row,$colPart) ne '') {
			if ( (&chipData2($row,$col) ne '' || &chipData2($row,$col) ne '?' || &chipData2($row,$col) ne 'Other') && (&chipData2($row,$colFamily) ne '' || &chipData2($row,$colFamily) ne '?' || &chipData2($row,$colFamily) ne 'Other') ) {
				# print ".";
				if ( $families_sort{&chipData2($row,$col)} eq '' ) {
				   $families_sort{&chipData2($row,$col)} = &chipData2($row,$colFamily);

				} elsif ( $families_sort{&chipData2($row,$col)} !~ /&chipData2($row,$colFamily)/ ) {
					$families_sort{&chipData2($row,$col)} .= '=' . &chipData2($row,$colFamily);
				   # print "-";	
				}
			   # print $families_sort{&chipData2($row,$col)};	
			$row++;
			}
		}
	}
    # for my $key ( keys %families_sort ) {
        # my $value = $families_sort{$key};
        # print "<br />$key => $value\n";
    # }
	return(%families_sort);
}




############### Process Data (end) ######################
#########################################################
#
#

sub chipData2 {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	# print "[[[ $chip_page_number ]]]  $spreadsheetData[$chip_page_number][2][4];";
	return $spreadsheetData[$chip_page_number][$row][$col];
	# return $chipListSpreadsheet->[1]{cr2cell($col,$row)};
}	
sub manufData2 {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	return $spreadsheetData[$manuf_page_number][$row][$col];
	# return $chipListSpreadsheet->[2]{cr2cell($col,$row)};
}	
sub familyData2 {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	return $spreadsheetData[$family_page_number][$row][$col];
	# return $chipListSpreadsheet->[3]{cr2cell($col,$row)};
}	
sub wanted_data {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	return $spreadsheetData[3][$row][$col];
	# return $chipListSpreadsheet->[3]{cr2cell($col,$row)};
}	

sub board_data {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	return $spreadsheetData[$board_page_number][$row][$col];
}	

sub computer_data {
	# Format: $cellContents = &chipData2($row,$col)
	my $col = $_[1];
	my $row = $_[0];
	return $spreadsheetData[5][$row][$col];
}	


######### Process list (end) ############################

sub grapGlobals {
	# $totalChipCountGlobal=1;


	$pageTypeGlobal	= $data{'page'};
		# manufacturer
		# fullList
		# tradeList
	$selectedManufglobal	= $data{'manufacturer'};
	$selectedFamilyGlobal	= $data{'family'};


}



sub wikify { # makes wikipedia links
	my $text=$_[0];
	my $url='http://en.wikipedia.org/wiki/';

	@linkables = qw(CMOS NMOS PMOS CHMOS HMOS PSoC EPROM BIOS I2C);

	foreach $link (@linkables) {
		$text =~ s/ $link / <a href=\"$url$link\">$link<\/a> /;
	}	
	# PLD	prigrammable logic device
	# flash Flash memory
	# PAL Programmable Array Logic
	# ASIC Application-specific integrated circuit
	# DRAM Dynamic random access memory
	# SRAM Static random access memory
	# SPI Serial Peripheral Interface
	# SCI Serial Communication Interface
	# GPIO General Purpose Input/Output
	# CAN Controller-area network
	# ADC Analog-to-digital converter
	# DAC digital-to-analog converter
}



sub does_page_exist {
	$page_DNE_global = 'FALSE';

	# Is it a false page type?
	if($data{'page'} ne "fullList" && $data{'page'} ne "tradeList" && $data{'page'} ne "family" && $data{'page'} ne	"manufacturer" && $data{'page'} ne "chip" && $data{'page'} ne "sneezmale" && $data{'page'} ne "site_map" && $data{'page'} ne "cat" && $data{'page'} ne "glossary" && $data{'page'} ne "board" && $data{'page'} ne ""){	  
		$page_DNE_global = 'TRUE';
		$page_DNE_title_global = "404: Page Type Not Found";
	}

	# $data{'page'} = 'manufacturer';
	# $data{'manufacturer'} = '2WIRE';
	# $data{'family'} = '';
	# print "$data{'page'} $data{'manufacturer'}  $data{'family'}\n";
	
	my $x=$skipLines; 
	my $page_found = 0;
	while(&chipData2($x,$colPart) ne "") {
		my $manuf=&chipData2($x,$colManuf);
		my $family=&chipData2($x,$colFamily);
		my $part=&chipData2($x,$colPart);

		# print "$page_found -> $manuf <> $family <> $part \n";
		# Does the chip exist ?
		if($data{'page'} eq "chip" && $data{'manufacturer'} eq $manuf && $data{'part'} eq $part){
			$page_found = 1;
			#print "A\n";
		}

		# Does the Manufacturer exist?
		if($data{'page'} eq "manufacturer" && $data{'family'} eq "" && $data{'manufacturer'} eq $manuf){
			$page_found = 1;
			#print "B\n";
		}

		# If the Manufacturer is others its ok
		if($data{'page'} eq "manufacturer" && $data{'manufacturer'} eq 'Others'){
			$page_found = 1;
			#print "B\n";
		}
		# Does the Manufacturer's Family exist?
		if($data{'page'} eq "manufacturer" && $data{'family'} eq $family && $data{'manufacturer'} eq $manuf){
			$page_found = 1;
			#print "C\n";
		}	

		# Does the Family exist?
		if($data{'page'} eq "family" && $data{'family'} eq $family){
			$page_found = 1;
			#print "D\n";
		}	

		$x++;
	}

	if($page_found == 0){
		$page_DNE_global = 'TRUE';
		#print "Pow\n";
		if($data{'page'} eq "chip"){
			$page_DNE_title_global = "404: Chip Not Found";
		} elsif($data{'page'} eq "manufacturer" && $data{'family'} eq ""){# Does the Manufacturer exist?
			$page_DNE_title_global = "404: Chip Manufacturer Not Found";
		} elsif($data{'page'} eq "manufacturer" && $data{'family'} ne ""){ # Does the Manufacturer's Family exist?
			$page_DNE_title_global = "404: Chip manufacturer's Family Not Found";
		} elsif($data{'page'} eq "family"){ # Does the Family exist?
			$page_DNE_title_global = "404: Family Not Found";
		}
	}
}

###################################################
####### Coding (End) ##############################
###################################################


















############################################################
###################### HTML ################################
############################################################








######################################
############## Tables ################
######################################




sub displayTableData2 { # displays table from multichip list
	my $row = $_[0], $flipColor=$_[1], $thumb;
	#&chipData2($row,...)
	my $sort_element = '';
	my $manufTableSub	=  &chipData2($row,$colManuf);
	my $type	= &chipData2($row,$colType);
	my $part	= &chipData2($row,$colPart);
	my $photo	= "PHOTO<br />To be added\n";
	my $family	= '';
	my $speed	= '?';
	my $arch	= '?';
	my $data	= '?';
	my $address = '?';
	my $package = '?';
	my $trans	= '?';
	my $tech	= '?';
	my $proc	= '?';
	my $die		= '?';
	my $volt	= '?';
	my $date	= '?';
	my $L1		= '?';
	my $L2		= '?';
	my $L3		= '?';
	my $max_ram	= '?';
	my $socket	= '?';
	my $ram_int	= '?';
	my $rom_int = '?';
	my $fpu		= '?';
	my $core	= '?';
	my $datasheet = '?';
	my $features = '?';
	my $num_cores = '?';
	my $core_designer = '?';
	my $text = '';

	my $chip_link_part_var = $part;
	$chip_link_part_var =~ s/\W/_/g;
	my $chip_link = "<a href=\"$scriptName?page=chip&manufacturer=$manufTableSub&part=$chip_link_part_var\">";
	my $img_alt_text = $manufTableSub . " " . $part;	


	if (&chipData2($row,$colPhoto1) ne ""){
		$photoFile = &chipData2($row,$colPhoto1);
		$thumb = $photoFile . '_sm.jpg';
		$photo = "$chip_link<img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"$img_alt_text\"></a>\n";
		if (&chipData2($row,$colPhoto2) ne ""){
			$photoFile = &chipData2($row,$colPhoto2);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t$chip_link<img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"$img_alt_text\"></a>\n";
		} if (&chipData2($row,$colPhoto3) ne ""){
			$photoFile = &chipData2($row,$colPhoto3);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t$chip_link<img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"$img_alt_text\"></a>\n";
		} if (&chipData2($row,$colPhoto4) ne ""){
			$photoFile = &chipData2($row,$colPhoto4);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t$chip_link<img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"$img_alt_text\"></a>\n";
		} if (&chipData2($row,$colPhoto5) ne ""){
			$photoFile = &chipData2($row,$colPhoto5);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t$chip_link<img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"$img_alt_text\"></a>\n";
		}
	}
	if ( &chipData2($row,$colFamily) ne "" && &chipData2($row,$colFamily) ne "Other") {
		$family = &chipData2($row,$colFamily);
	}
	if ( &chipData2($row,$colSpeed) ne '' ) {
		$speed = &chipData2($row,$colSpeed);
	}
	if ( &chipData2($row,$colArch) ne '' ) {
		# if ( &chipData2($row,$colArch) eq '16/32' ) {
			# $arch = "<a href=\"http://en.wikipedia.org/wiki/16-bit\">16/32-bit</a>";
		# } else {
			# $arch = "<a href=\"http://en.wikipedia.org/wiki/&chipData2($row,$colArch)" . "-bit\">" . &chipData2($row,$colArch) . "-bit</a>";
		# }
		 $arch = &chipData2($row,$colArch) . "-bit" ;
	}
	if ( &chipData2($row,$colDate) ne '' ) {
		$date = &chipData2($row,$colDate);
	}
	if ( &chipData2($row,$colCore) ne '' ) {
		$core = &chipData2($row,$colCore);
	}


	$text .= "\t<!-- chip table -->\n";
	$text .= "\t<tr bgcolor=\"#454545\">\n";

	# if ( $flipColor == 0 ) {
		# $text .= "\t<tr bgcolor=\"#454545\">\n";
	# }else{
		# $text .= "\t<tr bgcolor=\"#545454\">\n";
	# }
	$text .= "\t\t<td width=\"256\">\n\t\t\t$photo\n\t\t</td>\n";

	$text .= "\t\t<td width=\"500\" valign=\"top\">\n";
	
	$text .= "\t\t\t<div class=\"tableDisplayPartNum\">$chip_link$manufTableSub $part</a></div><br /><br />\n";

	# $text .= "\t\t\t<div class=\"tableDisplayManufType\">";
	# if ($type ne '') {
		# $text .= "$type";
	# }
	# if ($family ne '') {
		# $text .= " of the $family Family";
	# }
	# $text .= "</div>\n";

	$text .= <<Endhtml;
		<table width="400">
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">General Specifications:</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Type:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$type</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Family:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$family</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Speed:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$speed</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Architecture:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$arch</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Introduced:</span>
				</td><td nowrap>
					<span class="tableChipValue">$date</span>
				</td>
			</tr><tr>
				<td colspan="4">
					<br />
					<div align="center" class="tableChipFullDetails">$chip_link Full details...</a></center>
				</td>
			</tr>
		</table>
		</td>
	</tr>
Endhtml
	$text .= "\t<!-- chip table (end) -->\n";
	
	# if ( $data{'page'} eq 'manufacturer' ) {
		# getting frequesncy to sort
		my $freq = $speed;
		if ( $freq =~ /kHz/ ) {
			$freq =~ s/kHz//;
			$freq *= 1000;
		} elsif ( $freq =~ /MHz/ ) {
			$freq =~ s/MHz//;
			$freq *= 1000000;
		} elsif ( $freq =~ /GHz/ ) {
			$freq =~ s/GHz//;
			$freq *= 1000000000;
		} 
		# print "<tr><td>Vampires .....  $speed = $freq</td></tr>";
		$sort_element = $freq;
	# } elsif ( $data{'page'} eq 'family' ) {
		# $sort_element = $manufTableSub;
	# }

	return ($text, $sort_element, $type);
}














###########################################
############ Table ##################
###########################################





sub display_board_table_element { # displays table for multi-board list
	# usage &display_board_table_element($row,$board_type,$flip_color);
	my $row 	= $_[0];		#[$skipLines - EOF]
	my $quality	=$_[1];	#(0=compact)	
	my $flipColor	=$_[1];	#(0|1)
	my $text = '';

	my $Board_type	='?';
	my $Type		='?';
	my $Manuf		='?';
	my $Name		='?';
	my $Chip_manuf	='?';
	my $Chip_part	='?';
	my $Chip_type	='?';
	my $Speed		='?';
	my $Arch_width	='?';
	my $Ports		='?';
	my $Socket		='?';
	my $Computers	='?';
	my $Features	='?';
	my $Description='?';
	my $Photo_front	="PHOTO<br />To be added\n";
	my $Photo_back	="";
	my $Manuf_p1='?';
	my $Part_p1	='?';
	my $Func_p1	='?';
	my $Manuf_p2='?';
	my $Part_p2	='?';
	my $Func_p2	='?';
	my $Manuf_p3='?';
	my $Part_p3	='?';
	my $Func_p3	='?';
	my $Manuf_p4='?';
	my $Part_p4	='?';
	my $Func_p4	='?';
	my $Manuf_p5='?';
	my $Part_p5	='?';
	my $Func_p5	='?';
	my $Manuf_p6='?';
	my $Part_p6	='?';
	my $Func_p6	='?';
	my $Manuf_p7='?';
	my $Part_p7	='?';
	my $Func_p7	='?';
	my $Manuf_p8='?';
	my $Part_p8	='?';
	my $Func_p8	='?';
	my $Manuf_p9='?';
	my $Part_p9	='?';
	my $Func_p9	='?';
	my $Datasheet = '?';
	my $title = '';
	my $periph = '';
	my $img_alt_text = "More details";
	my $chip_link = '';		
	my $chip_link_back = '';


	if ( &board_data($row,$col_board_board_type) ne '' ) {
		if ( &board_data($row,$col_board_board_type) eq 'module' ) {
			$Board_type = 'CPU module';
		} elsif ( &board_data($row,$col_board_board_type) eq 'dev' ) {
			$Board_type = 'Evaluation board';
		} else {
			$Board_type = &board_data($row,$col_board_board_type);
		}
		$board_type_var = &board_data($row,$col_board_board_type);
	}
	if ( &board_data($row,$col_board_type) ne '' ) {
		$Type = &board_data($row,$col_board_type);
	}
	if ( &board_data($row,$col_board_manuf) ne '' ) {
		$Manuf = &board_data($row,$col_board_manuf);
	}
	if ( &board_data($row,$col_board_name) ne '' ) {
		$Name = &board_data($row,$col_board_name);
	}
	if ( &board_data($row,$col_board_chip_manuf) ne '' ) {
		$Chip_manuf = &board_data($row,$col_board_chip_manuf);
	}
	if ( &board_data($row,$col_board_chip_type) ne '' ) {
		$Chip_type = &board_data($row,$col_board_chip_type);
	}
	if ( &board_data($row,$col_board_chip_part) ne '' ) {
		$Chip_part = &board_data($row,$col_board_chip_part);
		if ( $quality == 1 ) {
			$Chip_detail_link = "<a href=\"$scriptLoc?page=chip&manufacturer=$Chip_manuf&part=$Chip_part\">$Chip_type Details...</a>";
			$Chip_part = "<a href=\"$scriptLoc?page=chip&manufacturer=$Chip_manuf&part=$Chip_part\">$Chip_part</a>";
		}
	}
	if ( &board_data($row,$col_board_speed) ne '' ) {
		$Speed = &board_data($row,$col_board_speed);
	}
	if ( &board_data($row,$col_board_arch_width) ne '' ) {
		$Arch_width = &board_data($row,$col_board_arch_width);
	}
	if ( &board_data($row,$col_board_socket) ne '' ) {
		$Socket = &board_data($row,$col_board_socket);
	}
	if ( &board_data($row,$col_board_ports) ne '' ) {
		$Ports = &board_data($row,$col_board_ports);
	}
	if ( &board_data($row,$col_board_computers) ne '' ) {
		$Computers = &board_data($row,$col_board_computers);
	}
	if ( &board_data($row,$col_board_features) ne '' ) {
		$Features = &board_data($row,$col_board_features);
	}
	if ( &board_data($row,$col_board_description) ne '' ) {
		$Description = &board_data($row,$col_board_description);
	}
	if ( &board_data($row,$col_board_manuf_p1) ne '' ) {
		$Manuf_p1 = &board_data($row,$col_board_manuf_p1);
	}
	if ( &board_data($row,$col_board_part_p1) ne '' ) {
		$Part_p1 = &board_data($row,$col_board_part_p1);
	}
	if ( &board_data($row,$col_board_func_p1) ne '' ) {
		$Func_p1 = &board_data($row,$col_board_func_p1);
	}
	if ( &board_data($row,$col_board_manuf_p2) ne '' ) {
		$Manuf_p2 = &board_data($row,$col_board_manuf_p2);
	}
	if ( &board_data($row,$col_board_part_p2) ne '' ) {
		$Part_p2 = &board_data($row,$col_board_part_p2);
	}
	if ( &board_data($row,$col_board_func_p2) ne '' ) {
		$Func_p2 = &board_data($row,$col_board_func_p2);
	}
	if ( &board_data($row,$col_board_manuf_p3) ne '' ) {
		$Manuf_p3 = &board_data($row,$col_board_manuf_p3);
	}
	if ( &board_data($row,$col_board_part_p3) ne '' ) {
		$Part_p3 = &board_data($row,$col_board_part_p3);
	}
	if ( &board_data($row,$col_board_func_p3) ne '' ) {
		$Func_p3 = &board_data($row,$col_board_func_p3);
	}
	if ( &board_data($row,$col_board_manuf_p4) ne '' ) {
		$Manuf_p4 = &board_data($row,$col_board_manuf_p4);
	}
	if ( &board_data($row,$col_board_part_p4) ne '' ) {
		$Part_p4 = &board_data($row,$col_board_part_p4);
	}
	if ( &board_data($row,$col_board_func_p4) ne '' ) {
		$Func_p4 = &board_data($row,$col_board_func_p4);
	}
	if ( &board_data($row,$col_board_manuf_p5) ne '' ) {
		$Manuf_p5 = &board_data($row,$col_board_manuf_p5);
	}
	if ( &board_data($row,$col_board_part_p5) ne '' ) {
		$Part_p5 = &board_data($row,$col_board_part_p5);
	}
	if ( &board_data($row,$col_board_func_p5) ne '' ) {
		$Func_p5 = &board_data($row,$col_board_func_p5);
	}
	if ( &board_data($row,$col_board_manuf_p6) ne '' ) {
		$Manuf_p6 = &board_data($row,$col_board_manuf_p6);
	}
	if ( &board_data($row,$col_board_part_p6) ne '' ) {
		$Part_p6 = &board_data($row,$col_board_part_p6);
	}
	if ( &board_data($row,$col_board_func_p6) ne '' ) {
		$Func_p6 = &board_data($row,$col_board_func_p6);
	}
	if ( &board_data($row,$col_board_manuf_p7) ne '' ) {
		$Manuf_p7 = &board_data($row,$col_board_manuf_p7);
	}
	if ( &board_data($row,$col_board_part_p7) ne '' ) {
		$Part_p7 = &board_data($row,$col_board_part_p7);
	}
	if ( &board_data($row,$col_board_func_p7) ne '' ) {
		$Func_p7 = &board_data($row,$col_board_func_p7);
	}
	if ( &board_data($row,$col_board_manuf_p8) ne '' ) {
		$Manuf_p8 = &board_data($row,$col_board_manuf_p8);
	}
	if ( &board_data($row,$col_board_part_p8) ne '' ) {
		$Part_p8 = &board_data($row,$col_board_part_p8);
	}
	if ( &board_data($row,$col_board_func_p8) ne '' ) {
		$Func_p8 = &board_data($row,$col_board_func_p8);
	}
	if ( &board_data($row,$col_board_manuf_p9) ne '' ) {
		$Manuf_p9 = &board_data($row,$col_board_manuf_p9);
	}
	if ( &board_data($row,$col_board_part_p9) ne '' ) {
		$Part_p9 = &board_data($row,$col_board_part_p9);
	}
	if ( &board_data($row,$col_board_func_p9) ne '' ) {
		$Func_p9 = &board_data($row,$col_board_func_p9);
	}
	if ( &board_data($row,$col_board_datasheet) ne '' ) {
		$Datasheet = &board_data($row,$col_board_datasheet);
	}
	if ( $quality == 0 ) {
		$title = 'Board details';
		my $Manuf_s = $Manuf;
		my $Name_s	= $Name;
		$Manuf_s 	=~ s/[ \W]/_/g;
		$Name_s		=~ s/[ \W]/_/g;
		$chip_link = "$scriptLoc?page=board&manuf=$Manuf_s&name=$Name_s";
		if ( length($Manuf . $Name) > 25 ) {
			$sub_title = $Manuf . '<br />' . $Name;
		} else {
			$sub_title = $Manuf . ' - ' . $Name;
		}
	} else {
		$title = 'Full quality image';
		$chip_link = "$relativeLoc/$board_loc/" . &board_data($row,$col_board_photo_front);
		$chip_link_back = "$relativeLoc/$board_loc/" . &board_data($row,$col_board_photo_back);
		if ( length($Manuf . $Name) > 25 ) {
			$sub_title = $Manuf . '<br />' . $Name;
		} else {
			$sub_title = $Manuf . ' - ' . $Name;
		}
	}
	if (&board_data($row,$col_board_photo_front) ne '') {
		$Photo_front = &board_data($row,$col_board_photo_front) . '_sm.jpg';
		my $res = 250;
		if (&board_data($row,$col_board_photo_back) eq '' && $quality == 1) {
			$res = 350;
			$Photo_front = &board_data($row,$col_board_photo_front) . '_med.jpg';
		} else {
			$res = 250;
			$Photo_front = &board_data($row,$col_board_photo_front) . '_sm.jpg';
		}
		$Photo_front = "<a href=\"$chip_link\" title=\"$title\"><img src=\"$relativeLoc/$board_thumb_loc/$Photo_front\" width=\"$res\" alt=\"$img_alt_text\"></a>\n";		
	}
	if ( &board_data($row,$col_board_photo_back) ne '' ) {
		$Photo_back = &board_data($row,$col_board_photo_back) . '_sm.jpg';
		$Photo_back = "<a href=\"$chip_link_back\" title=\"Full quatity image\"><img src=\"$relativeLoc/$board_thumb_loc/$Photo_back\" width=\"250\" alt=\"$img_alt_text\"></a>\n";		
	}

	if ( $quality == 1 ) {
		if ( &board_data($row,$col_board_board_type) ne '' ) {
			if ( &board_data($row,$col_board_board_type) eq 'module' ) {
				$Board_type = "<a href=\"$scriptLoc?page=board&type=module\">CPU module</a>";
			} elsif ( &board_data($row,$col_board_board_type) eq 'dev' ) {
				$Board_type = "<a href=\"$scriptLoc?page=board&type=eval\">Evaluation board</a>";
			} else {
				$Board_type = &board_data($row,$col_board_board_type);
			}
		}
		if ( &board_data($row,$col_board_type) ne '' ) {
			$Type = "<a href=\"$scriptLoc?page=family&family=" . &board_data($row,$col_board_type) . "\">" . &board_data($row,$col_board_type) . "</a>";
		}
		if ( &board_data($row,$col_board_manuf) ne '' ) {
			$Manuf = &board_data($row,$col_board_manuf);
		}
		if ( &board_data($row,$col_board_name) ne '' ) {
			$Name = &board_data($row,$col_board_name);
		}
		if ( &board_data($row,$col_board_chip_manuf) ne '' ) {
			$Chip_manuf = "<a href=\"$scriptLoc?page=manufacturer&manufacturer=" . &board_data($row,$col_board_chip_manuf) . "\">" . &board_data($row,$col_board_chip_manuf) . "</a>";
		}
		if ( &board_data($row,$col_board_chip_type) ne '' ) {
			$Chip_type = &board_data($row,$col_board_chip_type);
		}
		if ( &board_data($row,$col_board_chip_part) ne '' ) {
			my $part = &board_data($row,$col_board_chip_part);
			my $chip_man =  &board_data($row,$col_board_chip_manuf);
			my $chip_type = &board_data($row,$col_board_chip_type);
			my $part_link = &board_data($row,$col_board_chip_part);
			$part_link =~  s/[ \W]/_/g; #tr/\W/_/; 
			$chip_man =~ s/[ \W]/_/g;
			$Chip_detail_link = "<a href=\"$scriptLoc?page=chip&manufacturer=$chip_man&part=$part_link\">$chip_type Details...</a>";
			$Chip_part = "<a href=\"$scriptLoc?page=chip&manufacturer=$chip_man&part=$part_link\">$part</a>";
		}
	}

	$text .= "\t<!-- board table element -->\n";

	# if ( $flipColor == 0 ) {
		# $text .= "\t<tr bgcolor=\"#454545\">\n";
	# }else{
		# $text .= "\t<tr bgcolor=\"#545454\">\n";
	# }
	if ( $quality == 0 ) {
		$text .= <<Endhtml;

<table><tr bgcolor="#454545">
	<td width="256">$Photo_front</td>
	<td valign="top" width="600">
		<div class="tableDisplayPartNum"><a href="$chip_link">$sub_title</a></div>
		<div class="heading2"">$Type</div><br />

		<table>
			<tr>
				<td colspan="2">
					<span class="tableChipSubHeading">General Information:</span>
				</td>
			</tr><tr>
				<td nowrap width="80" style="padding-left: 10px;">
					<span class="tableChipParam">Main $Chip_type:</span>
				</td><td nowrap width="200">
					<span class="tableChipValue">$Chip_manuf - $Chip_part</span>
				</td>
			</tr><tr>
				<td nowrap width="80" style="padding-left: 10px;">
					<span class="tableChipParam">Speed:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$Speed</span>
				</td>
			</tr><tr>
				<td colspan="2">
					<br />
					<div align="center" class="tableChipFullDetails"><a href="$chip_link">Full details...</a></center>
				</td>
			</tr>
		</table>
		</td>
	</tr></table>
Endhtml
		$text .= "\t<!-- chip table (end) -->\n";
	
		# print $text;
	} elsif ( $quality == 1 ) {
		$text .= <<Endhtml;	
	<table width="95%">
	<tr>
		<td width="100%">
			<div class="tableDisplayPartNum">$sub_title</div>
		</td>
	</tr><tr bgcolor="#454545" padding="10">
		<td align="center">
			<table cellpadding="10"><tr>
				<td>$Photo_front</td>
				<td>$Photo_back</td>
			</tr></table>
		</td>
	</tr><tr bgcolor="#454545">
		<table width="100%"><tr><td width="50%" valign="top">
		<table>
			<tr>
				<td colspan="2">
					<span class="tableChipSubHeading">Board Information:</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Board type:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Board_type</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Family:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Type</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Board manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Board ID:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Name</span>
				</td>
			</tr><tr>


Endhtml
		if ( $board_type_var eq 'module' ) {
			$text .= <<Endhtml;
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Socket:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Socket</span>
				</td>
			</tr><tr>
Endhtml
		} else {
			$text .= <<Endhtml;
				<td nowrap style="padding-left: 10px;" valign="top">
					<span class="tableChipParam">Ports:</span>
				</td><td style="padding-left: 10px;">
					<span class="tableChipValue">$Ports</span>
				</td>
			</tr><tr>
Endhtml
		}
			$text .= <<Endhtml;
				<td height="5"></td><td></td>
			</tr><tr>			
				<td colspan="2">
					<span class="tableChipSubHeading">$Chip_type Information:</span>
				</td>
			</tr><tr>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Chip_manuf</span>
				</td>
			</tr><tr>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Chip_part</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Speed:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Speed</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Architecture:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Arch_width</span>
				</td>
			</tr><tr>	
				<td nowrap style="padding-left: 10px;" height="5">
				</td><td nowrap style="padding-left: 10px;">
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 70px;" colspan="2">
					<span class="tableChipParam" style="text-align: center;">$Chip_detail_link</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;" height="5">
				</td><td nowrap style="padding-left: 10px;">
				</td>
			</tr>
		</table>
		</td><td valign="top">
		<table>
			<tr>
				<td colspan="2">
					<span class="tableChipSubHeading">Periferal Chips:</span>
				</td>
			</tr><tr>
Endhtml
			if ( $Part_p1 eq '?' ) {
				$text .= <<Endhtml;
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">None</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue"></span>
				</td>
Endhtml
			} else {
				$text .= <<Endhtml;
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p1</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p1</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p1</span>
				</td>
Endhtml
			} 
			if ( $Part_p2 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p2</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p2</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p2</span>
				</td>
Endhtml
			} 
			if ( $Part_p3 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p3</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p3</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p3</span>
				</td>
Endhtml
			} 
			if ( $Part_p4 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p4</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p4</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p4</span>
				</td>
Endhtml
			} 	
			if ( $Part_p5 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p5</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p5</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p5</span>
				</td>
Endhtml
			} 
			if ( $Part_p6 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p6</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p6</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p6</span>
				</td>
Endhtml
			} 
			if ( $Part_p7 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p7</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p7</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p7</span>
				</td>
Endhtml
			} 
			if ( $Part_p8 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p8</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p8</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p8</span>
				</td>
Endhtml
			} 
			if ( $Part_p9 ne '?' ) {
				$text .= <<Endhtml;
			</tr><tr>
				<td height="5"></td><td></td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manuf:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Manuf_p9</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Part:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Part_p9</span>
				</td>
			</tr><tr><td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Function:</span>
				</td><td nowrap style="padding-left: 10px;">
					<span class="tableChipValue">$Func_p9</span>
				</td>
Endhtml
			} 

			$text .= <<Endhtml;
			</tr></table>
			
		</td>
	</tr>
Endhtml
		$text .= "\t<!-- chip table (end) -->\n";

		}
	return $text;
}












####################################################
############# Table (end) ##########################
####################################################











##########################################################
############### List methods #############################
##########################################################










######################################################################
######################################################################
######################################################################
##################       Category pages (begin)     ##################
######################################################################
######################################################################
######################################################################




######################################################################
######################################################################
######################################################################
##################       Category pages (end)     ####################
######################################################################
######################################################################
######################################################################


#########################################################
################# List methods (end) ####################
#########################################################











#########################################################
################# Page Organization #####################
#########################################################

############# Page organization (end) #######################

############## head #############################

########## head (end) #####################

######## body ##########

###### body (end) #######



######### tail ############################




















##########################################################################
##########################################################################
##########################################################################
##############               New Crap      ###############################
##########################################################################
##########################################################################
##########################################################################






###########################################################
###########################################################
#################    Category Pages (begin)  ##############
###########################################################
###########################################################

sub create_html_body_main_category_family {
	my $text = '';

	my @col1 = ();
	my @col2 = ();
	my $x = 0;
	my $y = 0;
	my $max = $#familyListGlobal/2 + 1;
	# print $max;
	foreach $fam (@familyListGlobal) {

		# print "\t\t<li><a href=\"$scriptName?page=family&family=$fam\">$fam</a>\n";
		if ( $x < $max ) {
			$col1[$x] = "\t\t<li><a href=\"$scriptName?page=family&family=$fam\">$fam</a>\n";
		} else {
			$col2[$y] = "\t\t<li><a href=\"$scriptName?page=family&family=$fam\">$fam</a>\n";
			$y++;
		}
		# if ($NUM % 2 == 1) {
			# print "</tr><tr>";
		# }
		$x++;
	}

	$text .= "\t\t<div class=\"heading1\">List of Families</a></div><br />\n";
	$text .= "\t\t<table width=\"100%\">\n\t\t<tr><td width=\"50%\" valign=\"top\">\n\t\t<ul>";
	foreach $col (@col1) {
		$text .= $col;
	}
	$text .= "\t\t</ul></td><td width=\"50%\" valign=\"top\"><ul>\n";
	foreach $col (@col2) {
		$text .= $col;
	}
	$text .= "\t\t</ul></td></tr></table>";
	return $text;
}


sub create_html_body_main_category_manuf {
	my $text = '';
	my @col1 = ();
	my @col2 = ();
	my $x = 0;
	my $y = 0;
	my $max = $#manufListGlobal/2 + 1;
	# print $max;
	foreach $man (@manufListGlobal) {

		# print "\t\t<li><a href=\"$scriptName?page=family&family=$fam\">$fam</a>\n";
		if ( $x < $max ) {
			$col1[$x] = "\t\t<li><a href=\"$scriptName?page=manufacturer&manufacturer=$man\">$man</a>\n";
		} else {
			$col2[$y] = "\t\t<li><a href=\"$scriptName?page=manufacturer&manufacturer=$man\">$man</a>\n";
			$y++;
		}
		# if ($NUM % 2 == 1) {
			# print "</tr><tr>";
		# }
		$x++;
	}

	$text .= "\t\t<div class=\"heading1\">List of Manufacturers</a></div><br />\n";
	$text .= "\t\t<table width=\"100%\">\n\t\t<tr><td width=\"50%\" valign=\"top\">\n\t\t<ul>";
	foreach $col (@col1) {
		$text .= $col;
	}
	$text .= "\t\t</ul></td><td width=\"50%\" valign=\"top\"><ul>\n";
	foreach $col (@col2) {
		$text .= $col;
	}
	$text .= "\t\t</ul></td></tr></table>";
	return $text;
}


###########################################################
###########################################################
#################    Category Pages (end)  ################
###########################################################
###########################################################




###########################################################
###########################################################
##############    Page Extensions (begin)  ################
###########################################################
###########################################################

sub create_html_page_addition_support_chips {
	my $text = '';
	# my (@supportChips, @supportChipsMan) = @_;
	my @supportChips = @{ $_[0] };
	my @supportChipsMan = @{ $_[1] };
	# my $x=0;
	$text .= "\t<br /><br />\n";
	$text .= "\t<table border=\"1\" summary=\"list of support chips for family\">\n";
	$text .= "\t\t<tr><td><b>Support chips</b></td></tr>\n";
	for (my $x=0;$x<=$#supportChips;$x++) {
	# foreach $chip (@supportChips) {
		# print "($supportChips[$x], $supportChipsMan[$x])";
		my $chip_link_part_var = $supportChips[$x];
		$chip_link_part_var =~ s/\W/_/g;
		my $manuf_local=$supportChipsMan[$x];
		# print "\t\t<tr><td><a href=\"$scriptName?page=chip&manufacturer=$data{'manufacturer'}&part=$chip_link_part_var\">$chip</a></td></tr>\n";
		$text .= "\t\t<tr><td><a href=\"$scriptName?page=chip&manufacturer=$manuf_local&part=$chip_link_part_var\">$supportChips[$x]</a></td></tr>\n";
		# $x++;
	}
	$text .= "\t</table>\n";

	return $text;
}

###########################################################
###########################################################
################    Page Extensions (end)  ################
###########################################################
###########################################################





###########################################################
###########################################################
###########    Main Content Pages (begin)  ################
###########################################################
###########################################################

sub create_html_body_main_cpu_boards {
	my $text='';
	my $row = $skipLines;

	if ($data{'type'} eq '' && $data{'manuf'} eq '' ) {
			
		$title_ext_global = 'Processor Modules and Evaluation Boards';
		$keyword_ext_global = 'processor module, CPU module, evaluation board, demonstation board, programmming board, design kit, educational board';

		$text = <<Endhtml;
	<div class="heading1">Processor and Microcontroller Boards</div>
	<br /><br />

	<table width="100%">
		<tr>
			<td width="50%" align="center">
				<a href="$scriptLoc?page=board&type=module" title="Processor Modules"><img src="$relativeLoc/$board_thumb_loc/processor_module-Sun--501-3041--(Sun--STP1030ABGA-200--UltraSPARC--CPU)-front.JPG_sm.jpg"></a>
			</td><td align="center">
				<a href="$scriptLoc?page=board&type=eval" title="Evaluation Boards"><img src="$relativeLoc/$board_thumb_loc/dev_board--Intel--MCS-80_System_Design_Kit--(Intel--C8080A).JPG_sm.jpg"></a>
			</td>
		</tr><tr>
			<td align="center">
				<span class="heading2"><a href="$scriptLoc?page=board&type=module">Processor Modules</a></span>
			</td><td align="center">
				<span class="heading2"><a href="$scriptLoc?page=board&type=eval">Evaluation Boards</a></span>
			</td>
		</tr>
	</table>				
Endhtml
	} elsif ( $data{'type'} eq 'module' ) {

	
		$title_ext_global = 'Processor Modules';
		$keyword_ext_global = 'processor module, CPU module';

		$text .= <<Endhtml;
		<div class="heading1">Processor Modules</div>
		<div>A modular circuit board that contains a <a href="$scriptLoc?page=cat&type=type">CPU</a> chip as well as a few peripherals chips, such as an <a href="$scriptLoc?page=cat&type=type">FPU</a> or <a href="$scriptLoc?page=cat&type=type">cache controller</a>.  These often posess power regulation chips</div><br />


Endhtml
		$row = $skipLines;
		while ( &board_data($row,$col_board_board_type) ne '' ) {
			# print ', x: ' . &board_data($row,$col_board_board_type);
			if  ( &board_data($row,$col_board_board_type) eq 'module' ) {
				$text .= &display_board_table_element($row,0,0); # (row,detail,color) 
				# print 'y';
			}
			$row++;			
		}
	} elsif ( $data{'type'} eq 'eval' ) {

		$title_ext_global = 'Evaluation Boards';
		$keyword_ext_global = 'evaluation board, demonstation board, programmming board, design kit, educational board';

		$text .= <<Endhtml;
		<div class="heading1">Evaluation Boards</div>
		<div>Boards used by engineers to test, making it easyer to evaluate the functionality of a chip.  They often contain all the nesesary periferal chips to power it up and preform simple functions.  They are sometimes called development boards or demonstration board.  Some of the ones are educational boards, like the <a href="$scriptLoc?page=board&manuf=Motorola&name=MC68000_Educational_Computer">Motorola MC68000 Educational Computer</a>, designed for teaching in Universities.</div><br />
Endhtml
		$row = $skipLines;
		while ( &board_data($row,$col_board_board_type) ne '' ) {
			if  ( &board_data($row,$col_board_board_type) eq 'dev' ) {
				$text .= &display_board_table_element($row,0,0); 
			}
			$row++;
		}
	} elsif ( $data{'manuf'} ne '' ) {
		# $text .= "$data{'manuf'} : $data{'name'}";
		my $Manuf_s = $Manuf;
		my $Name_s	= $Name;
		$Manuf_s 	=~ s/[ \W]/_/g;
		$Name_s		=~ s/[ \W]/_/g;
		$row = $skipLines;
		while ( &board_data($row,$col_board_board_type) ne '' ) {
			my $Manuf_s = &board_data($row,$col_board_manuf);
			my $Name_s	= &board_data($row,$col_board_name);
			$Manuf_s 	=~ s/[ \W]/_/g;
			$Name_s		=~ s/[ \W]/_/g;
			# print "$Manuf_s:$Name_s<br />\n";
			if  ($data{'manuf'} eq $Manuf_s && $data{'name'} eq $Name_s) {
				$text .= "\t<table>\n";	
				$text .= &display_board_table_element($row,1,0); #detailed 
				$text .= "\t</table>\n";
			}
			$row++;
		}

		my $Board_type_s = '';
		if ( &board_data($row,$col_board_board_type) eq 'module' ) {
			$Board_type_s = 'CPU Module';
		} elsif ( &board_data($row,$col_board_board_type) eq 'dev' ) {
			$Board_type_s = 'Evaluation board';
		}
		$title_ext_global = "$Manuf_s $Name_s $Board_type_s";
		$keyword_ext_global = '$Manuf_s, $Name_s, $Board_type_s';
		
	}
	return $text;
}


sub create_html_body_main_category {
	my $text = '';
	


	if ($data{'type'} eq '') {
		$title_ext_global = 'Categories';
		$keyword_ext_global = 'category';
		$text .= <<Endhtml;
	<div>
		<span class="heading1" style="width:100%; text-align: center ;">Categories of Chips</span><br /><br />
		<span class="heading2">Chips organized by:</span>
		<ul>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=family">Families</a></span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=manuf">Manufacturers</a></span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=arch">Architecture</a>: RISC, CISC, etc</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=data_width">Architecture's data width</a>: 8-bit, 16-bit, ...</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=type">Chip type</a>: CPU, MCU, FPU, ...</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=tech">Integrated circuit technology</a>: Bipolar, BiCMOS, NMOS, HMOS, CMOS, ...</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=isa">Instruction Set Architechures</a>: x86, MIPS, SPARC, ARM, ...</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=date">Date</a>: a Processor and Microcontroller Timeline</span>
			<li><span class="list_element"><a href="$scriptName?page=cat&type=app">Application</a>: Desktop computers, Servers, DSL, TV, Calculator...</span>
		</ul>
	</div>
Endhtml
	} elsif ($data{'type'} eq 'arch') {
		$title_ext_global = 'CPU Architectures';
		$keyword_ext_global = 'architecture';
		$text .= &create_html_body_main_category_arch; #&architecture_page;
	} elsif  ($data{'type'} eq 'family') {
		$title_ext_global = 'CPU and MCU Families';
		$keyword_ext_global = 'family, families';
		$text .= &create_html_body_main_category_family; #&family_cat_page;
	} elsif  ($data{'type'} eq 'tech') {
		$title_ext_global = 'Processor Technology';
		$keyword_ext_global = 'technology, CMOS, PMOS, NMOS, Bipolar, HMOS, HCMOS, CHMOS';
		$text .= &create_html_body_main_category_tech; #&tech_page;
	} elsif  ($data{'type'} eq 'data_width') {
		$title_ext_global = 'Processor Data Widths';
		$keyword_ext_global = '8-bit, 16-bit, 32-bit, 24-bit, 64-bit, 4-bit,  2-bit';
		$text .= &create_html_body_main_category_data_width; #&data_width_page;
	} elsif  ($data{'type'} eq 'type') {
		$title_ext_global = 'Chip Types';
		$keyword_ext_global = 'CPU, MCU, FPU, GPU, PPU, I/O processor, Cache controller';
		$text .= &create_html_body_main_category_chip_type; #&type_page;
	} elsif  ($data{'type'} eq 'isa') {
		$title_ext_global = 'Instruction Set Architectures';
		$keyword_ext_global = 'ISA, Instruction set, x86, MIPS, SPARC, ARM';
		$text .= &create_html_body_main_category_isa; #&isa_cat_page;
	} elsif  ($data{'type'} eq 'microarch') {
		$title_ext_global = 'Microarchitectures';
		$keyword_ext_global = 'P5, P6, Netburst';
		$text .= &create_html_body_main_category_microarch; #&microarch_cat_page;
	} elsif  ($data{'type'} eq 'date') {
		$title_ext_global = 'CPU and MCU Timeline';
		$keyword_ext_global = 'timeline';
		$text .= &create_html_body_main_category_date; #&date_cat_page;
	} elsif  ($data{'type'} eq 'manuf') {
		$title_ext_global = 'CPU and MCU Manufacturer List';
		$keyword_ext_global = 'manufacturer';
		$text .= &create_html_body_main_category_manuf; #&manuf_cat_page;
	} elsif  ($data{'type'} eq 'logo') {
		$title_ext_global = 'CPU and MCU Manufacturer Logos';
		$keyword_ext_global = 'manufacturer, logo';
		$text .= &create_html_body_main_category_logo; #&logo_page;
	} elsif  ($data{'type'} eq 'app') {
		$title_ext_global = 'CPU and MCU Applications';
		$keyword_ext_global = 'embedded system, desktop, server';
		$text .= &create_html_body_main_category_app; #&app_cat_page;
	}
	return $text;
}


sub create_html_body_main_site_map {
	my $text='';
	
	$title_ext_global = 'Site Map';
	$keyword_ext_global = 'site map';

	$text = <<Endhtml;

		<div class="center"><span class="heading1">Site Map</span></div>
		<br /><br />
		
		<table>
			<tr>
				<td valign="top">
					<div class="heading2">Chips in collection</div>
					<ul>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=manuf">Chip manufactures</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=family">Chip families</a></span>
						<li><span class="list_element"><a href="$scriptName?page=board">Processor Boards</a></span>
						<li><span class="list_element"><a href="$scriptName?page=fullList">All chips</a></span>
						<li><span class="list_element"><a href="$scriptName?page=tradeList">Trade list</a></span>
					</ul>
					<div class="heading2">Chips orgaized by:</div>
					<ul>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=arch">Architecture</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=type">Type</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=isa">Instruction set architecture</a> (ISA)</span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=date">Date</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=tech">Technology</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=data_width">Data width</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=app">Application</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=family">Family</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=manuf">Manufacture</a></span>
					</ul>
				</td><td valign="top">
					<div class="heading2">Resources</div>
					<ul>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=date">Processor and Microcontroller Timeline</a></span>
						<li><span class="list_element"><a href="$scriptName?page=glossary">Glossary</a></span>
						<li><span class="list_element"><a href="http://www.happytrees.org/files/chipCollection-v1.00.ods">Collection data (raw)</a>: Open Office spreadsheet, under the <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/">CC-BY-SA 3.0 license</a></span>
						<li><span class="list_element"><a href="$code_loc">Page source code</a>: under <a href="http://en.wikipedia.org/wiki/GPL_license">GPL-3.0 license</a></span>
						<li><span class="list_element"><a href="$relativeLoc/$photoLoc">Chip images</a>: under the <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/">CC-BY-SA 3.0 license</a></span>
						<li><span class="list_element"><a href="$relativeLoc/$datasheet_loc">Datasheets</a></span>
						<li><span class="list_element"><a href="$scriptName?page=cat&type=logo">Manufacture logos</a></span>
						<li><span class="list_element"><a href="$relativeLoc/$logoLoc"></a>Family logos: to be added</span>
					</ul>
					<div class="heading2">Other:</div>
					<ul>
						<li><span class="list_element"><a href="$scriptName?page=sneezmale">Contact page</a></span>
					</ul>
				</td>
			</tr>
		</table>
Endhtml
	return $text;
}


sub create_html_body_main_single_chip_table { # display table for single chip
	my $text = '';
	my $row = $_[0], $thumb;
	#&chipData2($row,...)
	my $manufTableSub	=  &chipData2($row,$colManuf);
	my $manuf_name = &chipData2($row,$colManuf);
	my $type	= '?'; # &chipData2($row,$colType);
	my $type_name = '';
	my $part	= &chipData2($row,$colPart);
	my $photo	= "PHOTO<br />To be added\n";
	my $family	= '';
	my $speed	= '?';
	my $arch	= '?';
	my $data	= '?';
	my $address = '?';
	my $package = '?';
	my $trans	= '?';
	my $tech	= '?';
	my $proc	= '?';
	my $die		= '?';
	my $volt	= '?';
	my $volt_io	= '?';
	my $date	= '?';
	my $L1		= '?';
	my $L2		= '?';
	my $L3		= '?';
	my $ram_max	= '?';
	my $ram_type= '?';
	my $socket	= '?';
	my $ram_int	= '?';
	my $rom_int = '?';
	my $rom_type= '?';
	my $fpu		= '?';
	my $core	= '?';
	my $datasheet = '?';
	my $features = '?';
	my $num_cores = '?';
	my $core_designer = '?';
	my $text = '';
	my $alt_id = '';
	my $label_id = '';
	my $instruction_set = '?';
	my $instruction_link = '';
	my $isa = '?';
	my $computer_arch = '?';
	my $microarch = '?';
	my $power	= '?';
	my $applications = '?';
	my $bus_speed	= '?';
	my $id_html		= '';
	my $family_short = '?';
	
	$manufTableSub = "<a href=\"$scriptName?page=manufacturer&manufacturer=$manufTableSub\">$manufTableSub</a>";

	if (&chipData2($row,$colPhoto1) ne ""){ # making photos
		$photoFile = &chipData2($row,$colPhoto1);
		$thumb = $photoFile . '_sm.jpg';
		$photo = "<a href=\"$relativeLoc/$photoLoc/$photoFile\"><img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\"></a>\n";
		if (&chipData2($row,$colPhoto2) ne ""){
			$photoFile = &chipData2($row,$colPhoto2);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t<a href=\"$relativeLoc/$photoLoc/$photoFile\"><img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"Click for larger image\"></a>\n";
		} if (&chipData2($row,$colPhoto3) ne ""){
			$photoFile = &chipData2($row,$colPhoto3);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t<a href=\"$relativeLoc/$photoLoc/$photoFile\"><img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"Click for larger image\"></a>\n";
		} if (&chipData2($row,$colPhoto4) ne ""){
			$photoFile = &chipData2($row,$colPhoto4);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t<a href=\"$relativeLoc/$photoLoc/$photoFile\"><img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\" alt=\"Click for larger image\"></a>\n";
		} if (&chipData2($row,$colPhoto5) ne ""){
			$photoFile = &chipData2($row,$colPhoto5);
			$thumb = $photoFile . '_sm.jpg';
			$photo = $photo . "\t\t\t<br />\n\t\t\t<a href=\"$relativeLoc/$photoLoc/$photoFile\" alt=\"Click for larger image\"><img src=\"$relativeLoc/$thumbLoc/$thumb\" width=\"250\"></a>\n";
		}
	}
	if ( &chipData2($row,$colFamily) ne "" && &chipData2($row,$colFamily) ne "Other") {
		my $famL = &chipData2($row,$colFamily);
		$family_short = "<a href=\"$scriptName?page=family&family=$famL\">$famL</a>";
		# $family = "<div class=\"tableDisplayFamily\">" . &chipData2($row,$colFamily) ." Family</div>";
	}
	if ( &chipData2($row,$colType) ne '' ) {
		$type = "<a href=\"$scriptName?page=cat&type=type\">" .  &chipData2($row,$colType) . "</a>";
		$type_name = &chipData2($row,$colType);
	}
	if ( &chipData2($row,$colSpeed) ne '' ) {
		$speed = &chipData2($row,$colSpeed);
	}
	if ( &chipData2($row,$colArch) ne '' ) {
		# if ( &chipData2($row,$colArch) eq '16/32' ) {
			# $arch = "<a href=\"http://en.wikipedia.org/wiki/16-bit\">16/32-bit</a>";
		# } else {
			$arch = "<a href=\"$scriptName?page=cat&type=data_width\">" . &chipData2($row,$colArch) . "-bit</a>";
		# }
	}
	if ( &chipData2($row,$colDataBus) ne '' ) {
		$data = &chipData2($row,$colDataBus);
	}
	if ( &chipData2($row,$colAddBus) ne '' ) {
		$address = &chipData2($row,$colAddBus);
	}
	if ( &chipData2($row,$colPack) ne '' ) {
		$package = '<a href="http://howto.wikia.com/wiki/Howto_identify_chip_packages">' . &chipData2($row,$colPack) . "</a>$wiki_attrib";
	}
	if ( &chipData2($row,$colTech) ne '' ) {
		$tech = &chipData2($row,$colTech);
		if ( $tech =~ ' ' ) {
			@techFirst = split(/ /, $tech);
			$tech = $techFirst[0];
		}
		$tech="<a href=\"$scriptName?page=cat&type=tech\">$tech</a> $techFirst[1] $techFirst[2] $techFirst[3]\n";
	}
	if ( &chipData2($row,$colTrans) ne '' ) {
		$trans = &chipData2($row,$colTrans);
	}
	if ( &chipData2($row,$colProc) ne '' ) {
		$proc = &chipData2($row,$colProc);
		$proc =~ s/um/\&mu\;m/;
		$proc =~ s/u/\&mu\;m/;
	}
	if ( &chipData2($row,$colDie) ne '' ) {
		$die = &chipData2($row,$colDie);
		$die =~ s/mm\^2/mm<sup>2<\/sup>/i;
	}
	if ( &chipData2($row,$colVcc) ne '' ) {
		$volt = &chipData2($row,$colVcc);
	}
	if ( &chipData2($row,$colDate) ne '' ) {
		$date = '<a href="' . $scriptName . '?page=cat&type=date#' . &chipData2($row,$colDate) . '">' . &chipData2($row,$colDate) . '</a>';
	}
	if ( &chipData2($row,$colL1) ne '' ) {
		$L1 = &chipData2($row,$colL1);
	}
	if ( &chipData2($row,$colL2) ne '' ) {
		$L2 = &chipData2($row,$colL2);
	}
	if ( &chipData2($row,$colL3) ne '' ) {
		$L3 = &chipData2($row,$colL3);
	}
	if ( &chipData2($row,$colCore) ne '' ) {
		$core = &chipData2($row,$colCore);
	}
	if ( &chipData2($row,$colFPU) ne '' ) {
		$fpu = &chipData2($row,$colFPU);
	}
	if ( &chipData2($row,$col_ram_int) ne '' ) {
		$ram_int = &chipData2($row,$col_ram_int);
	}
	if ( &chipData2($row,$col_ram_max) ne '' ) {
		$ram_max = &chipData2($row,$col_ram_max);
	}
	if ( &chipData2($row,$col_rom_int) ne '' ) {
		$rom_int = &chipData2($row,$col_rom_int);
	}
	if ( &chipData2($row,$col_socket) ne '' ) {
		$socket = &chipData2($row,$col_socket);
	}
	if ( &chipData2($row,$col_datasheet) ne '' ) {
		$datasheet = "<a href=\"$relativeLoc/$datasheet_loc/" . &chipData2($row,$col_datasheet) . "\">" . &chipData2($row,$col_datasheet) . "</a>";
	}
	if ( &chipData2($row,$col_features) ne '' ) {
		$features = &chipData2($row,$col_features);
	}
	if ( &chipData2($row,$col_num_cores) ne '' ) {
		$num_cores = &chipData2($row,$col_num_cores);
	}
	if ( &chipData2($row,$col_designer) ne '' ) {
		$core_designer = &chipData2($row,$col_designer);
	}
	if ( &chipData2($row,$col_bus_speed) ne '' ) {
		$bus_speed = &chipData2($row,$col_bus_speed);
	}
	if ( &chipData2($row,$col_applications) ne '' ) {
		$applications = "<a href=\"$scriptLoc?page=cat&type=app\">" . &chipData2($row,$col_applications) . '</a>';
	}
	if ( &chipData2($row,$col_instruction_set) ne '' ) {
		$instruction_set = &chipData2($row,$col_instruction_set);
		if ( &chipData2($row,$col_instruction_link) ne '' ) {
			$instruction_set = "<a href=\"" . &chipData2($row,$col_instruction_link) . "\">$instruction_set</a>$wiki_attrib";
		}
	}
	if ( &chipData2($row,$col_computer_architecture) ne '' ) {
		$computer_arch = "<a href=\"$scriptName?page=cat&type=arch\">" . &chipData2($row,$col_computer_architecture) . "</a>";
	}
	if ( &chipData2($row,$col_microarchitecture) ne '' ) {
		$microarch = &chipData2($row,$col_microarchitecture);
	}
	if ( &chipData2($row,$col_power) ne '' ) {
		$power = &chipData2($row,$col_power);
	}
	if ( &chipData2($row,$col_alt_id) ne '' ||  &chipData2($row,$col_label_id) ne ''  ) {
	$id_html = <<Endhtml;
				<td colspan="4">
					<span class="tableChipSubHeading">Identification:</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manufacturer:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$manufTableSub</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Part #:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$part</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
Endhtml
		if (  &chipData2($row,$col_label_id) ne '' ) {
			$label_id = &chipData2($row,$col_label_id);
			$id_html .= <<Endhtml;
					<span class="tableChipParam">Chip label:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$label_id</span>
				</td><td nowrap width="100">
Endhtml
			if (  &chipData2($row,$col_alt_id) ne '' ) {
				$alt_id = &chipData2($row,$col_alt_id);
				$id_html .= <<Endhtml;
					<span class="tableChipParam">Alt ID:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$alt_id</span>
				</td>
Endhtml
			} else {
				$id_html .= <<Endhtml;
				</td><td nowrap>					
				</td>
Endhtml
			}
		} else {
			$alt_id = &chipData2($row,$col_alt_id);
			$id_html .= <<Endhtml;
					<span class="tableChipParam">Alt ID:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$alt_id</span>
				</td><td nowrap width="100">
				</td><td nowrap>					
				</td>
Endhtml
		}
		$id_html .= "\t\t\t</tr><tr>";
	}
	if ( &chipData2($row,$col_rom_type) ne '' ) {
		$rom_type = &chipData2($row,$col_rom_type);
	}
	if ( &chipData2($row,$col_ram_type) ne '' ) {
		$ram_type = &chipData2($row,$col_ram_type);
	}
	if ( &chipData2($row,$col_volt_io) ne '' ) {
		$volt_io = &chipData2($row,$col_volt_io);
	}
	if ( &chipData2($row,$col_isa) ne '' ) {
		$isa = "<a href=\"$scriptName?page=cat&type=isa\">" . &chipData2($row,$col_isa) . "</a>";
	}

	# if ( &chipData2($row,$col_) ne '' ) {
		# $ = &chipData2($row,$col_);
	# }


	$text .= "\t<!-- chip table -->\n";
    $text .= "\t<table>\n\t<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;$manufTableSub - $part</div></td></tr>\n";

	$text .= "\t<tr bgcolor=\"#454545\">\n";

	$text .= "\t\t<td width=\"256\">\n\t\t\t$photo\n\t\t</td>\n";

	$text .= "\t\t<td width=\"500\" valign=\"top\">\n";
	$text .= <<Endhtml;
		<table width="400">
			<tr>
			$id_html
				<td colspan="4">
					<span class="tableChipSubHeading">General Specifications:</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Manufacture:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$manufTableSub</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Family:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$family_short</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Chip type:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$type</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Introduced:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$date</span>
				</td>
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Speed:</span>
				</td><td nowrap width="100">
					<span class="tableChipValue">$speed</span>
				</td><td nowrap width="100">
					<span class="tableChipParam">Architecture:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$arch</span>
				</td>	
			</tr><tr>
				<td nowrap width="100" style="padding-left: 10px;">
					<span class="tableChipParam">Application:</span>
				</td><td nowrap width="100" colspan="3">
					<span class="tableChipValue">$applications</span>
				</td>
			</tr><tr><td height="5"></td></tr>
Endhtml
	if ( $type =~ /(CPU|MCU|DSP)/ ) {
	$text .= <<Endhtml;
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">Architecture Specifications:</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">CPU arch:</span>
				</td><td nowrap>
					<span class="tableChipValue">$computer_arch</span>
				</td><td nowrap>
					<span class="tableChipParam">ISA:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$isa</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Microarch:</span>
				</td><td nowrap>
					<span class="tableChipValue">$microarch</span>
				</td><td nowrap>
					<span class="tableChipParam"></span>
				</td><td nowrap>					
					<span class="tableChipValue"></span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Processor core:</span>
				</td><td nowrap>
					<span class="tableChipValue">$core</span>
				</td><td nowrap>
					<span class="tableChipParam"># of cores:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$num_cores</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Designer:</span>
				</td><td nowrap>
					<span class="tableChipValue">$core_designer</span>
				</td><td nowrap>
					<span class="tableChipParam">FPU:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$fpu</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Ext data bus:</span>
				</td><td nowrap>
					<span class="tableChipValue">$data</span>
				</td><td nowrap>
					<span class="tableChipParam">Address bus:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$address</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Instruction Set:</span>
				</td><td colspan="3">
					<span class="tableChipValue">$instruction_set</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;" valign="top">
					<span class="tableChipParam">Features:</span>
				</td><td colspan="3" valign="top">
					<span class="tableChipValue">$features</span>
				</td>
			</tr><tr><td height="5"></td></tr>
Endhtml
	}
	if ($type =~ /CPU/) {
	$text .= <<Endhtml;
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">Memory Specification:</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Max RAM:</span>
				</td><td nowrap>
					<span class="tableChipValue">$ram_max</span>
				</td><td nowrap>
					<span class="tableChipParam">L1 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L1</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">RAM type:</span>
				</td><td nowrap >
					<span class="tableChipValue">$ram_type</span>
				</td><td nowrap>
					<span class="tableChipParam">L2 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L2</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam"></span>
				</td><td nowrap>					
					<span class="tableChipValue"></span>
				</td><td nowrap>
					<span class="tableChipParam">L3 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L3</span>
				</td>
			</tr><tr><td height="5"></td></tr>
Endhtml
	} elsif ( $type eq 'MCU' ) {
	$text .= <<Endhtml;
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">Memory Specification:</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Max RAM:</span>
				</td><td nowrap>
					<span class="tableChipValue">$ram_max</span>
				</td><td nowrap>
					<span class="tableChipParam">L1 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L1</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Internal RAM:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$ram_int</span>
				</td><td nowrap>
					<span class="tableChipParam">L2 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L2</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Internal ROM:</span>
				</td><td nowrap >
					<span class="tableChipValue">$rom_int</span>
				</td><td nowrap>
					<span class="tableChipParam">L3 cache:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$L3</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">ROM type:</span>
				</td><td nowrap >
					<span class="tableChipValue">$rom_type</span>
				</td><td nowrap>
				</td><td nowrap>					
				</td>
			</tr><tr><td height="5"></td></tr>
Endhtml
	}
	$text .= <<Endhtml;
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">Technology:</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Technology:</span>
				</td><td nowrap>
					<span class="tableChipValue">$tech</span>
				</td><td nowrap>
					<span class="tableChipParam">Process:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$proc</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Transistors:</span>
				</td><td nowrap>
					<span class="tableChipValue">$trans</span>
				</td><td nowrap>
					<span class="tableChipParam">Die size:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$die</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Vcc:</span>
				</td><td nowrap >
					<span class="tableChipValue">$volt</span>
				</td><td nowrap>
					<span class="tableChipParam">Voltage I/O:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$volt_io</span>
				</td>
			</tr><tr><td height="5"></td></tr>
			<tr>
				<td colspan="4">
					<span class="tableChipSubHeading">Other:</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Package:</span>
				</td><td nowrap>
					<span class="tableChipValue">$package</span>
				</td><td nowrap>
					<span class="tableChipParam">Socket:</span>
				</td><td nowrap>					
					<span class="tableChipValue">$socket</span>
				</td>
			</tr><tr>
				<td nowrap style="padding-left: 10px;">
					<span class="tableChipParam">Datasheet:</span>
				</td><td colspan="3" valign="top">
					<span class="tableChipValue">$datasheet</span>
				</td>				
			</tr><tr>
				<td colspan="4" align="center">
					<br />
					<span class="tableChipValue"><a href="$scriptLoc?page=sneezmale">Report any problems</a></span>
				</td>
				
		</table>
		</td>
	</tr>	
	</table>	
Endhtml
	$text .= "\t<!-- chip table (end) -->\n";
	
	if($type_name ne ''){
		$title_ext_global = "$manuf_name - $part - $type_name";
		$keyword_ext_global = "$manuf_name, $part, $type_name";
	}else{
		$title_ext_global = "$manuf_name - $part";
		$keyword_ext_global = "$manuf_name, $part";
	}

	return ($text);
}


sub create_html_body_main_single_chip {
	my $text = '';
	# $data{'page'} eq chip
	# ?page=chip&manufacturer=Intel&chipName=A80486SX-33
	my $flipColor=0;
	my $x=$skipLines;
	my $chip_link_part_var = '';

	if( $data{'part'} eq '' || $data{'manufacturer'} eq '' ) {
		$text .= "No chip selected, invalid state<br />\n";
	} else {
		while(&chipData2($x,$colPart) ne ""){
			# print ".";
			$chip_link_part_var = &chipData2($x,$colPart);
			$chip_link_part_var =~ s/\W/_/g;
			if ( $chip_link_part_var eq $data{'part'} && &chipData2($x,$colManuf) eq $data{'manufacturer'} ) {
				# print "-";
				$text .= &create_html_body_main_single_chip_table($x);
			}
			$x++;
		}
	}
	return $text;
}



sub create_html_body_main_full_list {
	my $text = '';
	
	$title_ext_global = 'Full Chip List';
	$keyword_ext_global = 'full chip list';

	my $x=$skipLines; 
	$text .= "<h1>Full chip list</h1>\n\n<table cellspacing=\"5\" border=\"0\" summary=\"full list\">\n";
	$text .= "<table border=\"1\" summary=\"full chip list, organized\"><tr>\n";
	$text .= "<td><b>Manufacturer</b></td>\n";
	$text .= "<td><b>Family</b></td>\n";
	$text .= "<td><b>Part #</b></td>\n";
	# print "<td><b>Photo</b></td></tr>\n";
	
	while(&chipData2($x,$colPart) ne "") {
		my $manuf=&chipData2($x,$colManuf);
		my $family=&chipData2($x,$colFamily);
		my $part=&chipData2($x,$colPart);
		my $photo=&chipData2($x,$colPhoto1);
		$text .= "<tr>\n";
		$text .= "<td>$manuf</td>\n";
		$text .= "<td>$family</td>\n";
		$text .= "<td><a href=\"$scriptName?page=chip&manufacturer=$manuf&part=$part\">$part</a></td>\n";
		# print "<td><a href=\"../$photoLoc/$photo\">Photo</a></td>\n";
		$text .= "</tr>\n";
		$x++;
	}
	$text .= "</table>\n";
	return $text;
}

sub create_html_body_main_trade_list { 
	my $text = '';
	my $x=$skipLines;

	$text .= "<h1>Trade List</h1>\n\n";
	&create_html_body_main_contact;

	$title_ext_global = 'Trade List';
	$keyword_ext_global = 'trade, trade list';

	$text .= "<h2>Wanted List</h2>\n\n";

	$text .= <<EndHTML;
		<pre>

Stuff I really really want.....
AMI			S6800 (white)
AMD			Am29005, Am29035, Am29027, Am29101, Am29112, Am29117, Am29501
AMD			AM2901DC white ceramic
Intergraph	Clipper
MOS			6500/1
MOS			MCS6502
MOS			6503, 6505, 6506, 6507, 6508, 6512, 6513, 6514, 6515
MOS			7501
MOS			850x
ASCII		R800


Stuff I want.........
Manufacture	Part #
Intel		D4040
Intel		Any 8008
Intel		Any Itanium
Intel		A80860XR-33
Intel		Rapid CAD
Intel       Any XScale CPU   
AMD 		Z8002
Weitek		Any CPU
DEC			PDP-11 F-11
DEC			PDP-11 FPA
Intel 		Any i376
ICT			Any Loongson
ICT			Any Godson
Monolithic Memories Incorporated 	5701/6701
Motorola 	68012
NEC			V33, V53, V70
National Semi	Any PACE
National Semi	SC/MP
National Semi	32032
Nvidia		Any Tegra
INMOS		any T2xx or T9xxx
VIA			C3
VIA			Eden
WDC			65816
Western Electric	32100, 32200


Some Antistatic IC tubes
84pin PLCC tube
64pin PLCC tube
52pin PLCC tube
44pin PLCC tubei
0.6in DIP tube
0.9in DIP tubes (Used for Motorola 68000)
0.75in DIP tubes (Used by some Shrink DIPs)
		</pre>		
EndHTML

#	print "\n\n<table cellspacing=\"5\" border=\"0\" summary=\"wanted list table\">\n";
#	print "<table border=\"1\"><tr>\n<td width=\"20\"><b>Manufacture</b></td>\n";
#	print "<td><b>Part #</b></td>\n";
#	my $x=$skipLines;
#	while(&wanted_data($x,$col_wanted_part) ne "") {
#		my $manuf=&wanted_data($x,$col_wanted_man);
#		my $part=&wanted_data($x,$col_wanted_part);
#			print "<tr>\n";
#			print "<td>$manuf</td>\n";
#			print "<td>$part</td>\n";
#			print "</tr>\n";
#		$x++;
#	}
#	print "</table>\n";

	$text .= "<h2>Trade List</h2>\n\n";
	$text .= "\n\n<table cellspacing=\"5\" border=\"0\" summary=\"trade list table\">\n";
	$text .= "<table border=\"1\"><tr>\n<td width=\"20\"><b>Quantity</b></td>\n";
	$text .= "<td><b>Manufacturer</b></td>\n";
	$text .= "<td><b>Family</b></td>\n";
	$text .= "<td><b>Part #</b></td>\n";
	# print "<td><b>Photo</b></td></tr>\n";
	my $x=$skipLines;
	while(&chipData2($x,$colPart) ne "") {
		my $trade=&chipData2($x,$colTrade);
		my $manuf=&chipData2($x,$colManuf);
		my $family=&chipData2($x,$colFamily);
		my $part=&chipData2($x,$colPart);
		my $photo=&chipData2($x,$colPhoto1);
		if(&chipData2($x,$colTrade) ne "X" && &chipData2($x,$colTrade) ne "x") {
			$text .= "<tr>\n";
			$text .= "<td>$trade</td>\n";
			$text .= "<td>$manuf</td>\n";
			$text .= "<td>$family</td>\n";
			$text .= "<td><a href=\"$scriptName?page=chip&manufacturer=$manuf&part=$part\">$part</a></td>\n";
			# print "<td><a href=\"../$photoLoc/$photo\">Photo</a></td>\n";
			$text .= "</tr>\n";
		}
		$x++;
	}
	$text .= "</table>\n";
	return $text;
}



sub create_html_body_main_chip_list {
	my $text = '';
	my $x=$skipLines; #
	my $flipColor=0;
	my $supportChipCount=0;
	my @supportChips=();
	my @freq=();
	my @chip_text=();
	my @chip_text2=();
	my @chip_text3=();
	my @supportChipsMan=();
	my @chip_table_text=(), @sort_elements=();
	my $listed_cnt=0;

	$text .= "\n\t<!-- manuf list -->\n\t<table cellpadding=\"5\" border=\"0\" bgcolor=\"#333333\" summary=\"manufacturer list\">\n"; 
	while(&chipData2($x,$colManuf) ne "") {
		if( (&chipData2($x,$colManuf) =~ /^$data{'manufacturer'}$/i) || ($data{'page'} eq 'family') ) {
			if ( (&chipData2($x,$colFamily) eq $data{'family'} || $data{'family'}  eq "All" || (($data{'family'}  eq "Other") && (&chipData2($x,$colFamily) eq ''))) && ($data{'family'} ne "") ) {
				if ( &chipData2($x,$colType) =~ /^Support$/i ) {
					$supportChips[$supportChipCount] = &chipData2($x,$colPart);
					$supportChipsMan[$supportChipCount] = &chipData2($x,$colManuf);
					# need to fix to the send full ship data
					$supportChipCount++;
				} else {
					($chip_table_text[$listed_cnt], $sort_elements[$listed_cnt], $type[$listed_cnt]) = &displayTableData2($x,$flipColor);
					$listed_cnt++;
					if ( $flipColor == 0 ) {$flipColor = 1;} else {$flipColor = 0;}
				}
			}
		}
		$x++;
	}
	# my $row_sort = 0;
    my $not_complete = 1;
    my $index;
    my $len = ($#sort_elements - 1);
	my $temp = '';
	my $temp2 = '';
	my $temp3 = '';
	while ($not_complete) {
		$not_complete = 0;
		foreach $index (0 .. $len) {
			if ($sort_elements[$index] > $sort_elements[$index + 1]) {
				$temp = $sort_elements[$index + 1];
				$temp2 = $chip_table_text[$index + 1];
				$temp3 = $type[$index + 1];
				$sort_elements[$index + 1] = $sort_elements[$index];
				$chip_table_text[$index + 1] = $chip_table_text[$index];
				$type[$index + 1] = $type[$index]; 
				$sort_elements[$index] = $temp;
				$chip_table_text[$index] = $temp2;
				$type[$index] = $temp3;
				$not_complete = 1;
			}
		}
	}

	if ( $data{'page'} eq 'manufacturer' || $data{'page'} eq 'family' ) {
		# print "yelp";
		$x=0;
		my $cpus = '';
		my $mcus = '';
		my $fpus = '';
		my $dsps = '';
		my $others = '';
		while ( $sort_elements[$x] ne '' ) {
			# print ".";
			if ( $type[$x] =~ /^cpu$/i || $type[$x] =~ /^bitslice cpu$/i  ) {
				$cpus .= $chip_table_text[$x];
			} elsif ( $type[$x] =~ /^mcu$/i ) {
				$mcus .= $chip_table_text[$x];
			} elsif ( $type[$x] =~ /^dsp$/i ) {
				$dsps .= $chip_table_text[$x];
			} elsif ( $type[$x] =~ /^fpu$/i ) {
				$fpus .= $chip_table_text[$x];
			} else {
				$others .= $chip_table_text[$x];
			}
			$x++;
		}
		if ( $cpus ne '' ) {
			$text .= "<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;Central Processing Unit (CPU)</div></td><tr>\n";
			$text .= $cpus;
		}
		if ( $mcus ne '' ) {
			$text .= "<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;Micro-Controller Unit (MCU)</div></td><tr>\n";
			$text .= $mcus;
		}
		if ( $dsps ne '' ) {
			$text .= "<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;Digital Signal Processor (DSP)</div></td><tr>\n";
			$text .= $dsps;
		}
		if ( $fpus ne '' ) {
			$text .= "<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;Floating Point Unit (FPU)</div></td><tr>\n";
			$text .= $fpus;
		}
		if ( $others ne '' ) {
			$text .= "<tr><td colspan=\"2\" bgcolor=\"#545454\"><div class=\"chipTypeHeading\">&nbsp;&nbsp;Other components</div></td><tr>\n";
			$text .= $others;
		}
		$text .= "\t</table>\n";
		if ( $supportChipCount > 0 ) {
			$text .= &create_html_page_addition_support_chips(\@supportChips,\@supportChipsMan);
		}
		$text .= "\t<!-- manuf list (end) -->\n";
	} 
	# elsif ( $data{'page'} eq 'family' ) {
		# foreach $temp ( @chip_table_text ) {
			# print $temp;
		# }
	# }
	
	# Create title extensions
	if ( $data{'page'} eq 'manufacturer' ) {
		if ($data{'family'} eq '' ) {
		 	$title_ext_global = "$data{'manufacturer'} Chips";
			$keyword_ext_global = "$data{'manufacturer'}";
		} else {
		 	$title_ext_global = "$data{'manufacturer'} - $data{'family'} Chips";
			$keyword_ext_global = "$data{'manufacturer'}, $data{'family'}";
		}
	}elsif ($data{'page'} eq 'family' ) {
	 	$title_ext_global = "$data{'family'} Chips";
		$keyword_ext_global = "$data{'family'}";
	}

	return $text;
}


sub create_html_body_main_contact {
	my $text = '';
	
	$title_ext_global = 'Contact Page';
	$keyword_ext_global = 'contact';

	$text .= <<Endhtml;
		<table border="1">
			<tr><td align="center">
				Contact Me<br />
				You will have to manually type it in.  <a href="http://howto.wikia.com/wiki/Spam">SPAM</a> is such a miserable thing. Hopefully this will avoid some.<br />
				<img src="$relativeLoc/$imageLoc/sneezmale.jpg" width="100"><br />
			</td></tr>
		</table>
Endhtml
	return $text;
}

###########################################################
###########################################################
#############    Main Content Pages (end)  ################
###########################################################
###########################################################





###########################################################
###########################################################
##############    Intro Tables (begin)  ###################
###########################################################
###########################################################

sub create_html_intro_single_chip {
	my $text ='';

	my $x=$skipLines;
	# my $name = $data{'family'};
	my $fullName = '';
	my $manufSub = '?';
	my $dateSub = '?';
	my $chip= '?';
	my $arch = '?';
	my $coreArch = '?';
	my $freq = '?';
	my $tech = '?';
	my $instrucName = '';
	my $instrucCount = '?';
	my $instrucLink = '?';
	my $homepage = '?';
	my $wiki = '?';
	my $date = '?';
	my $add = '?';
	my $desc = '...';
	my $logo = '';
	my $familyLogo = '';
	# my $famSub = $data{'family'};
	my $link = '';
	my $linkName = '';
	my $datasheet = '?';
	#print "match => &familyData2($x,$colFamilyName] ";
	my $chip_link_part_var = '';


	if ( $data{'page'} eq 'chip' ) {
		# my $flipColor=0;
		$x = $skipLines;
		while(&chipData2($x,$colPart) ne ""){
			$chip_link_part_var = &chipData2($x,$colPart);
			$chip_link_part_var =~ s/\W/_/g;
			if ( $chip_link_part_var eq $data{'part'} && &chipData2($x,$colManuf) eq $data{'manufacturer'} ) {
				# &displayTableData($x,$flipColor);
				$family = &chipData2($x,$colFamily);
				$famSub = $family;
			}
			$x++;
		}
	}
	# print " --|$family|-- ";

	$x = $skipLines;
	while ( &familyData2($x,$colFamilyName) ne '' ) {
		# print ".<br>" . &familyData2($x,$colFamilyName) ;
		if ( &familyData2($x,$colFamilyName) eq $famSub ) {
			# print "match => &familyData2($x,$colFamilyName) ";
			$name 	= &familyData2($x,$colFamilyName);
			if ( &familyData2($x,$colFamilyFullName) ne '' ) {
				$fullName = "of the " . &familyData2($x,$colFamilyFullName) . " Family<br />";
			} 
			# else {
				# $fullName = "of the " . $data{'family'} . " Family<br />";
			# }
			if ( &familyData2($x,$colFamilyManuf) ne '' ) {
				$manufSub = &familyData2($x,$colFamilyManuf);
			}
			if ( &familyData2($x,$colFamilyDate) ne '' ) {
				$dateSub 	= &familyData2($x,$colFamilyDate);
			}
			# if ( &familyData2($x,$colFamilyChip) ne '' ) {
				# $chip	= &familyData2($x,$colFamilyChip);
			# }
			if ( &familyData2($x,$colFamilyArch) ne '' ) {
				$arch 	= &familyData2($x,$colFamilyArch) . '-bit';
			}
			if ( &familyData2($x,$colFamilyInstrucName) ne '' ) {
				$instrucName  = &familyData2($x,$colFamilyInstrucName);
			}
			if (&familyData2($x,$colFamilyIntrucNum)  ne '' ) {
				$instrucNum = &familyData2($x,$colFamilyIntrucNum);		
			}
			if ( &familyData2($x,$colFamilyInstrucLink) ne '' ) {
				$instrucLink = &familyData2($x,$colFamilyInstrucLink);
			}
			if ( &familyData2($x,$colFamilyCoreArch) ne '' ) {
				$coreArch = &familyData2($x,$colFamilyCoreArch);	
			}
			if ( &familyData2($x,$colFamilyFreq) ne '' ) {
				$freq = &familyData2($x,$colFamilyFreq);		
			}
			if (&familyData2($x,$colFamilyTech)  ne '' ) {
				$tech =&familyData2($x,$colFamilyTech) ;		
			}
			if ( &familyData2($x,$colFamilyHomepage) ne '' ) {
				if ( &familyData2($x,$colFamilyHomepage) eq 'none' ) {
					$homepage = 'none';
				} else {
					($link,$linkName) = split(/ /,&familyData2($x,$colFamilyHomepage));
					if ($linkName eq '') { 
						$linkName = substr($link,0,20) . '...'; 
					}
					$homepage = "<a href=\"" . &familyData2($x,$colFamilyHomepage) . "\">$linkName</a>";	;		
				}
			}
			if ( &familyData2($x,$colFamilyWiki) ne '' ) {
				$wiki = &familyData2($x,$colFamilyWiki);
				$wiki =~ s/ /_/;
				$wiki = "(<a href=\"http://en.wikipedia.org/wiki/$wiki\">Wikipedia article</a>)";		
			}
			if ( &familyData2($x,$colFamilyLogo) ne '' ) {
				$familyLogo = &familyData2($x,$colFamilyLogo);		
			}

			#if ( $logo ne '' ) {
				#$logo = "<a href=\"http://howto.wikia.com/wiki/Howto_identify_integrated_circuit_%28chip%29_manufacturers_by_their_logos\"><img src=\"$relativeLoc/$logoLoc/$logo\" alt=\"$name\" width=\"70\"></a>";
			#}

			##### EXTRA LOGOs

			if (&familyData2($x,$colFamilyDesc) ne '') {
				$desc 	= &familyData2($x,$colFamilyDesc);
			}
		}
		$x++;
	}
	
	$x = $skipLines;
	while ( &manufData2($x,$colManufName) ne '' ) {
		#print &manufData2($x,$colManufFullName);
		if ( $data{'manufacturer'} eq &manufData2($x,$colManufName) ) {
			$nameManuf	= &manufData2($x,$colManufFullName);
			$logo 	= &manufData2($x,$colManufLogo1);
			#$founded = &manufData2($x,$colManufDate);
			#$homepage= &manufData2($x,$colManufHomepage);
			#$wiki 	= &manufData2($x,$colManufWiki);
			#$trad 	= &manufData2($x,$colManufTrad);
			#$current = &manufData2($x,$colManufCurrent);
			#$status 	= &manufData2($x,$colManufStatus);
			#$desc 	= &manufData2($x,$colManufDesc);
			#print "............. &manufData2($x,$colManufName) ................<br />\n";
		}
		$x++;
	}
	if ( $logo ne '' ) {
		$logo = "<a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo\" alt=\"$name\"></a>";
	}
	if ( $nameManuf eq '' ) {
		$nameManuf = $data{'manufacturer'};
	}

	$text .= <<Endhtml;

	<table align="left" summary="chip family desc">
		<tr>
			<td width="80">
				$logo
			</td>
			<td>
				<span class="tableTitle">$nameManuf - $name</span>
			</td>
		</tr>
		<tr>
			<td></td>
			<td>
			<!-- ---family summary--- -->
			<div class="familyDescTable">
				<table cellpadding="5" summary="family table organization" width="100%">
					<tr>
						<td colspan="2">
							<span class='familyDescTableName'>$name Family<br /></span>
<span class='familyDescTableParam'>$fullName</span><br />
							<span class='familyDescTableParam'>Homepage:</span> <span class='familyDescTableValue'>$homepage $wiki</span><br />
							<span class='familyDescTableParam'>Family description:</span> <span class='familyDescTableValue'>$desc</span>
						</td>
					</tr>
					<tr>
						<td valign="top" width="40%">
						 <table style="border-collapse: collapse;">
							<tr>
								<td class='familyDescTableParam'>Designer:</td> 
								<td class='familyDescTableValue'>$manufSub</td>
							</tr>	
							<tr>
								<td class='familyDescTableParam'>Initial release:</td>
								<td class='familyDescTableValue'>$dateSub</td>
							</tr>
							<tr>
								<td class='familyDescTableParam'>Datasheet:</td> 
								<td class='familyDescTableValue'>$datasheet</td>
							</tr>
						</table>
						</td>
						<td valign="top" width="60%">
						<table style="border-collapse: collapse;">
							<tr>
								<td class='familyDescTableParam'>Architecture:</td>
								<td class='familyDescTableValue'>$arch</td>
							</tr><tr>
								<td class='familyDescTableParam'>Frequencies:</td>
								<td class='familyDescTableValue'>$freq</td>
							</tr><tr>
								<td class='familyDescTableParam'>Technology:</td>
								<td class='familyDescTableValue'>$tech</td>
							</tr>
						 </table>
						</td>
					</tr>
				</table>
				</div>
			<!--  </td></tr></table> -->
			<!-- ---Family summary (end) -->
			</td>
		</tr>
	</table>
Endhtml
	return $text;
}


sub create_html_intro_manuf {
	#Creates the intro table for manufacturers
	my $text = '';
	my $manufSub = $_[0];

	my $name	= '';
	my $logo1 	= '';
	my $logo2 	= '';
	my $logo3 	= '';
	my $logo4 	= '';
	my $logo5 	= '';
	my $founded = '';
	my $homepage= ' Unknown?';
	my $wiki 	= '';
	my $trad 	= '';
	my $current = '';
	my $status 	= '';
	my $desc 	= '';
 	my $row = $skipLines;
	my @board_rows = ();
	my $does_manuf_exist = 0;

	$text .= "\t<!-- manuf details -->\n";
	# print "$manufSub";

	my $x=$skipLines;
	while ( &manufData2($x,$colManufName) ne '' ) {
		# print &manufData2($x,$colManufName) . ", ";
		if ( $manufSub eq &manufData2($x,$colManufName) ) {
			$does_manuf_exist = 1;
			$name	= &manufData2($x,$colManufFullName);
			$name	=~ s/_/ /g;
			$logo1 	= &manufData2($x,$colManufLogo1);
			$logo2 	= &manufData2($x,$colManufLogo2);
			$logo3 	= &manufData2($x,$colManufLogo3);
			$logo4 	= &manufData2($x,$colManufLogo4);
			$logo5 	= &manufData2($x,$colManufLogo5);
			$founded = &manufData2($x,$colManufDate);
			$homepage= &manufData2($x,$colManufHomepage);
			$wiki 	= &manufData2($x,$colManufWiki);
			$wiki	=~ s/ /_/g;
			$trad 	= &manufData2($x,$colManufTrad);
			$current = &manufData2($x,$colManufCurrent);
			$status 	= &manufData2($x,$colManufStatus);
			$desc 	= &manufData2($x,$colManufDesc);
			$abrev = &manufData2($x,$colManufAbrev);
			#print "............. &manufData2($x,$colManufName) ................<br />\n";
		}
		$x++;
	}

	if ( $name eq '' ) {
		$name = $data{'manufacturer'};
	}
	if ( $logo1 ne '' ) {
		$logo1 = "<div align=\"center\"><a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo1\" alt=\"$name\"></a></div>";
	}
	if ( $logo2 ne '' ) {
		$logo2 = "<div align=\"center\"><a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo2\" alt=\"$name\"></a></div><br />";
	}
	if ( $logo3 ne '' ) {
		$logo3 = "<div align=\"center\"><a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo3\" alt=\"$name\"></a></div><br />";
	}
	if ( $logo4 ne '' ) {
		$logo4 = "<div align=\"center\"><a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo4\" alt=\"$name\"></a></div><br />";
	}
	if ( $logo5 ne '' ) {
		$logo5 = "<div align=\"center\"><a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo5\" alt=\"$name\"></a></div>";
	}
	if ( $founded eq '' ) {
		$founded = "unknown";
	}
	if ( $homepage ne '' ) {
		if ( $homepage eq 'Dead' || $homepage eq 'dead' ) {
			$homepage = 'dead';
		} else {
			$homepage = "<a href=\"$homepage\">$homepage</a>";
		}
	} elsif ( $homepage =~ 'http' ) { $homepage = $homepage; } else { $homepage = "Unknown"; }
	if ( $wiki ne '' ) {
		$wiki = "&nbsp\; (<a href=\"http://en.wikipedia.org/wiki/$wiki\">Wikipedia article</a>)";
	}
	if ( $trad eq '' ) {
		$trad = " - ";
	}
	if ( $current eq '' ) {
		$current = " - ";
	}
	if ( $status eq '' ) {
		$status = ' ? ';
	}
	if ( $desc ne '' ) {
		$desc = "<span class=\"manufTableParam\">Description:</span> <span class=\"manufTableValue\">$desc</span><br />\n";
	}
	if ( $abrev ne '' ) {
		$abrev = '(' . $abrev . ')';
	}

	$text .= <<Endhtml;
	<table summary="manuf intro alignment"><tr><td>
Endhtml

	if($does_manuf_exist){
		$text .= <<Endhtml;
	<table align="left" width="100%" summary="manuf description">
		<tr>
			<td width="80" align="center">
				$logo1
			</td>
			<td>
				<span class="tableTitle">$name $abrev</span>
			</td>
		</tr>
			<td align="center">
				$logo2
				$logo3
				$logo4
				$logo5
			</td>
			<td valign="top">
				<span class=\"tableParam\">Founded:</span> <span class=\"tableValue\">$founded</span><br />\n
				<span class=\"tableParam\">Homepage:</span> <span class=\"tableValue\">$homepage $wiki</span><br />\n
				<span class=\"tableParam\">Traditional products:</span> <span class=\"tableValue\">$trad</span><br />\n
				<span class=\"tableParam\">Current products:</span> <span class=\"tableValue\">$current</span><br />\n
				<span class=\"tableParam\">Status:</span> <span class=\"tableValue\">$status</span><br />\n
				$desc
			</td>
		</tr>
	</table>
Endhtml
	}elsif($name eq "Others"){
		$text .= "		<span class=\"tableTitle\">Unsorted Manufacturers</span><br />\n";
		$text .= "		<span class=\"tableParam\">from less significant CPU manufacturers</span><br />\n";	
	}else{
		$text .= "		<span class=\"tableTitle\">$name</span><br />\n";
		$text .= "		<span class=\"tableParam\">Manufacturer details unknown</span><br />\n";
	}

	$text .= "\t</td></tr><tr><td>\n";
	$text .= "\t\t<br />\n\t\t<table border=\"0\" cellpadding=\"15\" summary=\"family and,or chip list\"><tr><td valign=\"top\">\n"; #table-X1
	if($name eq "Others"){
			$text .= "\t\t<span class=\"heading2\">Manufacturer List:</span><br />\n";
			# Print others list
			foreach $others_manuf (@manuf_others_list_global){
				$text .= <<EndHTML;
			<a href="$scriptName?page=manufacturer&manufacturer=$others_manuf"><span class="sidebarManufNameSelected">$others_manuf</span></a>&nbsp;<span class="sidebarManufCountSelected">($manufListCountGlobal{$others_manuf})</span><br />
EndHTML
	}
	}else{
		$text .= "\t\t<span class=\"heading2\">List of IC families:</span><br />\n";
	
		$text .= "\t\t<ul>\n";
			for ($x=0;$x<=$#manufFamilyListGlobal;$x++) {
				$text .= "\t\t<li><a href=\"$scriptName?page=manufacturer&manufacturer=$data{'manufacturer'}&family=$manufFamilyListGlobal[$x]\"><span class=\"manufFamilyListSelected\">$manufFamilyListGlobal[$x]</a>";
				if ($manufFamilyListGlobal[$x] eq "All") {
					$text .= "</span></li>\n";
				} else {
					$text .= "&nbsp;($manufFamilyListCountGlobal[$x])</span></li>\n"; 
				}
			}
		$text .= "\t\t</ul>\n";

		# Checking to see if there are any boards by/for the manuf
		$row = $skipLines;
		$x = 0;
		my $set_board = 0;
		while (&board_data($row,$col_board_board_type) ne '') {
			# print ".";
			if (&board_data($row,$col_board_manuf) eq $data{'manufacturer'} || &board_data($row,$col_board_chip_manuf) eq $data{'manufacturer'}) {
				# print "X";
				$board_rows[$x] = $row;
				$set_board = 1;
				$x++;
			}
			$row++;
		}
		if ($set_board == 1) {
			$text .= "\t</td><td valign=\"top\">\n";
			$text .= "\t\t<span class=\"heading2\">Processor Boards:</span>\n";
			$text .= "\t\t<ul>\n";
			foreach $x (@board_rows) {
				my $linky = &board_data($x,$col_board_name);
				my $manuf_locy = &board_data($x,$col_board_manuf);
				my $board_namey = &board_data($x,$col_board_name);
				$manuf_locy =~ s/[ \W]/_/g;
				$linky =~  s/[ \W]/_/g; # tr/\W/_/;
				$linky = "$scriptName?page=board&manuf=$manuf_locy&name=$linky";
				$text .= "\t\t\t<li><span class=\"tableParam\"><a href=\"$linky\">" . &board_data($x,$col_board_type) . " ";
				if (&board_data($x,$col_board_board_type) eq 'module') {
					$text .= "CPU module";
				} elsif (&board_data($x,$col_board_board_type) eq 'dev') {
					$text .= "Evaluation board";
				}
				$text .= "<br />$board_namey</a></span>\n";
			}
		}
	}
	$text .= "\t\t</td></tr></table>\n";#table-X1(end)
	$text .= "\t</td></tr></table>\n";
	$text .= "\t<!-- manuf details (end) -->\n";
	return $text;
}

sub create_html_intro_family {
	# Creates the intro table that displays family details
	my $text = '';
	my $x=$skipLines;
	my $name = $data{'family'};
	my $fullName = '';
	my $manufSub = '?';
	my $dateSub = '?';
	my $chip= '?';
	my $arch = '?';
	my $coreArch = '?';
	my $freq = '?';
	my $tech = '?';
	my $instrucName = '';
	my $instrucCount = '?';
	my $instrucLink = '?';
	my $homepage = 'Unknown ?';
	my $wiki = '';
	my $date = '?';
	my $add = '?';
	my $desc = '...';
	my $logo = '';
	my $familyLogo = '';
	my $famSub = $data{'family'};
	my $link = '';
	my $linkName = '';
	my $datasheet = '?';
	my $does_family_exist = 0;
	#print "match => &familyData2($x,$colFamilyName] ";

	$x = $skipLines;
	while ( &familyData2($x,$colFamilyName) ne '' ) {
		if ( &familyData2($x,$colFamilyName) eq $famSub ) {
			$does_family_exist = 1;# found a family
			#print "match => &familyData2($x,$colFamilyName) ";
			$name 	= &familyData2($x,$colFamilyName);
			if ( &familyData2($x,$colFamilyFullName) ne '' ) {
				$fullName = "of the " . &familyData2($x,$colFamilyFullName) . " Family<br />";
			} 
			# else {
				# $fullName = "of the " . $data{'family'} . " Family<br />";
			# }
			if ( &familyData2($x,$colFamilyManuf) ne '' ) {
				$manufSub = &familyData2($x,$colFamilyManuf);
			}
			if ( &familyData2($x,$colFamilyDate) ne '' ) {
				$dateSub 	= &familyData2($x,$colFamilyDate);
			}
			# if ( &familyData2($x,$colFamilyChip) ne '' ) {
				# $chip	= &familyData2($x,$colFamilyChip);
			# }
			if ( &familyData2($x,$colFamilyArch) ne '' ) {
				$arch 	= &familyData2($x,$colFamilyArch) . '-bit';
			}
			if ( &familyData2($x,$colFamilyInstrucName) ne '' ) {
				$instrucName  = &familyData2($x,$colFamilyInstrucName);
			}
			if (&familyData2($x,$colFamilyIntrucNum)  ne '' ) {
				$instrucNum = &familyData2($x,$colFamilyIntrucNum);		
			}
			if ( &familyData2($x,$colFamilyInstrucLink) ne '' ) {
				$instrucLink = &familyData2($x,$colFamilyInstrucLink);
			}
			if ( &familyData2($x,$colFamilyCoreArch) ne '' ) {
				$coreArch = &familyData2($x,$colFamilyCoreArch);	
			}
			if ( &familyData2($x,$colFamilyFreq) ne '' ) {
				$freq = &familyData2($x,$colFamilyFreq);		
			}
			if (&familyData2($x,$colFamilyTech)  ne '' ) {
				$tech =&familyData2($x,$colFamilyTech) ;		
			}
			if ( &familyData2($x,$colFamilyHomepage) ne '' ) {
				if ( &familyData2($x,$colFamilyHomepage) eq 'none' ) {
					$homepage = 'none';
				} else {
					($link,$linkName) = split(/ /,&familyData2($x,$colFamilyHomepage));
					if ($linkName eq '') { 
						$linkName = substr($link,0,20) . '...'; 
					}
					$homepage = "<a href=\"" . &familyData2($x,$colFamilyHomepage) . "\">$linkName</a>";	;		
				}
			}
			if ( &familyData2($x,$colFamilyWiki) ne '' ) {
				$wiki = &familyData2($x,$colFamilyWiki);
				$wiki =~ s/ /_/;
				$wiki = "(<a href=\"http://en.wikipedia.org/wiki/$wiki\">Wikipedia article</a>)";		
			}
			if ( &familyData2($x,$colFamilyLogo) ne '' ) {
				$familyLogo = &familyData2($x,$colFamilyLogo);		
			}

			#if ( $logo ne '' ) {
				#$logo = "<a href=\"http://howto.wikia.com/wiki/Howto_identify_integrated_circuit_%28chip%29_manufacturers_by_their_logos\"><img src=\"$relativeLoc/$logoLoc/$logo\" alt=\"$name\" width=\"70\"></a>";
			#}

			##### EXTRA LOGOs

			if (&familyData2($x,$colFamilyDesc) ne '') {
				$desc 	= &familyData2($x,$colFamilyDesc);
			}
		}
		$x++;
	}
	
	$x = $skipLines;
	while ( &manufData2($x,$colManufName) ne '' ) {
		#print &manufData2($x,$colManufFullName);
		if ( $data{'manufacturer'} eq &manufData2($x,$colManufName) ) {
			$nameManuf	= &manufData2($x,$colManufFullName) . ' -';
			$logo 	= &manufData2($x,$colManufLogo1);
		}
		$x++;
	}
	if ( $logo ne '' ) {
		$logo = "<a href=\"$scriptLoc?page=cat&type=logo\"><img src=\"$relativeLoc/$logoLoc/$logo\" alt=\"$name\"></a>";
	}
	if ( $nameManuf eq '' ) {
		if ( $data{'manufacturer'} ne '' ) {
			$nameManuf = $data{'manufacturer'} . ' -';
		} else {
			$nameManuf = '';
		}
	}

	$text .= <<Endhtml;

	<table align="left" summary="chip family desc">
		<tr>
			<td width="80">
				$logo
			</td>
			<td>
				<span class="tableTitle">$nameManuf $name</span>
			</td>
		</tr>
		<tr>
			<td></td>
			<td>
			<!-- ---family summary for single chip--- -->
<!--			  <table summary="border for family table" frame="box"><tr><td> -->
			<div class="familyDescTable">
Endhtml

	if($does_family_exist){
		$text .= <<Endhtml;

				<table cellpadding="5" summary="family table organization" width="100%">
					<tr>
						<td colspan="2">
							<span class='familyDescTableName'>$name Family<br /></span>
<span class='familyDescTableParam'>$fullName</span><br />
							<span class='familyDescTableParam'>Homepage:</span> <span class='familyDescTableValue'>$homepage $wiki</span><br />
							<span class='familyDescTableParam'>Family description:</span> <span class='familyDescTableValue'>$desc</span>
						</td>
					</tr>
					<tr>
						<td valign="top" width="50%">
						 <table style="border-collapse: collapse;">
							<tr>
								<td class='familyDescTableParam'>Designer:</td> 
								<td class='familyDescTableValue'>$manufSub</td>
							</tr>	
							<tr>
								<td class='familyDescTableParam'>Initial release:</td>
								<td class='familyDescTableValue'>$dateSub</td>
							</tr>
							<tr>
								<td class='familyDescTableParam'>Datasheet:</td> 
								<td class='familyDescTableValue'>$datasheet</td>
							</tr>
						</table>
						</td>
						<td valign="top" width="50%">
						<table style="border-collapse: collapse;">
							<tr>
								<td class='familyDescTableParam'>Architecture:</td>
								<td class='familyDescTableValue'>$arch</td>
							</tr><tr>
								<td class='familyDescTableParam'>Frequencies:</td>
								<td class='familyDescTableValue'>$freq</td>
							</tr><tr>
								<td class='familyDescTableParam'>Technology:</td>
								<td class='familyDescTableValue'>$tech</td>
							</tr>
						 </table>
						</td>
					</tr>
				</table>
Endhtml
	}else{
		$text .= <<Endhtml;
				<span class='familyDescTableName'>$name Family<br /></span>
				<span class='familyDescTableParam'>family details unknown</span><br />
Endhtml
	}
		$text .= <<Endhtml;
				</div>
			<!--  </td></tr></table> -->
			<!-- ---Family summary for single chip (end) -->
			</td>
		</tr>
	</table>
Endhtml
	return $text;
}	

###########################################################
###########################################################
################    Intro Tables (end)  ###################
###########################################################
###########################################################





##################################
####### Main Page (start) ########
##################################

sub create_html_head {
	my $text='';
	# http://www.w3schools.com/css/css_font.asp
	my $meta_robots='';
	if( $scriptName ne 'chips') {
		$meta_robots='<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">';
	}

	my $title = "CPU Grave Yard";
   	if ($data{'page'} eq '') {
		$title = $title . " - Chip Collection";
		$meta = "AM2900";
	} elsif ($page_DNE_global eq 'TRUE') {
		$title = $title . " - $page_DNE_title_global";
		$meta = "";
	} else	{
		$title = $title . " - $title_ext_global";
		$meta = "$keyword_ext_global";
	}
	# body {background-image: url(../grave.gif); background-repeat: no-repeat;opacity:0.4;filter:alpha(opacity=40)}

$text = <<Endhtml;
<html lang="en" xml:lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<meta name="description" content="My CPU collection">
<meta name="keywords" content="CPU, processor, MCU, microcontroller, collection, Intel, AMD, Motorola, $meta">
<title>$title</title>

<STYLE TYPE="text/css">
<!--
	a 		{ 
		font-family:Tahoma, Geneva, sans-serif; 
		text-decoration: none; 
		color: #ffffff;
	}
	/*	a 		{ color: #CDFDFF; text-decoration: none; } */
	a:hover { color: #ffffff;text-decoration: underline; }
	body {background-image: url($relativeLoc/grave-2.jpg); background-repeat: no-repeat}
	div { font-size:12px; }
	span { font-size:12px; }

	.chipTypeHeading { font-size:25px; font-weight:bold; }
	.wiki_super		{ vertical-align: top; font-size: 40%; text-decoration:none; }
	
	.center		{ text-align:center; display:block; }
	.heading1	{ font-size:30px; }
	.heading2	{ font-size:22px; }
	.heading3	{ font-size:16px; font-weight:bold; }
	.list_element	{ font-size: 14px; }
	.list_element_wiki	{ font-size: 11px; }
 	.desc_table { width: 400px; border: 1px solid #656565; font-size:12px;}

	.heading1t	{ font-size:24px; }
	.heading2t	{ font-size:18px; }

	.tableDisplayManufType 	{ font-size:30px; }
	.tableDisplayFamily 	{ font-size:25px; }
	.tableDisplayPartNum 	{ font-size:25px; }

	.sidebarManufName 	{ font-size:12px; }
	.sidebarManufCount  { font-size:12px; }
	.sidebarManufList	{ padding: 0px 0px 3px 0px; }
	.sidebarManufCountSelected  { font-size:12px; }
	.sidebarManufNameSelected 	{ font-size:14px; font-weight:bold; }
	.manufFamilyListSelected 	{ font-size:12px; font-weight:bold; }
	.sidebarManufFamilyList		{ margin: 2px 10px 0px 0px;}
	.sidebarManufFamilyListElement	{ margin: 0px 0px 2px 0px;}
	.topChipCount { font-size:10px; }
	.gloss_value	{ margin:0px 0px 30px 20px; font-size:14px; }

	.tableParam { font-size:12px; font-weight:bold; }
	.tableValue { font-size:12px; }
	.tableChipParam { font-size:12px; font-weight:bold; }
	.tableChipValue { font-size:12px; }
	.tableChipSubHeading { font-size:12px; font-weight:bold; text-decoration: underline; }
	.tableChipFullDetails { font-size:14px; font-weight:bold; }

	.tableTitle { font-size:30px; }
	
	.familyTable { border: 1px solid white; border-collapse: collapse; }
	.familyDescTable { width: 500px; border: 1px solid #656565; font-size:12px; }
	.familyDescTableName { font-size:16px; font-weight:bold; }
	.familyDescTableParam { font-size:12px; font-weight:bold; }
	.familyDescTableValue { font-size:12px; }

	.title_box { width: 600px; margin-left: auto; margin-right: auto; }
	.title { font-size:40px; font-weight:bold; text-align:center; text-shadow: #222222 6px 6px 6px; width: 100%}
	.title_sub { font-size:14px; font-weight:bold; text-align:center; text-shadow: #222222 6px 6px 6px;}

	.introTextTitle { font-size:28px; font-weight:bold; }
	.introText { font-size:18px; }
	.tail { text-align:center; font-size:12px; }
-->
</STYLE>
$meta_robots
</head>
<body bgcolor="#444444" link="#dddddd" alink="#dddddd" vlink="#dddddd" text="#cccccc">

<div style="float:right;" class="topChipCount">
$totalChipCountGlobal Chips<br />
updated<br />
$updateDate
</div><br />

<div class="title_box">
<div class="title">CPU Grave Yard</div>
<div class="title_sub">a processor collection</div><br />
</div>

<hr>
	<center>
	<a href="$scriptName">Home</a> -- 
	<a href="$scriptName?page=cat">Categories</a> -- 	
	<a href="$scriptName?page=tradeList">Trade List</a> --
	<a href="$scriptName?page=glossary">Glossary</a> --
	<a href="$scriptName?page=board">Processor Boards</a> --
	<a href="$scriptName?page=site_map">Site Map</a> --
	<a href="$scriptName?page=sneezmale">Contact Me</a>
	</center>
<hr>
Endhtml
	return $text;
}


sub create_html_body_pre {
	my $text = '';
	$text = <<Endhtml;
<!-- pagebody -->
<table id="body-id" summary="table body, aligning sidebar and maincontent areas">
 <tr>
  <td valign="top" width="190">
Endhtml
	return $text;
}


sub create_html_sidebar {
	my $text = '';
	my $x=0;
	$text = <<Endhtml;
	
	<!-- sidebar -->
	<div>
		<form action="$scriptName">
		<input type="hidden" name="page" value="family" \>
		<select name="family" style="width:125px;">
		<option value="null" selected>--family--</option>
Endhtml
	foreach $fam (@familyListGlobal) {
		$text .= "\t\t\t<option value=\"$fam\">$fam</option>\n";
	}
	$text .= <<Endhtml;
		</select>
		<input type="submit" value="Go" style="width:30px; align:left;" />
		</form>
		<hr>
Endhtml
	foreach $manuf (sort keys %manufListCountGlobal) {
		if ($manuf eq $data{'manufacturer'}) {
			$text .= "\t\t<a href=\"$scriptName?page=manufacturer&manufacturer=$manuf\"><span class=\"sidebarManufNameSelected\">$manuf</span></a>&nbsp;<span class=\"sidebarManufCountSelected\">($manufListCountGlobal{$manuf})</span><br />\n";
			$text .= "\t<ul class=\"sidebarManufFamilyList\">\n";
			# &manufFamilyList; #no longer used
			
			for ($x=0;$x<=$#manufFamilyListGlobal;$x++) {
				$text .= "\t\t<li class=\"sidebarManufFamilyListElement\"><a href=\"$scriptName?page=manufacturer&manufacturer=$manuf&family=$manufFamilyListGlobal[$x]\"><span class=\"manufFamilyListSelected\">$manufFamilyListGlobal[$x]</a>";
				if ($manufFamilyListGlobal[$x] eq "All") {
					$text .= "</span></li>\n";
				} else {
					$text .= "&nbsp;($manufFamilyListCountGlobal[$x])</span></li>\n"; 
				}
			}
			$text .= "\t</ul>\t\n<hr />\n";
		}else{
			# Make sure its not an Other
			if(not(@found = grep(/\b$manuf\b/,@manuf_others_list_global))){
				$unselectedCompanies= $unselectedCompanies .  "\t<div class=\"sidebarManufList\"><a href=\"$scriptName?page=manufacturer&manufacturer=$manuf\"><span class=\"sidebarManufName\">$manuf</span></a>&nbsp;<span class=\"sidebarManufCount\">($manufListCountGlobal{$manuf})</span></div>\n";
			}
		}
	}

	my $others_count=0;
	foreach $other_manuf (@manuf_others_list_global){
		$others_count += $manufListCountGlobal{"$other_manuf"};
	}
	$unselectedCompanies= $unselectedCompanies .  "\t<div class=\"sidebarManufList\"><a href=\"$scriptName?page=manufacturer&manufacturer=Others\"><span class=\"sidebarManufName\">Others</span></a>&nbsp;<span class=\"sidebarManufCount\">($others_count)</span></div>\n";
	$text .= $unselectedCompanies;
	$text .= "\t</div>\n";
	$text .= "\t<!-- sidebar (end) -->\n\n\n";

	return $text;
}


sub create_html_body_mid {
	my $text = '';
	$text = "  </td>\n  <td valign=\"top\" width=\"650\" bgcolor=\"#333333\" cellpadding=\"0\">\n";
	$text .= "<!-- main content -->\n";
	$text .= "\t <table summary=\"main content\" width=\"100%\">\n\t  <tr>\n\t  <td>\n";
	return $text;
}


sub create_html_body_intro {
	my $text = '';
	my $type=$data{'page'};
	my $manuf=$data{'manufacturer'};
	my $family=$data{'family'};
	my $logo='', $desc='';
	#print "$type, $manuf, $family";

	$text .= "\t<!-- intro -->\n";
	if ( $type eq '' ) { #initial page
		$text .= <<Endhtml;
<div class="introTextTitle">This is my CPU collection.</div><br />
<a href="$scriptName?page=chip&manufacturer=DEC&part=21064_BB_A233"><img src="$relativeLoc/$photoLoc/sm/ic-photo-DEC--21-40532-03-(21064-BB)-(Alpha-AXP).png_sm.jpg" width="100" style="float: right; margin: 5px; border: 0px;"></a>
<p class="introText">I currently have <b>$totalChipCountGlobal</b> chips in my collection, spanning from $totalManufCountGlobal different companies, and $totalFamilyCountGlobal CPU families.  They are mostly <a href="$scriptName?page=cat&type=type#cpu">processors</a> (CPU) and <a href="$scriptName?page=cat&type=type#mcu">microcontrollers</a> (MCU).  I have some rare ones in my collections and some you may not see anywhere else.  I have a special affinity for the <a href="$scriptName?page=family&family=AM2900">AMD AM2900</a> family.  A collection of chips, forming <a href="$scriptName?page=cat&type=type#bitslice">Bitslice</a> processors.</p>
	<br /><br />
	<table cellpadding="5" style="margin-left: auto; margin-right: auto;">
		<tr>
			<td colspan="4" style="text-align: center;">
				<span style="font-size: 20px; font-family: Sans-serif;">Some of my larger collections</span>
			</td>
		</tr>
		<tr>
			<td>
				<img src="$relativeLoc/$logoLoc/ic_manuf_logo--AMD-Advanced_Micro_Dev.gif" alt="Advanced Micro Devices" height="63">
			</td>
			<td style="padding-right:40px;">
				<span style="font-size: 32px; font-family: Sans-serif;"><a href="?page=manufacturer&manufacturer=AMD">AMD</a></span>
			</td>
			<td align="center" valign="center">
				<img src="$relativeLoc/$logoLoc/ic_manuf_logo--Intel_Corp-2.gif" alt="Intel" height="63">
			</td>
			<td>
				<span style="font-size: 32px; font-family: Sans-serif;"><a href="?page=manufacturer&manufacturer=Intel">Intel</a></span>
			</td>
		</tr>
		<tr>
			<td>
				<img src="$relativeLoc/$logoLoc/ic_manuf_logo--Motorola_Semi_Products_inc.gif" alt="Motorola" height="63">
			</td>
			<td style="padding-right:40px;">
				<span style="font-size: 32px; font-family: Sans-serif;"><a href="?page=manufacturer&manufacturer=Motorola">Motorola</a></span>

			</td>
			<td>
				<img src="$relativeLoc/$logoLoc/ic_manuf_logo--Zilog_Semi-1.gif" alt="Zilog" height="63">
			</td>
			<td>
				<span style="font-size: 32px; font-family: Sans-serif;"><a href="?page=manufacturer&manufacturer=Zilog">Zilog</a></span>
			</td>
		</tr>
	</table>
	</div>


Endhtml
	} elsif ( $type eq 'manufacturer' ) { #Manufacturer pages
		if ( $data{'family'} eq '' ) {
			$text .= &create_html_intro_manuf($manuf);
		} elsif ( $data{'family'} eq "All" ) {
			$text .= "\t<h2>$manuf</h2>\n";
			$text .= "All families<br />\n";
		} elsif ( $data{'family'} eq "Other" ) {
			$text .= "\t<h2>$manuf</h2>\n";
			$text .= "Other families<br />\n";
		} else {
			$text .= &create_html_intro_family;
		}
		$text .= "\t<br />\n";
	} elsif ( $data{'page'} eq 'family' ) {
		if ( $data{'family'} ne 'Other' ) {	
			$text .= &create_html_intro_family; 
		}
	} elsif ( $type eq 'trade' ) {
		$text .= "Trade desc\n";
	} elsif ( $type eq 'chip' ) {
		$text .= &create_html_intro_single_chip;
	}
	$text .= "\t<!-- intro (end) -->\n";
	
	return $text;
}


sub create_html_body_main_content {
	my $text ='';

	$text .= "\t  </td>\n\t </tr>\n";
	$text .= "\t <tr>\n\t  <td>\n";
	
	switch ($data{'page'}) {
		case "fullList"		{ $text .= &create_html_body_main_full_list; }
		case "tradeList"	{ $text .= &create_html_body_main_trade_list; }
		case "family"		{ $text .= &create_html_body_main_chip_list; }
		case "manufacturer"	{ $text .= &create_html_body_main_chip_list; }
		case "chip"			{ $text .= &create_html_body_main_single_chip; }
		case "sneezmale"	{ $text .= &create_html_body_main_contact; }
		case "site_map"		{ $text .= &create_html_body_main_site_map; }
		case "cat"			{ $text .= &create_html_body_main_category; }
		case "glossary"		{ $text .= &create_html_body_main_glossary; }
		case "board"		{ $text .= &create_html_body_main_cpu_boards; }
		# case "architecture"	{ &architecture_page; }
		case ""			{}	#{ &defaultContent; }
		else				{ 
			$text .= "Script Error: page type unknown"; 
			$page_DNE_global = 'TRUE';
		}
	}
	# chip lists
	$text .= "\t  </td>\n\t  </tr>\n </table>\n";
	$text .= "<!-- main content (end) -->\n";
	return $text;
}


sub create_html_body_end {
	my $text = '';
	$text = <<Endhtml;
  </td>
 </tr>
</table>
<!-- pagebody (end) -->
Endhtml
	return $text;
}


sub create_html_content_header {
	my $text='';

	# If page Does Not Exist then may it a 404 Error
	if ($page_DNE_global eq 'TRUE') {
		$text .= "Status: 404 Not Found\n";
	}
	# Makes sure the URL is the short one /chips? if its not redirect
	if ( $scriptLoc eq 'cgi-bin/chipParse.pl' ) {
		my $query = $ENV{'QUERY_STRING'};
		if($query ne ''){ $query = '?' . $query; }
		$text = "Location: http://happytrees.org/chips$query\n\n";
	} else {
		$text = "Content-type:text/html\n\n"; # starting right
	}
	return $text;
}


sub create_html_tail {
	my $text='';
$text = <<Endhtml;
<br />
<hr>
<div class="tail">
	This page was created by <a href="$scriptName?page=sneezmale">Jeff Israel</a><br />
	Images and content are under <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/">CC-BY-SA 3.0 license</a>, unless otherwise noted. The <a href="$code_loc">code</a> for this page is licenced under <a href="http://en.wikipedia.org/wiki/GPL_license">GPL</a><br />
	
<!-- GoStats JavaScript Based Code -->
<script type="text/javascript" src="http://gostats.com/js/counter.js"></script>
<script type="text/javascript">_gos='c3.gostats.com';_goa=316370;
_got=5;_goi=1;_goz=0;_gol='internet stats';_GoStatsRun();</script>
<a target="_blank" title="html hit counter" 
href="http://c3.gostats.com/click/316370/web-counter/stats-home"><img alt="html hit counter" 
src="http://c3.gostats.com/bin/count/a_316370/t_6/i_34/counter.png" 
style="border-width:0" /></a>
<!-- End GoStats JavaScript Based Code -->

</body>
</html>
Endhtml
	return $text;
}


##################################
####### Main Page (stop) #########
##################################


#########################################
########## HTML (end) ###################
#########################################








#########################################
########## Page Structure (start) #######
#########################################

sub create_html {
	
	$title_ext_global = '';
	$keywords_ext_global = '';
	
	# Check to see if the page should exist
	&does_page_exist;
	
	# Header
	$page_html_content_header_global = &create_html_content_header;


	# Body
#	$page_html_body_global = &create_html_body;
	$page_html_body_pre_global = &create_html_body_pre;
	$page_html_sidebar_global = &create_html_sidebar;
	$page_html_body_mid_global = &create_html_body_mid;
	$page_html_body_intro_global = &create_html_body_intro;
	# 	--> create_html_intro_family
	# 	--> create_html_intro_manuf 
	# 	--> create_html_intro_single_chip
	$page_html_body_main_content_global = &create_html_body_main_content;
	# 	--> create_html_body_main_full_list
	# 	--> create_html_body_main_trade_list
	# 	--> create_html_body_main_chip_list
	# 		--> create_html_body_main_single_chip_table
	# 	--> create_html_body_main_contact
	# 	--> create_html_body_main_site_map
	# 	--> create_html_body_main_category
	# 	--> create_html_body_main_glossary
	# 	--> create_html_body_main_cpu_boards
	$page_html_body_end_global = &create_html_body_end;

	# Tail
	$page_html_tail_global = &create_html_tail;

	# Form the head last, to form better title and keywords
	$page_html_head_global = &create_html_head;	
}

sub print_html {
	# Header
	print $page_html_content_header_global; #content-type|redrect|404
	print $page_html_head_global;		#html head

	#Body
	#print $page_html_body;
	print $page_html_body_pre_global;
	print $page_html_sidebar_global;
	print $page_html_body_mid_global;
	print $page_html_body_intro_global;
	print $page_html_body_main_content_global;
	print $page_html_body_end_global;
	# Tail
	print $page_html_tail_global;
}


#########################################
########## Page Structure (end) #########
#########################################

















##################################################
########## Main code #############################
##################################################

#===Global Vars===#
# List of Manuf		=	@manuf						(string)
# List of families	=	@family						(string)
# chip info			=	&chipData2(chipNum,colNum)	(string)
#
# input manuf		=	$data{'manufacturer'}			(string)
#  manuf ID #		=	$selectedManufIDglobal						(int)
# input family		=	$data{'family'}					(string)
# 	family ID #		=	
# input page type	=	$data{'page'}					(string
#
# manuf families 	=	@manufFamUnique					(string)
# manuf chip cnt	=	$manufCount[$selectedManufIDglobal]			(int)
# manuf fam chip cnt=	$familyCount[$selectedManufIDglobal][family]	(int)


#===Page organization===
#
# Main page
#	&pageHead
#	&pagebody
#	&pageTail
#
#	pageBody ->
#		&sidebar
#		&maincontent
#
#	sidebar ->
#		&manufFamilyList
#
# 	maincontent ->
#  		&intro
#  		options->
#			&fullList
#			&tradeList
#			&familyList
#			&manuList
#
#	intro ->
#		&displayTableManuf2
#		&displayTableFamily
#
#	manufList ->
#		foreach(chip)
#			 &displayTableData
# 
#

#Initialize
%data = ();
$updateDate = '';
@updateDateA = ();

#Initialize Global Varables
$page_DNE_global = '';
$title_ext_global = '';
$keywords_ext_global = '';
$page_html_content_header_global = '';
$page_html_body_global = '';
$page_html_body_pre_global = '';
$page_html_sidebar_global = '';
$page_html_body_mid_global = '';
$page_html_body_intro_global = '';
$page_html_body_main_content_global = '';
$page_html_body_end_global = '';
$page_html_tail_global = '';
$page_html_head_global = '';
$page_DNE_title_global = '';



# Gets input args
%data = &read_input; #get input

# Gets spreadsheet's last edit date
$updateDate = ctime(stat($spreadsheetFileName)->mtime);
@updateDateA = split(/ /,$updateDate);
if ( $updateDateA[4] =~ /:/ ) {
	$updateDate = $updateDateA[1] . " " . $updateDateA[3] . ", " . $updateDateA[5]; 
} else {
	$updateDate = $updateDateA[1] . " " . $updateDateA[2] . ", " . $updateDateA[4]; 
}

# Gets the scripts location -> $scriptLoc
&check_script_location;
# foreach (keys %ENV){ print "$_ -> $ENV{$_}<br>"; }


# Load spreadsheet data
@spreadsheetData = &parse_ods($spreadsheetFileName);

# Load a file listing the order families should be listed
@chipErasGlobal = &openFile($familyErasOrderedFileName);
chomp(@chipErasGlobal);
# foreach $chipEra (@chipErasGlobal) {print "$chipEra, ";}

# Gets the column numbers for each of the chip parameters
&getColLabels;
&getColChipData;


&grapGlobals;

$wiki_attrib = "<img src=\"$relativeLoc/$imageLoc/share/wiki_super_script2.gif\" style=\"position: relative; right: 3;\" border=0>";

# %result = &sort_family_by('data-width'); 

# I moved large amounts of html/txt 3000+ lines to a seperate file
do $extended_code_include_file;

# &main_page; # display page

# Create the parts of the page
&create_html;

# Prints out the page
&print_html;

######## Main code (end) ###############
print "\n";