Harvest Anaheim Webcast 2001

#!/usr/bin/perl -wT # # player.cgi use strict; use CGI; my $q = new CGI; my $bw = $q->param('bw') || "high"; my $start = $q->param('start'); # If there's a start value, go to the right file my $file; my $ext; # Objective: to link right file my $player = $q->param('player'); if ($player eq "wm") { $ext = "asx"; } else { $ext = "rpm"; } #print "Content-type: text/html\n\n"; #print "bw: $bw
player: $player
ext: $ext
"; if ( ($start eq "pre") || ($start eq "pax") || ($start eq "start") || ($start eq "switch") || ($start eq "offer") || ($start eq "intro") || ($start eq "greg") || ($start eq "invit") || ($start eq "close") ) { $file = $player . "_" . $bw . "_" . $start . "." . $ext ; } else { $file = $player . "_" . $bw . "_start." . $ext ; } print < Harvest Anaheim Webcast 2001

TOP if ($player eq "wm") { print <"; } else { print " WIDTH=\"320\" HEIGHT=\"287\">"; } print <

THEEND } elsif ($player eq "rm") { if ($bw eq "high") { print <
REAL } else { print <
REAL } } else { print "No Player Selected"; } print <

BOTTOM