#!/usr/bin/perl -wT
use strict;
use CGI;
use Mail::Mailer;

my $query = CGI->new();
my %DATA = $query->Vars;

my $body = "Hi, I have just visited your website.\n\n";
$body .= "Personal Details\n";
$body .= join "\n" , @DATA{qw(Title Name Position School Address Suburb State PCode)}, '';
$body .= "Contact Details:\n";
$body .= "Tel: $DATA{Tel}\n";
$body .= "Tel: $DATA{Fax}\n";
$body .= "Tel: $DATA{Email}\n\n";
$body .= "I would like to register for the following presentations.\n";
$body .= join "\n" , @DATA{qw(PR01 PR02 PR03 PR04 PR05 PR06 PR07 PR08)}, '';
$body .= "List of Attendees.\n";
$body .= join "\n" , @DATA{qw(Att1 Att2 Att3 Att4 Att5 Att6 Att7 Att8 Att9)}, '';
$body .= "Comments:\n";
$body .= "$DATA{Comments}\n\n";

my $mailer = new Mail::Mailer ( "smtp" );
$mailer->open(
    {
    To      => 'info@travancoresch.vic.edu.au',
    From    => $DATA{Email},
    Subject => 'Travancore School Professional Development'
    }
);

print $mailer $body;
$mailer->close;

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