#!/usr/local/bin/perl5.005
use lib '../lib';
use DBI(0.90);
use strict;
use Database;
use CGI qw(:standard);

Database::->db_info_path("../lib/db.cfg");
my $dbh = new Database;

#Grab the evaluation responses from the form
my $cdsid = param('cdsid');
my $title = param('Title');
my $author = param('Author');
my $book_review = param('book_review');
my $post_review = param('post_review');
my $use_name = param('use_name');

my $sendmail = '/usr/lib/sendmail';
my $recipient = 'mbelang3@ford.com';
my $sender = 'e-Books Feedback <plskills@ford.com>';
my $site_name = 'e-Courses';
my $site_url = '../e-course.html';
my $site_name2 = 'e-Books';
my $site_url2 = '../e-books.html';
my $value;
my $field;
my $email;
my $name;

my $query = new CGI;

my $mail_body = '';

foreach $field (sort ($query->param)) {
    foreach $value ($query->param($field)) {
	$mail_body .= "$field: $value\n";
    }
}

if (($email = $query->param('07_email')) and
    ($query->param('07_email') =~ /@/)) {
   if ($name = $query->param('cdsid')) {
	$name =~ s/"//g;
	$sender = "\"$name\" <$email>";
      } else {
	$sender = "$email";
      }
}

open(MAIL, "|$sendmail -oi -t") or die "Can't open pipe to $sendmail: $!\n";
print MAIL "To: $recipient\n";
print MAIL "From: $sender\n";
print MAIL "Subject: e-Books Feedback\n\n";
print MAIL "$mail_body";
close(MAIL) or die "Can't close pipe to $sendmail: $!\n";

#Declare variables for insertion constants
my $plselect = "u"; 
my $updt = "L2e Init";

#Insert the e-Book review and book information into il2e009_bk_review
if ($book_review)
{
my %review = ('il2e009_book_title_x',$title,'il2e009_book_author_x',$author,
'il2e009_eval_cds_id_c',$cdsid,'il2e009_pl_select_f',$plselect,'il2e009_post_rev_f',
$post_review,'il2e009_post_name_f', $use_name,'il2e009_review_x',$book_review,'il2e009_last_updt_c',$updt);
foreach my $key (keys %review)
{
   print "$key = $review{$key}\n";
}
print "Attempting insert....\n";
$dbh->insert_row('il2e009_bk_review',\%review);
}

$dbh->disconnect;