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




Danforth Retrospective


By Cakey Pants Jack


    It's been a fine year and in that time we have managed to visit just about every cafe on the Danforth, between Pape and Broadview. Oh sure, there are plenty of places with coffee and dessert, but we stuck to those that cater specifically to the lounging crowed. The establishments that pride themselves in either offering a coffee selection, a dessert selection or just cafe ambiance.

As a special treat, we made a map and put together some lists to give you an idea where you should be spending your time and money.

Enjoy!



1. 97 Bistro (#97)
2. Schiling's (#135)
3. Timothy's (#338)
4. The Fresh Pot (#348)
5. Cafe Demetre's (#400)
6. Daily Grind (#565)
7. Joy Of Java (#307)
8. Second Cup (#355)
9. Mocha Mocha (#489)
10.Lost City (#505)
11.Athen's Pastries (#509)
12.Cafe Frappe (#519)
13.Cafe 521 (#521)
14.P.A.M.'s (#541)
Top 5 Most Comfortable

1. Timothy's(couches)
2. P.A.M.'s(couches)
3. 97 Bistro(couch area)
4. Second Cup(padded bench)
5. Joy Of Java(padded bench)
Top 5 Best Coffee's

1. Schiling's Exclusive Pastries
2. 97 Bistro
3. P.A.M.'s
4. Joy Of Java
5. Timothy's
Top 5 Best Desserts

1. Schiling's Exclusive Pastries
2. Athen's Pastries
3. Timothy's
4. Cafe Demetre's
5. Mocha Mocha(butter tart!)
Worst Coffee

It's a Tie!

- Daily Grind
- Fresh Pot
Best Wait Staff

Timothy's
Lost City - for giving me a 16meg Memory card for my digital camera!