| Server IP : 172.67.201.108 / Your IP : 216.73.217.143 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/ |
Upload File : |
#!/usr/bin/perl
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;
}
print "content-type: text/html\n\n";
$i=$fields{'i'};
$i=0 if $i eq '';
$a=$i;
$filepos=$ENV{'PATH_INFO'};
$filepos=~s/^\///;
$filepos=$lastpos;
$filepos=0 if $filepos eq '';
$whichcategory=$fields{'hey'};
$topics=$fields{'topics'};
$lastpos=$fields{'lastpos'};
$hey=$ENV{"QUERY_STRING"};
if ($hey eq "") {
$hey = $whichcategory; }
if ($hey eq 'bmitzvah'){
$hey = 'Bar/Bat Mitzvahs' ;
}
if ($hey eq 'party'){
$hey = 'Other Parties' ;
}
####################################################################
print "
<title>\"Celebrate Party Showcase\"</title>
<META name=\"description\" content=\"The Party Showcase that's as Much Fun as a Party!\">
<META name=\"keywords\" content=\" party showcase, party showcases, celebrate,celebration,barmitzvah, bar mitzvah, batmitzvah,bar, bat, mitzvah, mitzvahs, mitzva, bat mitzvah, barmitzvahs, Bar/Batmitzvah, bar-mitzvah, bar-mitzvahs, Batmitzvahs, Bat-Mitzvahs,entertainment,invitations, caterers,favors,gifts,judaica, carnivals, centerpieces, dj, djs, photography, photographers, candlelighting,party, planners,jewish, discount, discounts, parties, motivators, balloons, baskets, flowers, attire, clothes, bands, band, video, videography, computer, travel, tours, magicians, wedding, Wedding,New York, Long Island, AK, AL, AR, AZ, barmitzvah CA, CO, CT, DE, FL, GA, HI, IA, ID, IN, bar mitzvah IL, KY, KS, LA, MA, barmitzvah MD, ME, bar mitzvah MI, MN, MO, MS, MT, NC, ND, NE, NH, NJ, NM, NV, NY, OH, OK, OR, PA, RI, SC, SD, TN, TX, UT, VA, VT, WV, WA, WI, WY,lmnu, barmitzvahfindit, barmitzvahfindit.com\">
<style>
A:link{color:red};A:visited{color:red};A:hover{color:magenta};A:active{color:red};
</style>
<body link=blue vlink=blue><font face=arial>
<center>
<!--<img src=images/dancinggirls.gif align=left alt=\"The Party Showcase Everyone is Talking About\">-->
<center><nobr>
<a href=showcaseinfo.html><img src=images/logo.gif border=0 alt=\"Showcase Dates & Directions\"></a>
<hr width=640 color=CD1976>
<i><font size=4 color=CD1976>
\"Come to the Party Showcase That's as Much Fun as a Party!\"</font></i><p>
</nobr>
<table border=0><td align=left>
<br>
<form>";
open (re, "photos.txt");
seek (re,$lastpos,0);
$i=1;
while (<re>) {
($image,$blank)=split(/\t/,$_);
$doit=0;
#if ($category eq all){
$foundit=1;
print" <table border=0 cellpadding=5 cellspacing=0><td><img src=photos/$image></td><td valign=top><font size=4><b>$cap</b></font></table>
<p>
<input type=hidden name=i value=\"$i\">
<input type=hidden name=topics value=\"$topics\">
<input type=hidden name=foundit value=\"$foundit\">
</form>
\n";
$i++;
last if ($i == 7);
#}
}
$b=tell(re);
################ LOOK AHEAD TO SEE IF ANY MORE TOPICS ARE PRESENT #######
seek (re,$b,0);
$i=1;
$submitv="Return To First Page Of Photos";
$fin=1;
while (<re>) {
($image)==split(/\t/,$_);
#if($category eq all){
$submitv="More Photos";
$fin=0;
#}
#last if ($category eq all);
}
if ($foundit < 1){
print "
Sorry, There Are No Photos<p>
";
&ending;
exit;
}
if ($fin eq 1){
$b=0;
print "
Sorry, There Are No More Photos
";}
print "
<p>
<form method=post action=photos.cgi>
<input type=hidden name=lastpos value=$b>
<input type=hidden name=hey value=\"all\">
<input type=submit value=\"$submitv\">
</form>
";
&ending;
sub ending {
print"</td></table>
<font size=2>
<a href=index.html>Back To Home Page</a>
<br>   <br>   <br>
"; }