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




P.A.M.'S COFFEE & TEA COMPANY
541 Danforth Ave.


    Coffee with character is the motto of this little café, and indeed, it is a rung above the regular donut shop fare. Delicious house blends, a wide range of beans and loose teas for sale, this company could forseeably give the bigger franchises a run for their money.

    There's a little bit of coziness lacking in their decor, however, that places like Timothy's and Second Cup seem to have a handle on. Although P.A.M.'S does have couches and comfy armchairs, there's something so very unfeng shui about their arrangement of furniture.

    Perhaps it's the ridiculously tiny tall tables that accompany the sofas, upon which one is expected to precariously balance one's very hot coffee without knocking over the spindly legged affair and scalding the hell out of oneself. Or perhaps that's only a problem that Jill seems to have.

Whatever the dealio, P.A.M.'S is a pleasant enough place to while away a wintry afternoon.


Cake Review




Truffle Royale. Like an edible jeweled crown dissolving on your tongue. Creamy chocolatey mousse goodness. White chocolate shavings dot the crust and melt in your mouth. It's a sophisticated dinner party in your mouth. Yummilacious.



Was The Coffee Any Good Jack?


Coffee Selection:

Palma (House Blend): Hmmm. Earthy and sour. Now i hear tell that sour usually means it aint the best bean. Beats me. I did find it drinkable, even though it was a bit stronger blend then I like.