 |
#!/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; }
}
 |
|
Tchibo Mellow Roast
|
Ah Christmas, a fabulous time of year for free loot. The problem being, that this little boy doesn't usually
get very much. This year though, Santa was kind enough to drop some free coffee in my lap. As gifts go, coffee
is practical, economical and bound to please at least the palette.
The object of our review is Tchibo Mellow Roast. It came in a box along with its stronger
brother, Tchibo Exclusive and a decorative tin in which to store your coffee. We'd recommend skipping
the tin as storage and just displaying it proudly.
The Bitter Bean can tell you all about Tchibo Exclusive in his very own exclusive review found in
our August 18, 2000 issue. I've tried it and have to agree with The Bean, that
Exclusive is pretty darn good for
a pre-ground coffee. It's a straight forward flavour that can not be mistaken for anything but coffee.
With their Mellow Blend, Tchibo try's to broaden its appeal by giving the coffee a milder taste.
First off, the smell is devine. I could not take my nose out of the bag when I first opened it, mostly becuase I had just
run out of coffee and had a real jones-on for a cup. It's ground really fine which could cause flavour problems, cause
with a fine
grind, you get more flavour, but its harder to gage the intensity. A little to much grind and its way to full tasting, leaning
towards muddy.
That said, if'n you measure it right, Tchibo Mellow Roast is a great drinking coffee. It's sweet, but
has plenty of body. There is not a sharp edge to be found, but it's far from dull. It dances on the tongue just like a
good coffee should. It has a round feeling as it spreads on your tongue, and I've learned that to be the sign of a well
balanced coffee with proper coffee characteristic.
I'm not so sure I'd be buying Tchibo as my coffee staple. My preferences still lie with unground
coffee beans. Even cheap beans can rivel the flavour of pre-ground, but then again, some beans are cheap for
a reason and no cost savings can make then drinkable. What Tchibo does is make inoffensive coffees that do not make you want
to retch and its price is on par with the Maxwell House's and Nabob's.
Do yourself a favour. The next time your at your market and are grabbing for that name
brand pre-ground, make a detour
and give Tchibo a try. It may not be the best coffee around, but it's a real alternative to the super market coffee
glut.
|
|
