Coffee Club - Rule #1: Do not talk about coffee club

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

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.

Shift Magazine

Now published on less glossy paper than ever before! Shift magazine is a journal of the digital culture. Each issue features the hottest web designers and digital media artists around the world.

Shift is an up to the minute magazine which reflects the rapidly shifting environment of the web. Hip, funny, well designed, though a little too cool for its own good, Shift is a sweet little bit of eye candy that goes well with a big fat coffee.

Jill gives Shift Magazine a Espresso.

HOW Magazine

The designer's design mag. Each issue follows a theme, such as creativity, or self promotion. Then that issue is packed full of useful tips from graphic designers. The ads are the best part of this publication, Wasau Paper and Adobe products top the list of pretty and useful advertisements in HOW.

Thoughtfully laid out, each article reflects its content in a very effective manner. Friendly and informative, HOW is even readable to those who are not in the graphic design profession.

Jill gives HOW Magazine a Moccacinno.