#!/usr/bin/perl5

print "Content-type: text/html\n\n";


read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item (@pairs) {
($key,$content)=split (/=/,$item,2);
$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}

$decide=$fields{'decide'};
$company=$fields{'company'};
$nam=$fields{'name'};
$addres=$fields{'address'};
$csz=$fields{'csz'};
$day=$fields{'day'};
$eve=$fields{'eve'};
$emai=$fields{'email'};
#$summary=$fields{'summary'};
#$total=$fields{'total'};
#$all=$fields{'all'};
#$thestates=$fields{'thestates'};
$partydate=$fields{'partydate'};
$partytype=$fields{'partytype'};
$showcase=$fields{'showcase'};
$magazine=$fields{'magazine'};


$ip = $ENV{'REMOTE_HOST'};
$ra = $ENV{'REMOTE_ADDR'};
$s="http://celebratepartyshowcase.com";
$t="http://www.celebratepartyshowcase.com";
$ref = $ENV{'HTTP_REFERER'} ;
$_=$ref;
$_=s/$s//g;
$x=$_;

$_=$ref;
$_=s/$t//g;
$y=$_;
#if($x < 1 and $y < 1){

#print " Unauthorized Access";
#exit;
#}





$mailprog = "c:\\inetpub\\scripts\\sendmail.exe";
#$inifile = "c:\\inetpub\\scripts\\sendmail.ini";
#$mailreceiver="phil2\@ptd.net";

#$mailreceiver = "elyse103\@aol.com";
#$mailreceiver = "all\@celebratepartyshowcase.com";
$mailreceiver = "phil\@webchamp.com";


####################################################################

#$footer_file = "attendee_confirm.html"; 
#open(FILE,"$footer_file"); while() { print $_; } exit;