#!/usr/bin/perl

#
# This script sends mail using MIME::Lite, as per the form
# variables that were sent.
#

use strict;

use CGI;
use MIME::Lite;

# Change the way MIME::Lite sends mails
MIME::Lite->send('smtp', "zulfi.mit.edu", Timeout=>60);

my $q = new CGI;
my %params = $q->Vars;
my $msg;

# If the email address didn't make sense, make one up.
if ( $params{from_email} !~ /.+@.+\..+/ ){
  $params{from_email} = 'anonymous_loser@loser.com';
}

$msg = MIME::Lite->new(
   From     =>"$params{username}<$params{from_email}>",
   To       =>'me@here.com',
   Subject  =>"$params{subject}",
   Data     =>"$params{comment}",
);

# Send the mail
$msg->send;

#
# Once again, the bit about getting the page to look right
# depending on the refering page.
#

my $text_bg = '#FFFFFF';
my $text_fg = '#000000';
my $a_link_text = '#0000FF';
my $v_link_text = '#800080';
my $link_text   = '#0000FF';
my $font_string = '<font face="times">';

if ($params{refering_page} =~ /naveen/) {
   $text_bg = '#222222';
   $text_fg = '#aaaaaa';
   $a_link_text = '#cccccc';
   $v_link_text = '#aaaaaa';
   $link_text   = '#eeddba';
   $font_string = '<font face="helvetica">';
}

print $q->header(),
      $q->start_html(-title=>'Mail sent', -BGCOLOR=>"$text_bg", -TEXT=>"$text_fg", -ALINK=>"$a_link_text", -VLINK=>"$v_link_text", -LINK=>"$link_text"),
      "${font_string}<h2>Mail sent</h2>\n\n<hr>\n<p>\n\n",
      "${font_string}Thank you for your feedback.\n",
      "You can now go <a href=\"$params{refering_page}\">go back to the page</a> you came from.\n<p>\n<hr><p>",
      $q->end_html();