#!/usr/bin/perl # #Provide a link to a new Dr. D sound clip each time, with a #few "empty boxes" thrown in.. # #Or, if "all" is specified as the query string, display a list of all the #clips. $dbloc='dr_demento.db'; $soundurl='sounds/'; BEGIN { push (@INC,'../include/') } require "cgi-lib.pl"; print &PrintHeader; use Db; Db::load($dbloc); $contents=''; if ($ENV{QUERY_STRING} eq 'all') { print < All Dr. Demento Sound Clips

All Dr. Demento Sound Clips

There's no need to get a box of Dr. Demento cereal, for your free sound clip..

Here are all the sound clips from Dr. Demento that are on this server:

$Db::db{$key}{desc} from $Db::db{$key}{songname} by $Db::db{$key}{artist}"; } else { print "
$Db::db{$key}{songname} by $Db::db{$key}{artist}"; } } print '

'; &PrintFooter; print ''; } else { print < Dr. Demento Cereal

Inside, you find..

eof srand($$ ^ time); #seed random number generator. @dbkeys=keys(%Db::db); $num=int(rand($#dbkeys+1)); $key=$dbkeys[$num]; if ($num > $#dbkeys) { $contents="Nothing in this box. What a rip off!"; } else { if ($Db::db{$key}{desc} ne '') { $contents="$Db::db{$key}{desc} from $Db::db{$key}{songname} by $Db::db{$key}{artist}"; } else { $contents="$Db::db{$key}{songname} by $Db::db{$key}{artist}"; } } print $contents,<Looks like just down the shelf, there's another box of Dr. Demento cereal..

A tipped over cereal box eof &PrintFooter; print ""; }