#!/usr/bin/perl
#
#Program name: stockchart.pl
#
#Description: 	Take a range of records, comma-delimited, of yahoo stock
#	quotes for a range of dates.  Create an HTML chart from the data.
#
#Author: Noe Dinnerstein, BodhiSoftWare, Inc.
#
#********************************************************************************



#===========================================================
#	VARIABLE DECLARATIONS
#===========================================================
$save_mmmyy=" ";
$save_symbol=" ";
$ssym=" ";
$mmmyy=" ";

$firstHeader=1;  #Flag

#Hash table of months and their numbers
%month=('Jan','01','Feb','02','Mar','03','Apr','04','May','05','Jun','06','Jul','07','Aug','08','Sep','09','Oct','10','Nov','11','Dec','12');
#==========================================================================
#open input file
#open output HTML file
#==========================================================================
open (INDAT,"<webread.dat") or die("Error opening input file");

open (HTML,">yahoo_stocks.html") or die("Error opening output");

#=================================================
#We must read the data into an array
#in order to read it backwards out of the array
#to get it in the right order.
#====================================================

@DataArray="";	#Array of data from the file
$idx=0;		#Array index

while (<INDAT>) {
	 $DataArray[$idx]=$_;
 	 $idx++;	
}
if ($idx == 0) {exit(0)};

#==============================================

$idx--;		#we went one too far at end of file,
		#so decrement counter by 1
 
#================================================
#write HTML header

beginPage();


#======== Now read it back data ==========

for ($i=$idx;$i > -1;--$i){		#print range in reverse $idx to 0

	@PartArray=split /,/,$DataArray[$i];
	$ssym=$PartArray[0];  #get rid of new line 

	#if there is a change of stock symbol
	if ($ssym ne $save_symbol) {
		if ($firstHeader == 0) {
			writeFooter();
		} #end if
		else
		{ $firstHeader = 0;}
	    writeHeader();
	    $save_symbol=$ssym;
	} #end if
	writeData();
} #end for-loop

writeFooter();
writeEndFooter();

close INDAT;
close HTML;
exit(0);

#==============================================
#	SUBROUTINES
#==============================================
#
# set up HTML page
#==============================================
sub beginPage {
print HTML "<HTML>\n";
print HTML "<BODY>\n";
print HTML "<H1> Perl Demo <BR></H1>\n";
print HTML "<H2>Stock quotes charts generated from yahoo and formatted by Perl programs.</H2>\n";
}
#==================================================
# headers are done here
#=================================================
sub writeHeader {
print "writeHeader\n";

#print HTML "<TR>\n";
print HTML "<TABLE BORDER ALIGN=CENTER><!--stock table -->\n";

print HTML "<TABLE BORDER ALIGN=CENTER><!--Stock Header  -->\n";
print HTML "<TR><TD><H2>STOCK PRICES</H2></TD> </TR>\n";
print HTML "<TR><TD>SYMBOL:$ssym </TD></TR>\n";
print HTML "</TABLE><!--end stock header -->\n";
print HTML "<TABLE BORDER ALIGN=CENTER><!--Table holding month and row of data cells -->\n";
#print HTML "<TR> </TR>\n";


print HTML "<TR><!-- row that holds all the data -->\n";

}
#================================================
# detail cells
#================================================
sub writeData {
write "writeData\n";
	@td=split /,/, $DataArray[$i];

	$sdate=$td[1];  
	$sclose=$td[5];
	@dpart=split /-/,$sdate;
	$smmm=$dpart[1];
	$dmm=$month{$smmm};

	$sdd=$dpart[0];
	$syy=$dpart[2];
	$disp_mmmyy=" ";
	$mmmyy="$syy$dmm";
	#print "save_mmmyy:$save_mmmyy, mmmyy:$mmmyy\n";

	if ($save_mmmyy ne $mmmyy) {
		if ($save_mmmyy ne " ") {

			print HTML "<!-- Change of Month -->\n";
			print HTML "\t </TR>\n";
			#print HTML "<TR><TD>\n";

 			print HTML "\t</TABLE>\n";
			#print HTML "\t <TD>\n";
		}
		$disp_mmmyy = $mmmyy;
		$save_mmmyy = $mmmyy;
		print HTML "\t<TABLE BORDER ALIGN=LEFT> \n";
		print HTML "\t<TR><TD>$smmm</TD></TR>\n";
		print HTML "\t<TR><!-- data cell row -->\n";
	}
	else {$disp_mmmyy = " ";}


print HTML "<!--Detail Cell -->\n";
print HTML "\t \t<TD cellpadding=0 VALIGN=BOTTOM fontsize=-2>\n";
print HTML "\t \t \t<TABLE border>\n";
print HTML "\t \t \t <TR valign=TOP><TD>$sdd</TD></TR>\n";
print HTML "\t \t \t <TR ></TR>\n";

print HTML qq(\t \t \t <TR valign=BOTTOM ><TD> <fontsize=smaller>$sclose</TD></TR>\n);
print HTML "\t \t \t</TABLE>\n";

print HTML "\t \t \t</TD>";
print HTML "<!--End Detail Cell -->\n";
}

#================================================
# end of individual stock sections
#================================================
sub writeFooter {
print "writeFooter\n";
print HTML "<!-- Footer -->\n";

print HTML "\t</TR>\n";
print HTML "\t</TABLE> <!-- End of Month -->\n";

print HTML "</TR>\n";
print HTML "</TABLE>  <!-- End of hold-all table  -->\n"; 

print HTML "</TABLE> <!-- End of Stock -->\n";

#print HTML "<P>\n";

print HTML "<BR><BR><BR><BR><BR><BR>\n";

}

#===============================================
#  Final footer of the HTML page
#===============================================
sub writeEndFooter {
print "writeEndFooter\n";
print HTML "<!-- EndFooter -->\n";

print HTML "</BODY>\n";
print HTML "</HTML>\n";
}
#==================================================