index.cgi

   1 #!/usr/bin/perl -w
   2
   3 $template_file = "/home/ivan/radio/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' => '19',
  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 ( $cgi->param('showstart') =~ /^(\d+)$/ ) {
  95   die unless $1 < 24;
  96   $showstart = $1;
  97 }
  98
  99 @showtimes = @times[$showstart..23];
 100
 101 $template = new Text::Template ( TYPE => 'FILE', SOURCE => $template_file )
 102   or die "Can't create template for $template_file: $Text::Template::ERROR";
 103
 104 my $text = $template->fill_in()
 105   or die "Can't fill in template for $template_file: $Text::Template::ERROR";
 106
 107 print $cgi->header, $text;
 108
 109 # subroutines for the template
 110
 111 sub table {
 112
 113   my $rows = 1 + scalar(@showtimes)*(1/$increment);
 114   #$rows += 10;
 115   my $table = new HTML::Table($rows+20,8+2);
 116 #  $table->setBorder(0);
 117   $table->setCellSpacing('0');
 118   $table->setCellPadding('1');
 119
 120   my $daycol=2;
 121   foreach my $day ( map "${_}day", qw( Sun Mon Tues Wednes Thurs Fri Satur ) ) {
 122     $table->setCell(1, $daycol, "<B>${day}</B>" );
 123     $table->setCellAlign(1, $daycol, 'CENTER');
 124
 125     my @dayshows =
 126       sort { $shows{$a}{'start'} <=> $shows{$b}{'start'} }
 127       grep { lc($shows{$_}{day}) eq lc($day) } keys %shows;
 128     my $pshowrow = 2;
 129     foreach my $show ( @dayshows ) {
 130
 131       my $text = "<B>$shows{$show}{name}</B>";
 132       $text = qq(<A HREF="$shows{$show}{url}">$text</A>)
 133         if exists $shows{$show}{url};
 134       if ( $shows{$show}{type} eq 'upcoming' ) {
 135         $text .= qq(<BR><FONT SIZE="-1">starts $shows{$show}{startdate}</FONT>);
 136         #$text .= '<BR><FONT SIZE="-1">starts&nbsp;May&nbsp;Xth</FONT>';
 137       }
 138       if ( $shows{$show}{type} eq 'live' ) {
 139         $text .= "<BR><B>LIVE</B> ";
 140       }
 141       if ( $shows{$show}{type} eq 'rebroadcast' ) {
 142         #$text .= "<BR><B>rebroadcast</B> ";
 143         $text .= qq(<BR><FONT SIZE="-1">rebroadcast</FONT> );
 144       }
 145       if ( $shows{$show}{type} =~ /^(live|rebroadcast)$/ ) {
 146         my $start = $shows{$show}{start};
 147         my $stext = $times[ $start ];
 148         $stext =~ s/([0-9])([ap]m)/$1:30$2/ if $start != int($start);
 149         my $end = $shows{$show}{start} + $shows{$show}{len};
 150         my $etext = $times[$end];
 151         $etext =~ s/([0-9])([ap]m)/$1:30$2/ if $end != int($end);
 152         #$text .= "<B>$stext-$etext</B>";
 153         $text .= qq(<FONT SIZE="-1">$stext-$etext</FONT>);
 154       }
 155
 156       my $showrow = 2 + (1/$increment) * ( $shows{$show}{start} - $showstart);
 157
 158       if ( $pshowrow < $showrow ) {
 159         #$table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>'. "($showrow/$pshowrow) ".($showrow-$pshowrow));
 160         $table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>');
 161         $table->setCellAlign($pshowrow, $daycol, 'CENTER');
 162         $table->setCellRowSpan( $pshowrow, $daycol, $showrow-$pshowrow );
 163         #$table->setCellRowSpan( $pshowrow, $daycol, 1 );
 164         $table->setCellBGColor( $pshowrow, $daycol, '89201b' );
 165       }
 166       $table->setCell($showrow, $daycol, $text );
 167       $table->setCellAlign($showrow, $daycol, 'CENTER');
 168       $table->setCellBGColor($showrow, $daycol,
 169                              $type2color{$shows{$show}{type}});
 170       my $span = $shows{$show}{len} * (1/$increment);
 171       $table->setCellRowSpan($showrow, $daycol, $span );
 172
 173       $pshowrow=$showrow+$span;
 174     }
 175
 176     if ( $pshowrow < $rows+1 ) {
 177       #$table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>'. "($rows+1/$pshowrow) ".($rows+1-$pshowrow));
 178       $table->setCell($pshowrow, $daycol, '<B>OFF THE AIR</B>');
 179       $table->setCellAlign($pshowrow, $daycol, 'CENTER');
 180       $table->setCellRowSpan( $pshowrow, $daycol, $rows+1-$pshowrow );
 181       #$table->setCellRowSpan( $pshowrow, $daycol, 2 );
 182       $table->setCellBGColor( $pshowrow, $daycol, '89201b' );
 183     }
 184
 185     $daycol++;
 186   }
 187
 188   my $timerow = 2;
 189   foreach my $time ( @showtimes ) {
 190     my $text = $time;
 191     $text = qq(<FONT SIZE="-1">$text</FONT>) if length($text) > 4;
 192     $table->setCell( $timerow, 1, "<B>$text</B>" );
 193     $table->setCellAlign( $timerow, 1, 'CENTER' );
 194     $table->setCellRowSpan( $timerow, 1, 1/$increment );
 195     #$table->setCell( $timerow+1, 1, "<B>$text:30</B>" );
 196 #    $table->setCell( $timerow+1, 1, "&nbsp;" );
 197 #    $table->setCellAlign( $timerow+1, 1, 'CENTER' );
 198     $timerow += 1/$increment;
 199   }
 200
 201   local $^W=0;
 202   my $html = $table->getTable;
 203   $html =~ s/<! spanned cell\)>//g;
 204   return $html;
 205 }
 206
 207