#!/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 ----------------#
$page="";        # page report originates from
$method = 'post';
$action = 'bugreports.cgi';
$encoding = 'application/x-www-form-urlencoded';

# ---- get date & time form submitted -- #
$today = localtime(time);


my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'Bug reporting';
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
$page = param("pageFrom");

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

# ------- begin form ---------------=-- #
print startform($method,$action,$encoding);
print "\n";
print  '<input name="page" type="hidden" id="page" value="' . $page . '" />' . "\n" .
  '<input name="date" type="hidden" value="' . $today . '" />' . "\n" .
  '<p><label for="comments">Please describe the problem</label><br />' . "\n" .
  '<textarea name="comments" id="comments" cols="45" rows="5"></textarea></p>' . "\n";
print '<p>';
print reset;
print ' &nbsp; ';
print submit(-name=>'submit', -value=>'Submit');
print '</p>';

print end_form();

print <<EOF;

      <table>
      <tr>
        <td class="w33l"><img src="../images/hid.gif" /></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;