#!/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 "

Banner Rotator from Cliff's Perl Scripts

\n"; } sub checkdel { if ($dimp && $aimp >= $imp) { $true = -1; } elsif ($dimp) { $false = -1; } if ($dctr && $actr >= $ctr - 1) { $true = -1; } elsif ($dctr) { $false = -1; } if ($ddate) { &getdate; $lmonth++; if (($year > $lyear) || ($year == $lyear && $mon > $lmonth) || ($year == $lyear && $mon == $lmonth && $mday >= $lday)) { $true = -1; } else { $false = -1; } } if ($true && ($conditions == 0 || $false == 0)) { &deleteone; } }










Powered By
Infinity Monkey
Media



Search our Site:







Pre-Order your copy of Volume 2 right now!



Table Of Contents

Coffee Musings - Coffee Gone To Far
- Costarica Coffee Review
Cake O'The World - Kopi Luwak (Coffee)
- Lilo & Stitch Review
- Rich Guy Magazine
- 5 Things Jill Hates
Adventures in Suburbia - Attack of the Cafe Clones
The Caffiend - Minty Fresh Expresso



Jack Can Be Lazy

    Looks like we is a little late. Your pals Jack and Mr. Pants spent last weekend driving fast through the snows of Peterborough Ontario. We took part in a very legal Navigational Road Rally, which went from 11pm Saturday night to 9am Sunday morning.

    Suffice it to say, old Jack was just not in any shape to throw together a fabulous issue of Coffee Club Online. Instead, sleeping was the main concern. Not to mention I was so slacky, that I didn't even write my articles in time.

    Oh well. This of course does not change the fact that this weeks issue is chalk full of reading goodness with a little bit of poop thrown in. Hope you all like it.



Coffee Resources

How To Brew Coffee
Cleaning Your Pot
Roasting In A Popper



Can You Write?

    We'd like to extend an invitation to anyone for coffee inspired writings. If you are interested, and would like to contribute some of your rantings and ravings, please send it in.

Send to:
jack@ coffeeclubonline.com