#!/usr/bin/perl
#Written by Jen Chen
#Copyrighted by Jen Chen
use CGI (":standard");
$myMonth = param("myMonth");
open(ORDERS,"Orders.csv") || warn "Can not open the file specified!";
print "Content-type: text/html \n\n";
print "Testing shell script \n";
print " \n";
print "Hello Students in CS 345 class!
\n";
print "";
$colHeader = 1;
foreach $record (){
@array = split(/,/, $record);
if($colHeader < 2){ #Print the column header.
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
$colHeader = $colHeader + 1;
} else {
@Month = split(/-/, $array[3]);
if( $Month[1] eq $myMonth){
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
}
$colHeader = $colHeader + 1;
break; #Since there is only one matched record then once it is found, quit.
} #End of IF-statement
} #end of FOR-loop
print "
";
print " \n";
print " \n";