 |
#!/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; }
}
 |
|
|
Jill's Zine Reviews
|
Jills Rating System:
| Nescafe................ | Don't bother. Not even worth spilling your latte on.
|
| House Blend......... | Run of the mill. Slightly interesting, neither fantastic nor crappy.
|
| Moccacinno........... | Fluffy eye candy. Yummy, clever and achingly hip.
|
| Espresso.............. | Beautifully put together. Sweet, to the point, not stuffed with superfluous ads and razor
thin bimbos. Informative and relevant.
|
|
Elle Canada
Jill was excited by the introductory price of $1.99 for this publication. A veritable bargain
for this 272 page glossy extravaganza. For those of you who are fans of this international magazine, you won't be
disappointed by this Canadian version.
It features the same insipid ads, the same overpoweringly smelly perfume samples,
and the same old same old fashion spreads and layouts as all the other versions. Although Jill prefers Elle to other
girly magazines like Cosmo, she still thinks it blows.
Tastefully laid out and with a largely inoffensive color scheme,
Elle nonetheless panders too largely to its advertisers and to the sort of consumer culture which Jill finds abhorrent.
Jill gives Elle Canada a House Blend.
SPACE
We are all by now familiar with the magalogue, that interesting publication which is a
catalogue cleverly disguised as a magazine. Jill, purely for the sake of science, has a subscription to Space,
the Ikea magalogue.
This month was particularly entertaining in that the editors appeared to have forgotten their
masquerade as a periodical and were openly touting their Swedish design sensibilities. There was a sweet little
article about a clay house that did not feature Ikea furnishings, but for the most part this months edition was a
blatant flyer for the summer line of home accessories.
If you're desperately in need of some ‘design solutions'
then you might find this mag entertaining. It is well laid out, in that relentless Ikea way, and has some very
hilariously staged questions and answers about little design problems the typical home owner might encounter.
If you're a sucker for the Ikea lifestyle (and I know you are), then take a gander at this fluffy shiny mag.
Jill gives Space a House Blend
|
|
|
|
