| Server IP : 104.21.21.239 / Your IP : 216.73.217.54 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/test/cgi-bin/ |
Upload File : |
#!/usr/bin/perl5
print "Content-type: text/html\n\n";
print "Hello, world!\n";
exit;
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;
}
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";
$mailreceiver = "shweta\@shwamy.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 " $csz\n";
print TFILE " Phone: $day\n";
print TFILE " 2nd Phone: $eve\n";
print TFILE " E-mail: $emai\n";
print TFILE "Party Date: $partydate\n";
print TFILE "Party Type: $partytype\n";
print TFILE "Showcase: $showcase\n";
print TFILE "Magazine?: $magazine\n";
}
print TFILE "\n";
####################################################################
close(TFILE); }
print " <p><font size=4>Thank You For Pre-Registering!<p>
</font>";