b0VIM 7.0 [ɐMC N: topctr p3nlh030.shr.prod.phx3.secureserver.net ~topctr/html/members/personal-info.cgi
U3210#"! U tp ` ) ad } Q $ r I
v
L
"
u t k j ] \ 6 4 ' %
^
\
U
H
F
| z s f d 4 2 + I G @ 3 1 u s l k = e d ] [ $records_fetch=$dbh->do($sql,undef,$cnam,$webs,$cate,$user,$pass,$paym,$fnam,$add1,$add2,$city,$stat,$post,$coun,$phon,$emai,$id) || Error("$message","$cnam","$webs","$cate","$user","$pass","$paym","$fnam","$add1","$add2","$city","$stat","$post","$coun","$phon","$emai","$id"); my $sql="UPDATE memb SET cnam=?,webs=?,cate=?,user=?,pass=?,paym=?,fnam=?,add1=?,add2=?,city=?,stat=?,post=?,coun=?,phon=?,emai=? WHERE id=?"; { if($p) my $p = $records_fetch->fetchrow; $records_fetch->execute($pass,$id); $records_fetch=$dbh->prepare("select id from memb where pass=? and id=?"); } exit 1; &Error("$message","$cnam","$webs","$cate","$user","$pass","$paym","$fnam","$add1","$add2","$city","$stat","$post","$coun","$phon","$emai","$id"); { if($message) } $message.="This username is already registered.
\n"; $user=""; { if($u) my $u = $records_fetch->fetchrow; $records_fetch->execute($user,$id); $records_fetch=$dbh->prepare("select user from memb where user=? and id!=?"); } $message.="This email is already registered.
\n"; $emai=""; { if($e) my $e = $records_fetch->fetchrow; $records_fetch->execute($emai,$id); $records_fetch=$dbh->prepare("select emai from memb where emai=? and id!=?"); else{} } $message.="Email field is required.
\n"; { if(!($emai)) else{} } $message.="Phone field is required.
\n"; { if(!($phon)) else{} } $message.="Country field is required.
\n"; { if(!($coun)) else{} } $message.="Postal/Zip Code field is required.
\n"; { if(!($post)) else{} } $message.="State/Province/Region field is required.
\n"; { if(!($stat)) else{} } $message.="City field is required.
\n"; { if(!($city)) else{} } $message.="Address field is required.
\n"; { if(!($add1)) else{} } $message.="Full Name field is required.
\n"; { if(!($fnam)) else{} } $message.="Payment Method field is required.
\n"; { if(!($paym)) else{} } $message.="Password field is required.
\n"; { if(!($pass)) else{} } $message.="Username field is required.
\n"; { if(!($user)) else{} } $message.="Category field is required.
\n"; { if(!($cate)) else{} } $message.="Web Site URL field is required.
\n"; { if(!($webs)) { if ($ENV{'REQUEST_METHOD'} eq 'POST') $message=""; my $dbh = DBI->connect("DBI:mysql:samembers:samembers.db.7054548.hostedresource.com:3306", "samembers","S3h7a5arei") || Error("$message","$cnam","$webs","$cate","$user","$pass","$paym","$fnam","$add1","$add2","$city","$stat","$post","$coun","$phon","$emai","$id"); $message="Database is down for a scheduled maintenance - it should be back online soon.
\n"; my $message; my $date; my $records_fetch; my $ip2c = $ENV{'REMOTE_ADDR'}; my $emai = $cgi->param('email') || undef; my $phon = $cgi->param('phone') || undef; my $coun = $cgi->param('country') || undef; my $post = $cgi->param('postal') || undef; my $stat = $cgi->param('state') || undef; my $city = $cgi->param('city') || undef; my $add2 = $cgi->param('add2') || undef; my $add1 = $cgi->param('add1') || undef; my $fnam = $cgi->param('fname') || undef; my $paym = $cgi->param('paymentmethod') || undef; my $pass = $cgi->param('password') || undef; my $user = $cgi->param('user') || undef; my $cate = $cgi->param('category') || undef; my $webs = $cgi->param('website') || undef; my $cnam = $cgi->param('cname') || undef; use strict; my $cgi= new CGI; use DBI; my $id = session(); use CGI; #!/usr/bin/perl -w ad h ) j F E 3
@
2
.
'
#
a A / + ) ( Z
l
b
exit 1; }exit 1; } } exit 1; } } return $id; myexit 1; } } return $id; my $id = $session->paraexit 1; } } return $id; my $id = $seexit 1; } } return $id; my $id = $session->param("id"); print $q->header(-exit 1; } } return $id; my $id = $seexit 1; } } return $id; my $id = $session->param("id"); print $q->header(-cookie=>$cookie,-cache_control=>"no-cache, no-stoexit 1; } }exit 1;exit 1; } } return $id; my $id = $session->param("id"); print $q->header(-cookie=>$cookie,-cache_control=>"no-cache, no-store, must-revalidate"); my $cookie = $q->cookie(-name=>"CGISESSPID",-value=>"$s",-expires=>"+15m",-domain=>"sponsoredads.com"); { else } exit 1; print $q->header(-cache_control=>"no-cache, no-store, must-revalidate",-location=>"http://www.sponsoredads.com/members/signin.cgi?action=expire"); { elsif($session->is_empty) } exit 1; print $q->header(-cache_control=>"no-cache, no-store, must-revalidate",-location=>"http://www.sponsoredads.com/members/signin.cgi?action=expire"); { if($session->is_expired) my $session = CGI::Session->load(undef,$s,{Directory=>'/tmp/pub'}); my $s = $q->cookie('CGISESSPID') || undef; my $q = CGI->new; use CGI::Session ( '-ip_match' ); use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; { sub session } exit 1; print "@foot\n"; print "$file\n"; ~qq; print qq~ print "@head\n";