#!/usr/bin/perl
print "Content-type: text/html","\n";
print "Pragma: no-cache","\n\n";
print &Header;
&GETVALUES;
&SENDMAIL;
############################# GET INPUT ##################################
sub GETVALUES
{
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
@pairs= split( /&/, $buffer );
}
foreach $pair( @pairs ){
( $label, $value )= split( /=/, $pair );
$value=~ tr/+/ /;
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$DATA{ $label }= $value;
}
{
$Title = $DATA{ 'Title' };
$Name = $DATA{ 'Name' };
$Position = $DATA{ 'Position' };
$School = $DATA{ 'School' };
$Address = $DATA{ 'Address' };
$Suburb = $DATA{ 'Suburb' };
$State = $DATA{ 'State' };
$PCode = $DATA{ 'PCode' };
$Email = $DATA{ 'Email' };
$Tel = $DATA{ 'Tel' };
$Fax = $DATA{ 'Fax' };
$PR01 = $DATA{ 'PR01' };
$PR02 = $DATA{ 'PR02' };
$PR03 = $DATA{ 'PR03' };
$PR04 = $DATA{ 'PR04' };
$PR05 = $DATA{ 'PR05' };
$PR06 = $DATA{ 'PR06' };
$PR07 = $DATA{ 'PR07' };
$PR08 = $DATA{ 'PR08' };
$Att1 = $DATA{ 'Att1' };
$Att2 = $DATA{ 'Att2' };
$Att3 = $DATA{ 'Att3' };
$Att4 = $DATA{ 'Att4' };
$Att5 = $DATA{ 'Att5' };
$Att6 = $DATA{ 'Att6' };
$Att7 = $DATA{ 'Att7' };
$Att8 = $DATA{ 'Att8' };
$Att9 = $DATA{ 'Att9' };
$Comments = $DATA{ 'Comments' };
}
############################################################################
sub SENDMAIL
{
$recipients = "info\@travancoresch.vic.edu.au";
$mailprog = '/usr/sbin/sendmail';
open(MAIL,"|$mailprog -t");
print MAIL "To: $recipients \n";
print MAIL "From: $Email \n";
print MAIL "Subject: Travancore School Professional Development \n\n" ;
print MAIL "Travancore School Professional Development\n\n";
print MAIL "Hi, I have just visited your website.\n\n";
print MAIL "Personal Details\n";
print MAIL "$Title\n";
print MAIL "$Name\n";
print MAIL "$Position \n";
print MAIL "$School \n";
print MAIL "$Address \n";
print MAIL "$Suburb \n";
print MAIL "$State \n";
print MAIL "$PCode \n\n";
print MAIL "Contact Details: \n";
print MAIL "Tel: $Tel \n";
print MAIL "Fax: $Fax \n";
print MAIL "Email: $Email \n\n";
print MAIL "I would like to register for the following presentations. \n";
print MAIL "$PR01 \n";
print MAIL "$PR02 \n";
print MAIL "$PR03 \n";
print MAIL "$PR04 \n";
print MAIL "$PR05 \n";
print MAIL "$PR06 \n";
print MAIL "$PR05 \n";
print MAIL "$PR06 \n";
print MAIL "$PR07 \n";
print MAIL "$PR08 \n\n";
print MAIL "List of Attendees. \n";
print MAIL "$Att1 \n";
print MAIL "$Att2 \n";
print MAIL "$Att3 \n";
print MAIL "$Att4 \n";
print MAIL "$Att5 \n";
print MAIL "$Att6 \n";
print MAIL "$Att7 \n";
print MAIL "$Att8 \n";
print MAIL "$Att9 \n\n";
print MAIL "Comments: \n";
print MAIL "$Comments \n\n";
close MAIL;
}
sub Header
{
$Header = <