Redirecting...

#!/usr/bin/perl #CREATED BY cluver@netdepict.com 11/28/01 #Affiliate Program require "conf"; use rcgi; use Mysql; use Time::Local; my $cgi = new rcgi; my %data = $cgi->get_data(); my $dbh = Mysql->connect("localhost", $mysql_db, $mysql_username, $mysql_password); my $thisyear = (localtime)[5] + 1900; my $thismonth = (January, February, March, April, May, June, July, August, September, October, November, December) [(localtime)[4]]; #my $query = "select n from counter"; #my $sth = $dbh->Query($query) || exit; #my @res = $sth->FetchRow(); #if ($res[0] eq "4") { #my $query = "update counter set n='0'"; #my $sth = $dbh->Query($query) || exit; #$cgi->print_header(); #print< # #Redirecting... # # # # # #STOP #} else { #my $query = "update counter set n=n+1"; #my $sth = $dbh->Query($query) || exit; #} if ($ENV{'HTTP_REFERER'} eq "" && exists($data{'source'})) { $ENV{'HTTP_REFERER'} ="$data{'source'}"; } if ($ENV{'HTTP_REFERER'} eq "") { $cgi->print_header(); &print_header(); &print_index(); &print_footer(); } else { &split_url(); &insert_referer(); &checkif_affiliate(); $cgi->print_header(); &print_header(); &print_index(); &print_footer(); } sub checkif_affiliate() { my $query2 = "select invnum from affiliates where url like '%$url%'"; my $sth2 = $dbh->Query($query2) || exit; my @res = $sth2->FetchRow(); my $num_rows2 = $sth2->NumRows(); if ($num_rows2 > "0") { $cgi->print_cookie_header(name=>"RefererInvNum", value=>"$res[0]$url", expires=>"+2h"); #$cgi->print_cookie_header(name=>"RefererInvNum", value=>"$res[0]$url"); } } sub print_index() { print<

At least 46 million men in the U.S.
desire longer lasting sexual activity.

Deferol™ Climax Control Supplement is now available to maximize your control.

Why Deferol™

Provides greater control of climax.
Increases confidence in sexual ability.
Makes sex more satisfying and lasts longer.
Reduces frustration and disappointment.
Improves sex life dramatically.

Deferol™ Climax Control Supplement is an all-natural, clinically proven supplement that allows men greater climax control. Taken on a daily basis and before sexual activity, Deferol™ lowers anxiety, reduces ejaculatory urge and increases climax control.

Early Ejaculation and Lack of Ejaculatory Control can sometimes be caused by both physical and/or psychological factors. Unfortunately there are very few effective options available. Additionally, most men tend to avoid or deny the situation and don't seek help or even explore other potential options.

Deferol for Men is available from these online retailers:

STOP } sub split_url() { $_ = "$ENV{'HTTP_REFERER'}"; s#^http://##; #s/^(.*)\.//; #s/^www.//; s/^(.*?\.)//; #s/(.+)\/.+/$1/; s/(\/.*)//; #s#/##; $url = $_; } sub insert_referer() { my $thismonth = (January, February, March, April, May, June, July, August, September, October, November, December) [(localtime)[4]]; my $thisyear = (localtime)[5] + 1900; my $month = (localtime)[4]; my $query = "insert into referer (url,year,month) values ('$ENV{'HTTP_REFERER'}','$thisyear','$thismonth')"; my $sth = $dbh->Query($query) || exit; } sub error_exit() { my $error_msg = shift; print "Program Error

\n"; print " Error: $error_msg

Please contact the "; print "Web Administrator "; print "if you continue to have trouble.

"; print ""; &print_footer(); } sub print_header() { open(CGIHEADER, "$html_path/CGIheader") || ($noheader = 1); if ($noheader) { print "\n"; } else { while () { print "$_"; } close(CGIHEADER); } } sub print_header_redirect() { open(CGIHEADERREDIRECT, "$html_path/CGIheader-redirect") || ($noheader = 1); if ($noheader) { print "\n"; } else { while () { print "$_"; } close(CGIHEADERREDIRECT); } } sub print_footer() { open(CGIFOOTER, "$html_path/CGIfooter") || ($nofooter = 1); if ($nofooter) { print "\n"; } else { while () { print "$_"; } close(CGIFOOTER); } }