<% use strict; my $game_no = $Request->QueryString("game_no") || 0; my $season = 35; my $conference = 2; print_header("Box Score"); my $filename = sprintf("box_score_%d_%d_%d.html", $season, $conference, $game_no); 'my $path = "/export/pbadrupal/pba/box_score"; my $path = "/export/pbadrupal/pba/box_score"; print << "END_STYLE"; END_STYLE if (-f "$path/$filename") { open (BS, "$path/$filename"); my $save; while () { if ($_ =~ /\<\/BODY/i) { $save = 0; } chomp ($_); if ($_ =~ /href\=\"http\:\/\/.*\"\>/) { $_ =~ s/href\=\"http\:\/\/.*\"/href="#"/; } if ($_ =~ /border\=1/) { $_ =~ s/border\=1/border=0/; } if ($_ =~ /cellspacing\=0/i) { $_ =~ s/cellspacing\=0/cellspacing=1/i; } if ($_ =~ /\/) { $_ =~ s/^.*\<\/IMG\>//; } if ($_ =~ /\<\/TD\>\<\/TR\>\<\/TBODY\>\<\/TABLE\>\<\/TD\>\<\/TR\>\<\/TBODY\>\<\/TABLE\>\\/) { $_ =~ s/\<\/TD\>\<\/TR\>\<\/TBODY\>\<\/TABLE\>//; } if ($_ =~ /\<\/TD\>\<\/TR\>\<\/TBODY\>\<\/TABLE\>\<\/TD\>\<\/TR\>\<\/TABLE\>\\/) { $_ =~ s/\<\/TD\>\<\/TR\>\<\/TBODY\>\<\/TABLE\>//; } print "$_\n" if ($save); if ($_ =~ /\"; close (BS); } else { my $error; if ($game_no > 0 && $game_no < 150) { $error = qq{

Box Score for Game No. $game_no is not available

}; } else { $error = qq{

Invalid Game No. $game_no. No Box Score available

}; } print $error; } print_footer(); %>