#!/usr/bin/perl -w
use CGI qw(:standard -debug);
use CGI::Carp qw(fatalsToBrowser);
use Time::Local;

########## credits  ##################
# Created by Todd Vandenbark #
######################################

#----------- define variables ----------
my $idnum;          # ID received from form
my $form1;          # input form
my $sessnfile;      # text file of study sessions
my @sessions="";    # study sessions to search
my @results=();     # matching sessions found
my $totalhrs=0;     # total hours studied
$baseurl="http://studylog.firesidelibrarian.com/code/cgi";
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';

# ---- get info from form
$form1 = 'findstudent.cgi';
$student = param("student");
($idnum, $username, $first, $last, $org, $session) = split(/:/, $student);

# ---- check for missing input ---- #
if (!$student) { # none selected
	$title = 'oops...';
	$subtitle = 'Missing input';
	$content = '<p>Please select a student from the list.</p>' . 
		"\n" . 
		'<p><a href="findstudent.cgi">Back to list</a>.</p>' .
		"\n";
	&pgprint();
	exit;
}


# ---- open input file of study sessions --
$sessnfile = '../../session.txt';
open (IN, "$sessnfile") ||
	die "Can't open $sessnfile: $!\n";
@sessions = <IN>;    # read in all sessions
close IN;

# ---- find matching sessions ----
foreach $key (@sessions) {
	($idnum2,$start,$end,$duration) = split (/:/, $key);
	if ($idnum eq $idnum2) {  # if found matching record
		$subtot = $duration/(60*60);
		$subtot = sprintf("%.2f", $subtot);
		$totalhrs += $subtot;
		($stdydate,$begin)=&datetime($start);
		($endstudy,$ended)=&datetime($end);
		$string = join ("_", $stdydate,$begin,$endstudy,$ended,$subtot);
		$string .= "\n";
		push (@results, $string);
		
	} # ---- end if
} # ---- end foreach

# ---- print to screen ----
my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'Study Log report by student';

$subtitle = "Total hours: $totalhrs";

print header();

print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("$logo Study Log for $last, $first");
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";
print h2("$subtitle");
print "\n";

# ---- print table of data ----
print qq{
<table summary="List of study sessions by row: start date, start time, end date, end time, duration.">
  <tr>
	<th scope="col">Start date</th>
    <th scope="col">Start time</th>
    <th scope="col">End date</th>
    <th scope="col">End time</th>
    <th scope="col">Duration</th>
  </tr> }; # ---- end qq ----

# ---- print study sessions ----
foreach $key (@results) { # print table rows
    my ($date2s,$stime,$date2e,$etime,$duration2) = split (/_/, $key);
  print qq{
   <tr>
	<td>$date2s</td>
    <td>$stime</td>
    <td>$date2e</td>
    <td>$etime</td>
    <td>$duration2</td>
  </tr>
  }; # ---- end qq ----
} # ---- end foreach ----
print '</table>';

# ---- print summary ----
$totalhrs = sprintf("%.2f", $totalhrs);
print p("$last, $first total study hours: $totalhrs");
print p("Student ID $idnum");

print p("User your browser's print function to print this report.");

print p("<a href=\"findstudent.cgi\">Generate another report.</a>.");

print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="studentrept.cgi" />
           <a href="javascript:document.bugReport.submit()">
			<img src="../images/problemButton1.gif" alt="Report a problem." /></a>
			</form>
          </td>
        <td class="w33ctr"><a href="sl2.cgi"><img src="../images/mainmenudiamond.gif" alt="Main menu." width="100" height="75" /></a></td>
		<td class="w33rt"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF

# ---- print footer ----
    print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'. "\n" .
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'.
     'March 28th, 2009 <br />'. "\n" .
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'. "\n" .
    '<!-- end #footer --></div>'. "\n" .
    '<!-- end #container --></div>';

print end_html;

#-------------------------------------
# get timestamp
#-------------------------------------
#   arg1 = epoch time
#   r.v. = ("MM-DD-YY","HH:MN:SS")
#-------------------------------------
sub datetime {
    my($time)=@_;

    my ($ss,$mn,$hh,$dd,$mm,$yy,$wkd,$yrd,$isdl) = localtime($time);

    # month goes from 0 to 11
    $mm= $mm+1;

    # convert to 4 digit year
    my $yy2= $yy+1900;

    # put leading zeros
    foreach ($ss,$mn,$hh,$dd,$mm) { $_= sprintf("%02d",$_); }

    return ("$yy2-$mm-$dd","$hh:$mn:$ss");
}

# ------ print error page -------

sub pgprint {
    my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
    print header(-cookie => [$cookie_user, $cookie_pwd]);
    print start_html (-title => $title,
                      -head => $css,
                      -class => 'oneColFixCtrHdr');
    print '<div id="container"><div id="header">';
    print h1("$logo $title");
    print '</div> <!-- end #header -->' . "\n";
    print '<div id="mainContent">' . "\n";
	print h2("$subtitle");
    print "$content \n";

print <<EOF;

      <table>
      <tr>
        <td class="textLeft">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="StaffSystemMainMenu" />
           <a href="javascript:document.bugReport.submit()">
		   <!--  onclick="return val_form_this_page()" -->
			<img src="../images/problemButton1.gif" alt="Report a problem." /></a>
			</form>
          </td>
        <td class="textRight"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF

    # ---- print footer ----
    print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'. "\n" .
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'.
     'March 28th, 2009 <br />'. "\n" .
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'. "\n" .
    '<!-- end #footer --></div>'. "\n" .
    '<!-- end #container --></div>';

print end_html
} # ------ end sub --------