#!/usr/bin/perl my $TDCOLOR = '#f6f6f6'; #============================== use strict; use vars; use CGI qw(:standard); my ($label, $link, $line, $ncount, $ucount, $url); my (@articles); # Direct to what we need to do. $url = param("link"); if ($url) { &display_frames(); } else { &getlink(); } sub getlink { print header(); open(ARTICLES, "toc/rant_articles") || &bail("Something is very, very wrong. $!"); # Get articles for display. while (defined($line = ())) { next unless ($line =~ /^[N|E|U]/); push(@articles, $line); } close ARTICLES; # Get the counts. foreach $line (@articles) { $ncount++ if ($line =~ /^N/); $ucount++ if ($line =~ /^U/); } my @newarts; if ($ncount > 0) { foreach $line (@articles) { next unless ($line =~ /^N/); ($label, $link) = (split(/\#/, $line))[0,1]; push(@newarts, $link); } $link = $newarts[rand(@newarts)]; } else { # Randomize and display an article if there are no NEW # articles. $link = $articles[rand(@articles)]; $link = (split(/\#/, $link))[1]; } $ncount--; # Massage the link. # Fix it so it goes to the right spot, and includes the frames. $link =~ s/\.\.\//\.\//; $link =~ s///ig; # Tables. print '

'; print ''; print ''; print "

'; print 'NEW' if ($label eq "N"); print '

"; print ''; print $link; print ''; print '

'; print ''; if ($ncount > 0) { print '
' . $ncount . " other "; print ''; print 'NEW'; print ''; print ' tidbit'; print "s" if ($ncount > 1); print "."; } if ($ucount > 0) { print '
'; print $ucount; print ''; print ' UPDATED'; print ''; print ' tidbit'; print "s" if ($ucount > 1); print "."; } print '

'; } sub bail { print ''; print shift; print '

Please mail rant with this error and the time.'; print ""; exit; } # Output frames. sub display_frames { print header(); print < Jump into the 21st century and get a browser with frames. EOT exit; }