'url' => 'http://www.theoverworld.com/echo/',
'type' => 'rebroadcast',
},
+ 'sub_bass_sessions' => {
+ 'name' => 'Sub-Bass Sessions',
+ 'day' => 'tuesday',
+ 'start' => '20',
+ 'len' => '2',
+ 'type' => 'live',
+ },
+ 'sub_bass_sessions_rebroadcast' => {
+ 'name' => 'Sub-Bass Sessions',
+ 'day' => 'wednesday',
+ 'start' => '13',
+ 'len' => '2',
+ 'type' => 'rebroadcast',
+ },
);
@times = qw( midnight 1am 2am 3am 4am 5am 6am 7am 8am 9am 10am 11am noon 1pm
$showstart = 12;
$cgi = new CGI;
-if ( $cgi->param('showstart') =~ /^(\d+)$/ ) {
+if ( defined($cgi->param('showstart'))
+ && $cgi->param('showstart') =~ /^(\d+)$/ ) {
die unless $1 < 24;
$showstart = $1;
}