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

Remarkable Bean
2242 Queen St. East

    The Remarkable Bean is remarkably dirty. Dank, dirty and disgusting. The rustic exterior, with its handmade sign, unfortunately does nothing to betray the rank atmosphere inside. This café looks as though it was flooded up to the rafters years ago and nothing was done to dry it out.

    The furnishings seem rather moldy, there is a visible layer of dirt and dust over all the tables, and the ceilings are grimy and cobwebbed. Sure, it's romantically downtrodden, but it's hard to enjoy the bohemian ambience when flies keep landing on your cake. Located in the Beaches, which is a neighborhood fanatical in it's sense of community, the Remarkable Bean manages to stay open due only to the loyalty of the Beaches denizens.

    There is a couch, located on a small platform at the back of the café, but it's pretty unpleasant to sit on. There is a picnick table straight from the park. There are overpainted wooden chairs, and old checker board tables for plaing chess. There is coffee and there are desserts, but do you want to take the chance of insects breeding in your brownie? I think not.

    The Remarkably Bean would be a great place to go early in the morning when you're hung over or coming down from a substance, because it would frighten your twisted head so badly you'd quite possibly quit the habits you've formed and take up a healthy seven espresso a day habit instead.


Jill's Sweet Tooth

Brownie

    The dessert selection was slim pickin's but we managed to snag this treat. The brownie was so overly sweet that it could have been fudge, but sadly for us, it was not.

    To make matters worse, it was truly difficult to eat, because hovering flies kept landing on it. The brownie was quickly abandoned, which was the wisest move that Jack and Jill had made that day.






Was The Coffee Any Good Jack?


Coffee Selection:

Medium Blend: Maybe it was the atmostmosphere, maybe it was the dirty, but this coffee was below average. It had a sour flavour and obviously had been sitting around to long. Neither Jack nor Jill finished this brew.