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

Best Coffee
2377 Queen St. East

    Located at the very end of the Beaches, Best Coffee might not be the best café, but it's pretty darn fine. Sparsely furnished, with high ceilings and a decorative fireplace, dark ceramic flooring Best Coffee is tidy and inviting.

    Best Coffee boasts a small patio, and is a welcome respite if you happened to have braved the horrors of the remarkably filthy Remarkable Bean café which is directly across the street.

    We were intrigued by the variety of coffee offered, including a small selection of organic blends. The dessert selection was small, diverse, and looked both yummy and fresh.

    As a bonus, on that very hot day that we visited this café, it was chilly good inside. An industrial size air conditioner perched atop the front entrance made Best Coffee a very comfortable environment. That and the tasty coffee left us feeling very refreshed, and ready to face the oppressive heat of the Toronto streets.


Jill's Sweet Tooth

Key Lime Tart

    For a $1.50, this looked like a sweet deal, but in the end, was nearly inedible. The crust was some sort of ginger snappish flavor, which contradicted the sugary delicacy of the lime.






Strawberry Cheesecake

    This was a tiny little morsel of fabulousness. The most perfectly delicate cheesecake we have encountered for a long time, with a subtle blend of strawberry goodness and cheesy sweetness. Yummania.




Was The Coffee Any Good Jack?


Coffee Selection:

Organic Rainforest:Jill found it a bit bland, but yummy. Jack liked it, but wondered if the word 'organic' made coffee taste better.