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

########### Credits #################
# Script written by R. Todd Vandenbark
#####################################

#----------- define variables ----------
my $orgname;        # Greek organization name
my $contact;        # contact name
my $cphone;         # contact phone
my $contem;         # contact email
my $inputfile='../org.txt';  # file containing org info
my @orglist="";     # list of Greek organizations
my $key;            # item in array

# ---- read input file ------
open (IN, "$inputfile") ||
    die "Can't open $inputfile: $!\n";
@orglist = <IN>;
close IN;


# ---- start selection form ----
$method = 'post';
$action = 'orgreport2.cgi';
$encoding = 'application/x-www-form-urlencoded';

my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'Report by organization';
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
$subtitle = 'Select: ';

print header();
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">';
print startform($method,$action,$encoding);
print qq{<h2> $subtitle</h2>
	<p><label for="semester">Semester: 
        <select name="semester" id="semester">
          <option value="1230768001_1246406400">Jan. - Jun. 2009</option>
          <option value="1246406401_1262304000">Jul. - Dec. 2009</option>
          <option value="1262304001_1277942400">Jan. - Jun. 2010</option>
          <option value="1277942401_1293840000">Jul. - Dec. 2010</option>
          <option value="1293840001_1309478400">Jan. - Jun. 2011</option>
          <option value="1309478401_1325376000">Jul. - Dec. 2011</option>
          <option value="1325376001_1341100800">Jan. - Jun. 2012</option>
          <option value="1341100801_1356998400">Jul. - Dec. 2012</option>
          <option value="1356998401_1372636800">Jan. - Jun. 2013</option>
          <option value="1372636801_1388534400">Jul. - Dec. 2013</option>
          <option value="1388534401_1404172800">Jan. - Jun. 2014</option>
          <option value="1404172801_1420070400">Jul. - Dec. 2014</option>
        </select>
        </label>
    </p>
	<p><label for="orgzn">Organization:
		<select name="orgzn" id="orgzn">
};

foreach $key (@orglist) {
    ($orgname,$contact,$contem,$cphone) = split (/:/, $key);
	my $org2 = $orgname;
	$org2 =~ s/ /_/g;
    print "<option value='$orgname'>$org2, $contact<\/option>\n";
}
print '</select></label></p>' . "\n";
print '<p>';
print reset;
print ' &nbsp; ';
print submit(-name=>'submit', -value=>'Create report');
print end_form();

print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="orgreport.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 '<!-- end #mainContent --></div>'.
    '<div id="footer">'.
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'.
     'March 28th, 2009 <br />'.
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'.
    '<!-- end #footer --></div>'.
    '<!-- 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");
}