#!/usr/bin/perl
##############################################################################
# Cliff's Banner Rotator Version 3.01 #
# Copyright 1998 Shaven Ferret Productions #
# Created 7/8/98 Last Modified 09/10/01 #
# Available at http://www.shavenferret.com/scripts #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved. #
# #
# This script can be used free of charge so long as you don't change any #
# part of it. By using this script you agree to indemnify me from any #
# liability that might arise from its use. In simple English, if this #
# script somehow makes your computer run amuck and kill the pope, it's not #
# my fault. #
# #
# Redistributing\selling the code for this program without prior written #
# consent is expressly forbidden. #
##############################################################################
require "ad-lib.cgi";
&setup;
open(FILE,"$datadir/main.txt");
@banners = ;
close(FILE);
print "Content-type: text/html\n\n";
srand;
$i = int(rand(250));
if ($i != 64) {
for ($i = $#banners; $i >= 0; $i--) {
($filenum,$weight,$inactive,$hideit,$hidetext,$hideact) = split(/\|/, $banners[$i]);
if ($inactive == 0 && ($hideit == 0 || ($hideit && ($ENV{'DOCUMENT_URI'} =~ /$hidetext/ && $hideact == -1) || ($ENV{'DOCUMENT_URI'} !~ /$hidetext/ && $hideact == 0)))) {
for ($j = 1; $j <= $weight; $j++) { splice(@okbanners,0,0,"$filenum|$i"); }
}
}
$bannernum = int(rand($#okbanners+1));
($filenum,$linenum) = split(/\|/,$okbanners[$bannernum]);
open(FILE,"$datadir/h$filenum.txt");
@lines = ;
close(FILE);
print "$lines[1]";
($trackctr,$java,$dimp,$imp,$dctr,$ctr,$ddate,$lmonth,$lday,$lyear,$conditions,$autoact,$email) = split(/\|/, $lines[0]);
open(FILE,"$datadir/c$filenum.txt");
$temp = ;
close(FILE);
($aimp,$actr) = split(/\|/,$temp);
$aimp++;
open(FILE,">$datadir/c$filenum.txt");
print FILE "$aimp|$actr";
close(FILE);
if ($dimp || $dctr || $ddate) { &checkdel; }
}
# Changing or deleting the following line of this script is illegal.
else { print "
![](\"http://www.shavenferret.com/scripts/givelink/banner4.gif\")