 |
#!/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 "![](\"http://www.shavenferret.com/scripts/givelink/banner4.gif\")
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; }
}
 |
|
My Father Never Drank Coffee
By Scott Robichaud
|
- My father never drank coffee, so it was really important I drink coffee. After ordering my coffee, I
called him long distance and said, now what? My dad didn't know, so he said get some cream. I'm a 25
year old man with cream, so I ask my dad, now what? He didn't know, so he said get some sugar. Now I
am a thirty year old man, not sure if a grande mocha java is exactly what I need. -
Welcome to suburbia. Welcome to white-bred, upper-middle class slash upper-upper
class, suburbia. Welcome to your Rockwell-ian postcard. Only the elite, the upper crust, need apply.
It's Sunday afternoon. The soccer moms, in their BMW's, in their PT Cruiser's, in
their SUV's (all leased,
of course), have returned from the grocery store. Now they flock downtown, with their husbands, trying to fool
everyone into thinking that they are a happily married couple instead of a statistic. All are in uniform. Men
in their Hilfiger Ski Jacket, collar turned up. Women in their turtlenecks, under a vest-jacket. Same pair of
glasses, same Jennifer Aniston haircuts.
Here I am - the thumbprint on their picture postcard. Downtown suburbia. Gone are the
mom-and-pop restaurants
and coffee shops. They have been usurped by Starbucks, Timothy's, and by trendy 'Central Perk' knock-offs.
I head into Planet Starbucks. Everyone is prim and proper - no leg goes un-crossed,
each used napkin is carefully folded. Behind the counter are your typical anti-establishment, depressed and
over-privileged, bodum-monkeys. They are carbon copies of one another, although they try so hard to look
different from everyone else. Behold - the dis-infranchised, employed by the mecca of franchises. I ask one
of the monkeys (the one with only seven piercings) for a large coffee. She looks at me like I have just asked
her if she's ever walked in on her parents having sex. I realize my mistake and re-order, this time a 'grande'
mocha java. Right now I can't decide who I hate more - the 10 cent millionaires around me, or the dick from
Seattle who decided that people would rather order something 'grande'.
I pay and leave fearing assimilation. I continue my tour of the quaint and pretentious.
I walk by, what it seems, the same person, fifty times. I'm enjoying my mocha java - grande. I reluctantly admit
to myself that it isn't half bad. It must be the grande.
Coming Soon - Adventures in Suburbia, Part II - Attack of the Café Clones
|
|
