#!/usr/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser);
CGI::ReadParse();

print MAIL "$in{'Title'}\n";
print MAIL "$in{'Name'}\n";
print MAIL "$in{'Position'}\n";
print MAIL "$in{'School'}\n";
print MAIL "$in{'Address'}\n";
print MAIL "$in{'Suburb'}\n";
print MAIL "$in{'State'}\n";
print MAIL "$in{'PCode'}\n";
print MAIL "$in{'Email'}\n";
print MAIL "$in{'Telephone'}\n";
print MAIL "$in{'Fax'}\n";
print MAIL "$in{'PR01'}\n";
print MAIL "$in{'PR02'}\n";
print MAIL "$in{'PR03'}\n";
print MAIL "$in{'PR04'}\n";
print MAIL "$in{'PR05'}\n";
print MAIL "$in{'PR06'}\n";
print MAIL "$in{'PR07'}\n";
print MAIL "$in{'PR08'}\n";
print MAIL "$in{'Att1'}\n";
print MAIL "$in{'Att2'}\n";
print MAIL "$in{'Att3'}\n";
print MAIL "$in{'Att4'}\n";
print MAIL "$in{'Att5'}\n";
print MAIL "$in{'Att6'}\n";
print MAIL "$in{'Att7'}\n";
print MAIL "$in{'Att8'}\n";
print MAIL "$in{'Att9'}\n";
print MAIL "$in{'Comments'}\n";

my $mailer = new Mail::Mailer ( "smtp" );
$mailer->open(
    {
    To      => 'dawson.nicholas.a@edumail.vic.gov.au',
    From    => $in{'Email'},
    Subject => 'Travancore School Professional Development'
    }
);

print $mailer;
$mailer->close;

print $query->redirect('http://www.travancoresch.vic.edu.au/developmen
+t/reply02.html');