#!/usr/bin/perl
#
# This script generates a form to send mail.

use strict;

use CGI;

my $q = new CGI;
my $refering_page = $q->http('referer');

#
# Note: depending on the refering page, we want this page to look
# different.  Ergo these variables.
#

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 ($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">';
} 
     

if ( ($refering_page =~ /zulfi\.mit\.edu/) || ($refering_page =~ /bhalu\.com/) ) {

   print $q->header(),
      $q->start_html(-title=>'Send mail', -BGCOLOR=>"$text_bg", -TEXT=>"$text_fg", -ALINK=>"$a_link_text", -VLINK=>"$v_link_text", -LINK=>"$link_text"),
      "${font_string}<h2>Send mail to Naveen</h2>\n\n<hr>\n\n",
      "${font_string}(<em>Click here to see <a href = \"/random/\">why I use a form</a> instead of a \"mailto\" link.</em>)\n<p>\n",
      $q->startform('POST', '/cgi-bin/mailform.pl', 'application/x-www-form-urlencoded'),
      $q->hidden(-name=>'refering_page', -default=>"$refering_page"),
      "<table>\n",
      "<tr>\n<td>${font_string}<b>Your name</b>:</td>\n<td>", 
      $q->textfield(-name=>'username', -default=>'', -size=>30, -maxlength=>80),
      "</td>\n</tr>\n<tr>\n<td>${font_string}<b>Your email</b>:</td>\n<td>", 
      $q->textfield(-name=>'from_email', -default=>'', -size=>30, -maxlength=>80),
      "</td>\n</tr>\n<tr>\n<td>${font_string}<b>Subject</b>:</td>\n<td>", 
      $q->textfield(-name=>'subject', -default=>'', -size=>50, -maxlength=>150),
      "</td>\n</tr>\n</table>\n<p>${font_string}<b>Text:</b><br>", 
      $q->textarea(-name=>'comment', -default=>'', -rows=>15, -cols=>60),
      "<p>\n<br>\n",
      $q->submit(-name=>'Mail your Comments'),
      $q->reset,
      $q->endform,
      "<p>\n\n<hr>\n<p>",
      $q->end_html;

} else {

# If we came here means we came to this page from some other website,
# or someone just types the URL for this page into their browser.  In
# that case we don't bother sending the email and shoo them away.

   print $q->header(),
      $q->start_html(-title=>'Go away'),
      "<h2>Go away</h2>\n\n",
      $q->end_html;

}