 |
#!/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; }
}

|






|
|
|
 |
|
Java Joe's
70 Gerard St. West.
This location at the corner of Bay and Gerrard offers a two story café/deli where
you a sandwich and soup to go with your coffee. The main floor is where you buy your goods, then up a single
bend staircase to the spacious and sparingly decorated second floor.
Jill was taken by the charming little house that is Java Joe's. She was not
impressed, however, that she had to carry her sloshing coffee mug up the twisting staircase to the second
floor where the couches and tables are situated. We thought it would be an idea to have a coffee station
upstairs as well, to avoid any coffee spillage.
The second floor sports very modern tables and chair, plus vinyl covered couches.
Jill was tremendously pleased with the tiny individual couches and felt as though she had her own comfy
little throne , whilst Jack found them a touch claustrophobic.
Beware, though, the nightmarish downtown parking if you plan on driving to Java
Joe's. We spent nearly half an hour of precious coffee time circling the neighborhood looking for a space.
During this time we discovered that no one in their right mind should ever issue Jill a licence, for she
will surely snap in traffic one day and make pea soup out of any driver that gets in her way
Cake Review - Sinful Squares
The dessert selection at Java Joe's was disappointingly sparse, so we made do with a Sinful Square. Now
what the hell is in one of these, we ask. We don't know. We do know that they hurt.
They are sticky, cakey, chocolatey, and very very sweet. They make pain for your mouth, gut and brain.
Not that they aren't tasty. No indeed. But they go just a little too far with the ridiculously sticky
burning sugary thing.
|
Was The Coffee Any Good Jack?
Coffee Selection:
Bay St. Dark: Oh Baby! This is a dark coffee. Heavy roast with an african flavour.
Columbian Supremo: Very good brew. Tastes like Columbian and a lot
like what Jack makes at home. Thumbs way up.
German Chocolate: Jill like flavoured coffee. This one was better then most
cake imitators. It smelled just like chocolate cake, and kinda taste like it to.
|
|
|