#!/usr/bin/perl

##
# this is a very simple banner rotater.. 
#So simple you must change the code to add banners.. 
# If you can't read it and change the code, then don't use it.
## Dr.D at Coastlandtech.com 
###################### Uses Iframes #######
#  <iframe name="iframe" src="/cgi-bin/banner.cgi"  frameborder="0" >


## CHange the next two lines
$maxnumber=5;
$log="/home/site2/www/cgi-bin/next-banner-number.txt";


open (FILE,$log);
$counter=<FILE>;
close(FILE);
$counter++;

if ($counter > $maxnumber) { $counter = 0; }


open (WRITE,">$log");
print WRITE "$counter";
close(WRITE);


print "Content-type: text/html\n\n";

#### Change as needed..
if ($counter=="1") {
	$code = "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}

if ($counter=="2") {
	$code = "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}
if ($counter=="3") {
	$code = "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}
if ($counter=="4") {
	$code = "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}
if ($counter=="5") {
	$code = "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}
if ($counter="6") {
	$code == "<a href=\"http://coastlandtech.com\"><img src=\"imagename.jpg\"></a>";
	}

print("$code");

1;