sub-bass sessions, hehe

[radio.haze.st.git] / index.cgi

diff --git a/index.cgi b/index.cgi
index 959c22d..b3e0a07 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-$template_file = "/home/ivan/radio/template.html";
+$template_file = "/home/ivan/radio.haze.st/template.html";
 
 use CGI;
 use HTML::Table;
@@ -68,7 +68,7 @@ use Text::Template;
     #'name'  => 'Echo Communication System',
     'name'  => 'Echo Communication System',
     'day'   => 'thursday',
-    'start' => '19',
+    'start' => '20',
     'len'   => '3',
     'url'   => 'http://www.theoverworld.com/echo/',
     'type'  => 'live',
@@ -83,6 +83,20 @@ use Text::Template;
     '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
@@ -91,7 +105,8 @@ $increment = 0.5;
 $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;
 }