== trafik ==

#!/usr/bin/perl -wT # # $Id: rand_text.pl,v 1.5 2001/11/25 11:39:38 gellyfish Exp $ # # $Log: rand_text.pl,v $ # Revision 1.5 2001/11/25 11:39:38 gellyfish # * add missing use vars qw($DEBUGGING) from most of the files # * sundry other compilation failures # # Revision 1.4 2001/11/13 20:35:14 gellyfish # Added the CGI::Carp workaround # # Revision 1.3 2001/11/13 09:17:37 gellyfish # Added CGI::Carp # # Revision 1.2 2001/11/11 17:55:27 davorg # Small amount of post-import tidying :) # # Revision 1.1.1.1 2001/11/11 16:48:57 davorg # Initial import # use strict; use CGI qw(header); use CGI qw(fatalsToBrowser set_message); use vars qw($DEBUGGING); # Configuration # # $DEBUGGING must be set in a BEGIN block in order to have it be set before # the program is fully compiled. # This should almost certainly be set to 0 when the program is 'live' # BEGIN { $DEBUGGING = 1; } #my $random_file = '/path/to/random.txt'; my $random_file = 'random.txt'; my $delimiter = "%%\n"; # End configuration BEGIN { my $error_message = sub { my ($message ) = @_; print "

It's all gone horribly wrong

"; print $message if $DEBUGGING; }; set_message($error_message); } open(FILE, $random_file) or die "Can't open $random_file: $!\n"; my @phrases; { local $/ = $delimiter; chomp (@phrases = ); } my $phrase = $phrases[rand(@phrases)]; print header(-type => 'text/plain'); print $phrase; close(FILE);
trafik-o-babe pick a babe trafik-o-who

Trafikanter enligt sig själva
Nya(re) Trafik-o-Wiki-Who

trafik-o-faq

TrafikRegler
Ezmlm-kommandon
Mailetikett
Trafik-o-Wiki

trafik-o-logi

Trafik-o-Ludd
Trafik-O-rd
Trafik-o-Hjältar
Trafik-o-Historia
Trafik-o-Poll
Trafik-o-Logo

trafik-o-media

Trafik goes public
Trafik-o-Merge
Trafik-o-Död
ListKlas kåserar
Gitta o Otto i Vision
Trafik-o-Guru
Hallå där...
Sveriges hetaste listor

trafik-o-trip

Aftonbladet sista minuten
DN Sista minuten
Resevaruhuset
Lonely Planet
Bo i London med Tjejringen

trafik-o-koll

Telia driftinfo
Tele2 driftinfo
WPSyd/Melmac driftinfo

trafik-o-news

IDG
Resumé

trafik-o-deg

IT-Bubblor

trafik-o-pop

Empetre
RealAudio

trafik-o-jox

Trafiks dumstrut!
Trafik-o-Jul
Trafik-o-Trams

= = = = =