<%args> $paid => undef $sid => undef
We can no longer provide access to Quantum members, because the Quantum network does not allow us to do that. We're sorry for the inconvenience!
CLICK HERE TO SIGNUP

Don't foget to:
Cancel ProAdult membership
click here to enter

If you originally signed up for Amateur Reality and picked your own username and password, please click the above link to login.
<%init> my $signup = '/share.shtml'; if ( $sid =~ /^\d+$/ ) { my $dbh = &Utils::DB::connect(%AR::db); my $epoch = $dbh->selectrow_array("select epoch from models where paid = $sid"); if ( $epoch ) { $signup = 'http://hits.epochstats.com/hit.php?s=1266&p=2&' . $epoch; } } if (0) { my $auth = 0; my $user = {}; my $now = time; my $qpass = "/www/.qpasswd"; my $site_ok = 0; if ( $sid =~ /^\d+$/ ) { my $dbh = &Utils::DB::connect(%AR::db); $site_ok = $dbh->selectrow_array("select paid from models where paid = $sid"); } if ( !$site_ok ) { return $m->comp('.error', msg => 'Invalid site ID'); } # Load the current quantm password my $passline = `cat $qpass`; chomp $passline; my ($qtime, $qpassword) = split(/:/, $passline); # If it has been an hour, change the password if ( $now - $qtime > 3600 ) { $qpassword = int(rand(999999)); open(HND, ">$qpass"); print HND "$now:$qpassword\n"; close(HND); my $crypted = crypt( $qpassword, substr($qpassword, 0, 2) ); # username 'quantum' has id of 18 in the DB my $dbh = &Utils::DB::connect(%AR::db); $dbh->do("update users set password = '$crypted' where id = 18"); } # Connect to ProAdult my $padb = &Utils::DB::connect( %AR::proadult ); my $site = $padb->selectrow_hashref("select * from Websites where ID = $sid"); if ( $paid ) { my ($id, $pass) = split(/\-/, $paid); if ( $id !~ /^\d+$/ ) { return $m->comp('.error', msg => 'Invalid ProAdult ID', sid => $sid); } $user = $padb->selectrow_hashref("select * from Users where ID = $id"); if ( !$user->{ID} || $pass ne $user->{PASSWORD} || $user->{ACTIVE} != 1 || ($user->{Q_EDT} < time && $user->{EDT} < time) ) { return $m->comp('.error', msg => 'Invalid ProAdult ID', sid => $sid); } if ( $user->{SITE_ID} != $site->{ID} ) { return $m->comp('.error', msg => 'Access is available only to Quantum members who signed up from ' . $site->{NAME}, sid => $sid); } $auth = 1; } $padb->disconnect; } <%def .error> <%args> $msg => 'Strange error' $sid => undef

Error: <% $msg %>

% if ( $epoch ) { Click here to sign up for Amateur Reality % }

<%init> my $epoch = ''; if ( $sid =~ /^\d+$/ ) { my $dbh = &Utils::DB::connect(%AR::db); $epoch = $dbh->selectrow_array("select epoch from models where paid = $sid"); }