| Server IP : 104.21.21.239 / Your IP : 216.73.216.11 Web Server : Apache/2.4.68 (Amazon Linux) OpenSSL/3.5.5 System : Linux ip-172-31-69-123.ec2.internal 6.1.176-223.369.amzn2023.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Jul 24 13:34:27 UTC 2026 x86_64 User : ec2-user ( 1000) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /home/home2/domains/cs.com/_ARCHIVE/cgi-bin/ |
Upload File : |
#!/usr/bin/perl5
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'};
$cit=$fields{'city'};
$stat=$fields{'state'};
$zip=$fields{'zip'};
$phon=$fields{'phone'};
$wor=$fields{'work'};
$emai=$fields{'email'};
$summary=$fields{'summary'};
$total=$fields{'total'};
$all=$fields{'all'};
$thestates=$fields{'thestates'};
$partydate=$fields{'partydate'};
$partytype=$fields{'partytype'};
$otherpartytype=$fields{'otherpartytype'};
print "Content-type: text/html\n\n";
print "
<title>Celebrate Party Showcase</title>
<body bgcolor=white text=blue>
<center>
<style>
A:link{color:navy};A:visited{color:navy};A:hover{color:magenta};A:active{color:blue};
</style>
<center>
<a href=index.html><img src=/images/logo.gif border=0 alt=\"Celebrate Party Showcase\"></a>
";
$mailprog = "c:\\inetpub\\scripts\\sendmail.exe";
#$inifile = "c:\\inetpub\\scripts\\sendmail.ini";
#$mailreceiver="phil2\@ptd.net";
#$mailreceiver = "elyse103\@aol.com";
$mailreceiver = "all\@celebratepartyshowcase.com";
if (-f $mailprog) {
open (TFILE, "|$mailprog -t");
print TFILE "From: $emai\n";
print TFILE "To: $mailreceiver\n";
print TFILE "Subject: Celebrate - Registration\n";
print TFILE "\n";
print TFILE " Name: $nam\n";
print TFILE " Address: $addres\n";
print TFILE " $cit $stat $zip\n";
print TFILE " Phone: $phon\n";
print TFILE " 2nd Phone: $wor\n";
print TFILE " E-mail: $emai\n";
print TFILE "Party Date: $partydate\n";
print TFILE "Party Type: $partytype\n";
if ($otherpartytype){
print TFILE "Other Party: $otherpartytype\n";
}
print TFILE "\n";
####################################################################
close(TFILE); }
print " <p><font size=4>Thank You For Pre-Registering!<p>
</font>";