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:




Extras Archive

Ikea Trip - Our trip to the Swedish super store, here in Toronto. Do you think it was an easy trip? Do yah!


NewFoundland Remote
    Newfoundland Part 1 - Review from Corner Brook Newfoundland
    Newfoundland Part 2 - Review from Corner Brook Newfoundland
    Newfoundland Part 3 - Review from Corner Brook Newfoundland


Stratford Remote
    Stratford Part 1 - Remote review from Stradford Ontario
    Stratford Part 2 - Remote review from Stradford Ontario
    Stratford Part 3 - Remote review from Stradford Ontario
    Stratford Part 4 - Remote review from Stradford Ontario


New York Trip


- Remote review from New York city
Coffee Yogurt - The Caffiend waxes poetic about flavoured yogurt
Holiday Recipes - Cookies, Brownies and Egg Nog!! Make em now!
Coffee Orgy - Can you say... 'To much of a good thing'
Free Coffee - It came in the mail, and Jack drank it!
Good Vibrations - Reader submission. Just the way we like it.
Coffee Roasting - Pajavagirl buys a coffee roaster
Popcorn Roasting - Popcorn Maker as a coffee roaster
3 Coffee's - Review of Presidents Choice Organic, Jamaican Blue, Davidoff
Danforth Retrospective - A look back at all the cafe's on the Danforth here in Toronto
2 Coffee's - Review of Cubita and Lion Coffee
Donut Shops - A grueling Review of 3 popular donut shops