$VARIABLES::SITE

#!/usr/bin/perl package RANKEM; $RANKEM::SCRIPT_DATA_DIR = "/home/rt432a/html/freeadultgalleries.com/top/cgi-bin/sdata"; RANKEM::problem("Could not load the variables file") unless(-e "$RANKEM::SCRIPT_DATA_DIR/variables.dat"); require "$RANKEM::SCRIPT_DATA_DIR/variables.dat"; RANKEM::parse_query(); if($RANKEM::QUERY{'action'} eq "in") { if($OPTIONS::USING_DOUBLE_CGI) { print "Content-type: text/html\n\n"; print < var flagExit = true; onunload = exConsole; function exConsole(){ if(flagExit){ var myWin2 = open('', 'ratings'); myWin2.blur(); myWin2.location = 'http://how-to-find-porn.com/xxx.php'; }; }; $VARIABLES::SITE_TITLE

FREE ADULT GALLERIES
Hi, I'm Jana from free adult galleries Click Here to Enter (c) BoG 2000 , all models at least 18 years old

HTML } else { &check_time unless($OPTIONS::USING_CRON); &give_hit($RANKEM::QUERY{'id'}); } } elsif($RANKEM::QUERY{'action'} eq "incheck") { my $referer = $ENV{HTTP_REFERER}; if($referer =~ /freeadultgalleries.com/g) { &check_time unless($OPTIONS::USING_CRON); &give_hit($RANKEM::QUERY{'id'}); } else { &log_error("Bad referring URL: $RANKEM::QUERY{'id'}"); print "Location: $VARIABLES::FORWARD_URL\n\n"; } } else { print "Location: $VARIABLES::FORWARD_URL\n\n"; } exit; sub parse_query { my(@pairs, $pair, $name, $value); @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $RANKEM::QUERY{$name} = $value; if ($RANKEM::QUERY{'id'} =~ "/free/" ) { $RANKEM::QUERY{'id'} =substr ($RANKEM::QUERY{'id'} ,6); } } } sub give_hit { my($id) = shift; if(-e "$VARIABLES::MEMBER_DATA_DIR/$id.mdf") { my $current_ip = $ENV{'REMOTE_ADDR'}; open(IP, "+<$VARIABLES::MEMBER_DATA_DIR/$id.idf") || RANKEM::problem("Cannot access the IP log file"); seek(IP, 0, 0); my $last_ip = ; $last_ip =~ tr/.//; $current_ip =~ tr/.//; if($last_ip eq $current_ip) { close(IP); &log_error("Multiple click throughs: $id"); print "Location: $VARIABLES::FORWARD_URL\n\n"; } else { truncate(IP, 0); seek(IP, 0, 0); print IP "$ENV{'REMOTE_ADDR'}"; close(IP); open(DATA, "+<$VARIABLES::MEMBER_DATA_DIR/$id.mdf") || RANKEM::problem("Couldn't open the data file for account $id"); flock(DATA, 2); my ($in, $out, $totalIn, $inactive, $url, $title, $descrip, $email, $banner, $password) = split(/\|/, ); if($title eq "") { close(DATA); &repair_data($id); } $in++; $totalIn++; truncate(DATA, 0); seek(DATA, 0, 0); print DATA "$in|$out|$totalIn|0|$url|$title|$descrip|$email|$banner|$password|"; close(DATA); print "Location: $VARIABLES::FORWARD_URL\n\n"; } } else { print "Location: $VARIABLES::FORWARD_URL\n\n"; } } sub repair_data { my $user = shift; open(BACKUP, "$VARIABLES::MEMBER_DATA_DIR/$user.bdf") || RANKEM::problem("Couldn't open the data file for account $user"); my $line = ; close(BACKUP); open(USER, ">$VARIABLES::MEMBER_DATA_DIR/$user.mdf") || RANKEM::problem("Couldn't open the data file for account $user"); print USER "$line"; close(USER); print "Location: $VARIABLES::FORWARD_URL\n\n"; exit; } sub check_time { require "$RANKEM::SCRIPT_DATA_DIR/time.dat"; my $current_time = time; my $age = $current_time - $TIME::RERANK; my $lastclean = $current_time - $TIME::RESET; if ($age >= $VARIABLES::RERANK_TIME) { open(TIME, ">$RANKEM::SCRIPT_DATA_DIR/time.dat") || RANKEM::problem("Cannot open time data file"); print TIME "package TIME;\n"; print TIME "\$TIME::RERANK = $current_time;\n"; print TIME "\$TIME::RESET = $TIME::RESET;\n"; print TIME "1;"; close(TIME); require "functions.cgi"; FUNCTIONS::print_the_list(FUNCTIONS::load_member_data()); } if ($lastclean >= $VARIABLES::RESET_TIME) { open(TIME, ">$RANKEM::SCRIPT_DATA_DIR/time.dat") || RANKEM::problem("Cannot open time data file"); print TIME "package TIME;\n"; print TIME "\$TIME::RERANK = $TIME::RERANK;\n"; print TIME "\$TIME::RESET = $TIME::$current_time;\n"; print TIME "1;"; close(TIME); RANKEM::reset(); } close(TIME); } sub reset { my $file; opendir(MEMBER_DIR, "$VARIABLES::MEMBER_DATA_DIR"); my @member_files = sort(grep { m/.*\.mdf/ } readdir(MEMBER_DIR)); closedir(MEMBER_DIR); for $file (@member_files) { open(DATA, "+<$VARIABLES::MEMBER_DATA_DIR/$file") || RANKEM::problem("Cannot open member data file"); flock(DATA, 2); my ($in, $out, $totalIn, $inactive, $url, $title, $descrip, $email, $banner, $password) = split(/\|/, ); $inactive++ unless($in); truncate(DATA, 0); seek(DATA, 0, 0); print DATA "0|0|$totalIn|$inactive|$url|$title|$descrip|$email|$banner|$password|"; close(DATA); $file =~ s/\.mdf/\.idf/gi; open(IPLOG, ">$VARIABLES::MEMBER_DATA_DIR/$file") || RANKEM::problem("Cannot open member IP log file"); close(IPLOG); } } sub log_error { my $data = shift; my $date = get_date(); if($OPTIONS::LOG_ERRORS) { open(ERRORS, ">>$RANKEM::SCRIPT_DATA_DIR/errors.ldf"); print ERRORS "[ $date ] [ Possible Cheating ] [ $ENV{'REMOTE_ADDR'} ] [ $data ]\n"; close(ERRORS); } } sub get_date { my @time_breakdown = localtime; my $time_of_day = "am"; for(0..3) { $time_breakdown[$_] = 0 . $time_breakdown[$_] if(length($time_breakdown[$_]) < 2); } $time_breakdown[4]++; ($time_breakdown[2] -= 12 and $time_of_day = "pm") if($time_breakdown[2] > 12); ## Convert to non-military clock return "$time_breakdown[2]:$time_breakdown[1]:$time_breakdown[0]$time_of_day $time_breakdown[4]/$time_breakdown[3]/$time_breakdown[5]"; } sub problem { my $description = shift; print "Location: $VARIABLES::FORWARD_URL\n\n"; exit; }