index.cgi

   1 #!/usr/bin/perl -w
   2
   3 $template_file = "/home/ivan/radio.haze.st/template.html";
   4
   5 use CGI;
   6 use HTML::Table;
   7 use Text::Template;
   8
   9 %type2color = (
  10   'upcoming'    => '999966',
  11   'live'        => 'ffffcc',
  12   'rebroadcast' => 'ffcc99',
  13 );
  14
  15 %shows = (
  16   'high_jinx' => {
  17     'name'  => 'High Jinx',
  18     'day'   => 'sunday',
  19     'start' => '19',
  20     'len'   => '3',
  21     'type'  => 'upcoming',
  22     'startdate' => 'May 6th',
  23   },
  24   'high_jinx_rebroadcast' => {
  25     'name'  => 'High Jinx',
  26     'day'   => 'monday',
  27     'start' => '13',
  28     'len'   => '3',
  29     'type'  => 'upcoming',
  30     'startdate' => 'May 7th',
  31   },
  32   'dub_monday' => {
  33     'name'  => 'Dub Monday',
  34     'day'   => 'monday',
  35     'start' => '19.5',
  36     'len'   => '2',
  37     'url'   => 'http://www.voyager.org/sets',
  38     'type'  => 'live',
  39   },
  40   'dub_monday_rebroadcast' => {
  41     'name'  => 'Dub Monday',
  42     'day'   => 'tuesday',
  43     'start' => '13',
  44     'len'   => '2',
  45     'url'   => 'http://www.voyager.org/sets',
  46     'type'  => 'rebroadcast',
  47   },
  48   'organized_chaos' => {
  49     #'name'  => 'Organized<BR>Chaos',
  50     'name'  => 'Organized Chaos',
  51     'day'   => 'wednesday',
  52     'start' => '20',
  53     'len'   => '3',
  54     'url'   => 'http://www.angelfire.com/rant/burf/oc.html',
  55     'type'  => 'live',
  56   },
  57   'organized_chaos_rebroadcast' => {
  58     #'name'  => 'Organized<BR>Chaos',
  59     'name'  => 'Organized Chaos',
  60     'day'   => 'thursday',
  61     'start' => '13',
  62     'len'   => '3',
  63     'url'   => 'http://www.angelfire.com/rant/burf/oc.html',
  64     'type'  => 'rebroadcast',
  65   },
  66   'echo_communication_system' => {
  67     #'name'  => 'Echo<BR>Communication<BR>System',
  68     #'name'  => 'Echo Communication System',
  69     'name'  => 'Echo Communication System',
  70     'day'   => 'thursday',
  71     'start' => '20',
  72     'len'   => '3',
  73     'url'   => 'http://www.theoverworld.com/echo/',
  74     'type'  => 'live',
  75   },
  76   'echo_communication_system__rebroadcast' => {
  77     #'name'  => 'Echo<BR>Communication<BR>System',
  78     #'name'  => 'Echo Communication System',
  79     'name'  => 'Echo Communication System',
  80     'day'   => 'friday',
  81     'start' => '13',
  82     'len'   => '3',
  83     'url'   => 'http://www.theoverworld.com/echo/',
  84     'type'  => 'rebroadcast',
  85   },
  86 );
  87
  88 @times = qw( midnight 1am 2am 3am 4am 5am 6am 7am 8am 9am 10am 11am noon 1pm
  89              2pm 3pm 4pm 5pm 6pm 7pm 8pm 9pm 10pm 11pm );
  90 $increment = 0.5;
  91 $showstart = 12;
  92
  93 $cgi = new CGI;
  94 if ( defined($cgi->param('showstart'))
  95      && $cgi->param('showstart') =~ /^(\d+)$/ ) {
  96   die unless $1 < 24;
  97   $showstart = $1;
  98 }
  99
 100 @showtimes = @times[$showstart..23];
 101
 102 $template = new Text::Template ( TYPE => 'FILE', SOURCE => $template_file )
 103   or die "Can't create template for $template_file: $Text::Template::ERROR";
 104
 105 my $text = $template->fill_in()
 106   or die "Can't fill in template for $template_file: $Text::Template::ERROR";
 107
 108 print $cgi->header, $text;
 109
 110 # subroutines for the template
 111
 112 sub table {
 113
 114   my $rows = 1 + scalar(@showtimes)*(1/$increment);
 115   #$rows += 10;
 116   my $table = new HTML::Table($rows+20,8+2);
 117 #  $table->setBorder(0);
 118   $table->setCellSpacing('0');
 119   $table->setCellPadding('1');
 120
 121   my $daycol=2;
 122   foreach my $day ( map "${_}day", qw( Sun Mon Tues Wednes Thurs Fri Satur ) ) {
 123     $table->setCell(1, $daycol, "<B>${day}</B>" );
 124     $table->setCellAlign(1, $daycol, 'CENTER');
 125
 126     my @dayshows =
 127       sort { $shows{$a}{'start'} <=> $shows{$b}{'start'} }
 128       grep { lc($shows{$_}{day}) eq lc($day) } keys %shows;
 129     my $pshowrow = 2;
 130     foreach my $show ( @dayshows ) {
 131
 132       my $text = "<B>$shows{$show}{name}</B>";
 133       $text = qq(<A HREF="$shows{$show}{url}">$text</A>)
 134         if exists $shows{$show}{url};
 135       if ( $shows{$show}{type} eq 'upcoming' ) {
 136         $text .= qq(<BR><FONT SIZE="-1">starts $shows{$show}{startdate}</FONT>);
 137         #$text .= '<BR><FONT SIZE="-1">starts&nbsp;May&nbsp;Xth</FONT>';
 138       }
 139       if ( $shows{$show}{type} eq 'live' ) {
 140         $text .= "<BR><B>LIVE</B> ";
 141       }
 142       if ( $shows{$show}{type} eq 'rebroadcast' ) {
 143         #$text .= "<BR><B>rebroadcast</B> ";
 144         $text .= qq(<BR><FONT SIZE="-1">rebroadcast</FONT> );
 145       }
 146       if ( $shows{$show}{type} =~ /^(live|rebroadcast)$/ ) {
 147         my $start = $shows{$show}{start};
 148         my $stext = $times[ $start ];
 149         $stext =~ s/([0-9])([ap]m)/$1:30$2/ if $start != int($start);
 150         my $end = $shows{$show}{start} + $shows{$show}{len};
 151         my $etext = $times[$end];
 152         $etext =~ s/([0-9])([ap]m)/$1:30$2/ if $end != int($end);
 153         #$text .= "<B>$stext-$etext</B>";
 154         $text .= qq(<FONT SIZE="-1">$stext-$etext</FONT>);
 155       }
 156
 157       my $showrow = 2 + (1/$increment) * ( $shows{$show}{start} - $showstart);
 158
 159       if ( $pshowrow < $showrow ) {
 160         #$table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>'. "($showrow/$pshowrow) ".($showrow-$pshowrow));
 161         $table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>');
 162         $table->setCellAlign($pshowrow, $daycol, 'CENTER');
 163         $table->setCellRowSpan( $pshowrow, $daycol, $showrow-$pshowrow );
 164         #$table->setCellRowSpan( $pshowrow, $daycol, 1 );
 165         $table->setCellBGColor( $pshowrow, $daycol, '89201b' );
 166       }
 167       $table->setCell($showrow, $daycol, $text );
 168       $table->setCellAlign($showrow, $daycol, 'CENTER');
 169       $table->setCellBGColor($showrow, $daycol,
 170                              $type2color{$shows{$show}{type}});
 171       my $span = $shows{$show}{len} * (1/$increment);
 172       $table->setCellRowSpan($showrow, $daycol, $span );
 173
 174       $pshowrow=$showrow+$span;
 175     }
 176
 177     if ( $pshowrow < $rows+1 ) {
 178       #$table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>'. "($rows+1/$pshowrow) ".($rows+1-$pshowrow));
 179       $table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>');
 180       $table->setCellAlign($pshowrow, $daycol, 'CENTER');
 181       $table->setCellRowSpan( $pshowrow, $daycol, $rows+1-$pshowrow );
 182       #$table->setCellRowSpan( $pshowrow, $daycol, 2 );
 183       $table->setCellBGColor( $pshowrow, $daycol, '89201b' );
 184     }
 185
 186     $daycol++;
 187   }
 188
 189   my $timerow = 2;
 190   foreach my $time ( @showtimes ) {
 191     my $text = $time;
 192     $text = qq(<FONT SIZE="-1">$text</FONT>) if length($text) > 4;
 193     $table->setCell( $timerow, 1, "<B>$text</B>" );
 194     $table->setCellAlign( $timerow, 1, 'CENTER' );
 195     $table->setCellRowSpan( $timerow, 1, 1/$increment );
 196     #$table->setCell( $timerow+1, 1, "<B>$text:30</B>" );
 197 #    $table->setCell( $timerow+1, 1, "&nbsp;" );
 198 #    $table->setCellAlign( $timerow+1, 1, 'CENTER' );
 199     $timerow += 1/$increment;
 200   }
 201
 202   local $^W=0;
 203   my $html = $table->getTable;
 204   $html =~ s/<! spanned cell\)>//g;
 205   return $html;
 206 }
 207
 208