#!/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 $page;        # page bug reported from
$comments="";    # user input
$title="";       # page print title
$subtitle="";    # first h1 heading
$content="";     # page print content
$contact="";     # email TO address

# ---- get and clean input from form -------------- #
$page = param("page");
$date = param("date");
$comments = param("comments");
$comments = &cleaninput($comments);

$message = "Referring page: $page \n" .
	"Date sent: $date \n" .
	"User comments: \n" .
	"$comments";
$contact = 'rtvandenbark@bsu.edu';

# ---- print results page ----------------------- #
$title = 'Thank you';
$subtitle = 'Your feedback is appreciated.';
$content = '<p>Return to <a href="sl2.cgi">Main Menu</a>.</p>' . 
	'<p class="ctr"><a href="sl2.cgi">
	 <img src="../images/mainmenudiamond.gif" alt="Main menu." width="100" height="75" />
	 </a></p>';
&pgprint();

# ---- send email to programmer ----------------- #
open (MAIL, "| mail $contact");
print MAIL "SUBJECT:  Bug report\n";
print MAIL "FROM: Study Log Project\n";
print MAIL "$message\n";
close(MAIL);


# ------------ subroutines used -----------
sub cleaninput {
    my $string = $_[0];
    $string =~ s/<([^>]|\n)*>//g ; # strip HTML  
    $string =~ s/^\s+// ; # strip leading spaces
    $string =~ s/\s+$// ; # strip trailing spaces
    return $string;
}

sub footerprint { # ---- prints footer with credits--------------
	print '<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 page -------

sub pgprint {
    $logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
	my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
    print header();
    print start_html(-title => $title,
                     -head => $css,
                     -class => 'oneColFixCtrHdr');
    print "<div id='container'> \n <div id='header'> \n";
    print h1("$logo $subtitle");
    print '</div> <!-- end #header -->' . "\n";
    print '<div id="mainContent">' . "\n";
	
    print "$content \n";

    print '<!-- end #mainContent --></div>'. "\n";
    &footerprint();
    print end_html();
} # ------ end sub --------