Coffee Club - Rule #1: Do not talk about coffee club
#!/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:




Café Review Archive

June 30, 2000 Timothy's World News Cafe
July 07, 2000 Coffee,Tea,Or...Me
July 14, 2000 Tango Palace Coffee Company
July 21, 2000 The Roastery Coffee House
July 28, 2000 William's Coffee Pub
August 4, 2000 Death By Chocolate
August 11, 2000 Cafe Demetré
August 18, 2000 Lattieri
August 25, 2000 Cafe 521
Sept. 8, 2000 The Plantation
Sept. 22, 2000 Jet Fuel
Oct. 6, 2000 Carlan's Gormet Market & Coffee House
Oct. 20, 2000 Gypsy Co-Op
Nov. 3, 2000 Coffee Connoisseur
Nov. 17, 2000 Joy Of Java
Dec. 1, 2000 Cafe 395
Dec. 15, 2000 Second Cup
Dec. 22, 2000 Special Holiday Review
Dec. 29, 2000 P.A.M.'s Coffee & Tea Company
Jan. 12, 2001 97 Bistro & Coffee Bar
Jan. 26, 2001 Java Joe's
Feb. 9, 2001 Insomnia
Feb. 23, 2001 Alternative Grounds
Mar. 9, 2001 Schiling's Exclusive Pastries
Mar. 23, 2001 Happy Coffee
April 6, 2001 Ritter's Coffee House
April 20, 2001 Tournayre Patisserie
May 4, 2001 Cafe Frappe
May 18, 2001 Daily Grind
June 1, 2001 Mocha Mocha
June 22, 2001 Lost City
July 13, 2001 Grabba Jabba
July 27, 2001 Just Desserts
Aug 10, 2001 Sedona Janes
Aug 24, 2001 Mixed Delights
Sept 7, 2001 Remarkable Bean
Sept 21, 2001 Best Coffee
Oct 5, 2001 The Last Drop
Oct 19, 2001 Oh So Delicious Desserts (Ottawa)