$\"\"$ $AWAY<\/b><\/font><\/td>

$goal_a<\/b><\/font><\/td> <\/tr> <\/table> <\/div><\/td> <\/tr>

$\"\"$ |; # Build the HTML for the scorer section - AWAY Team ############ $AW_SCORER = ""; # For each scorer in this game AWAY Team foreach $la (keys %sc_away){ $n_len = length "$AW_SCORER"; $c_len = length "$la($sc_away{$la}"; # Verify if we got any space for the next scorer if (($n_len + $c_len) < 40 ) {$AW_SCORER .= "$la($sc_away{$la}) ";} # Else put it on a next line #else {$output .= $AW_SCORER; $AW_SCORER = ""; $AW_SCORER .= "
$\"\"$ $la($sc_away{$la}) ";} else {$output .= $AW_SCORER; $output .= "
$\"\"$ "; $AW_SCORER = ""; $AW_SCORER .= "$la($sc_away{$la}) ";} } # If no goal is scored if ($AW_SCORER eq "") { $AW_SCORER .= "NO SCORING"; } # Apply the HTML scorer section to output $output .= $AW_SCORER; ############# # HTML header for the HOME Team $output .= qq|
$\"\"$ $g_away<\/font> <\/td> <\/tr>

$\"\"$ $HOME<\/b><\/font><\/td>

$goal_h<\/b><\/font><\/td> <\/tr> <\/table> <\/div><\/td> <\/tr>

$\"\"$ |; # Build the HTML for the scorer section - HOME Team ############# $HM_SCORER = ""; # For each scorer in this game HOME Team foreach $la (keys %sc_home){ $n_len = length "$HM_SCORER"; $c_len = length "$la($sc_home{$la}"; # Verify if we got any space for the next scorer if (($n_len + $c_len) < 40 ) {$HM_SCORER .= "$la($sc_home{$la}) ";} # Else put it on a next line #else {$output.= $HM_SCORER; $HM_SCORER = ""; $HM_SCORER .= "
$\"\"$ $la($sc_home{$la}) ";} else {$output.= $HM_SCORER; $output .= "
$\"\"$ "; $HM_SCORER = ""; $HM_SCORER .= "$la($sc_home{$la}) ";} } # If no goal is scored if ($HM_SCORER eq "") { $HM_SCORER .= "NO SCORING"; } # Apply the HTML scorer section to output $output .= $HM_SCORER; ############# # HTML for the boxscore link $output .= qq|
$\"\"$ $g_home<\/font> <\/td> <\/tr>

<\/td>

Boxscore<\/b><\/font><\/A><\/td> <\/tr> <\/table> <\/div><\/td> <\/tr> <\/table>
|; # Verify in which column we put the game if (($y % 2) == 0 ) { $col1 .= $output; } else { $col2 .= $output; } # Delete all data of the game for the next game foreach $ldel (keys %sc_away){ delete($sc_away {$ldel}); } foreach $ldel (keys %sc_home){ delete($sc_home {$ldel}); } $goal_a = 0; $goal_h = 0; $output = ""; } } ##### # NextGame # # Create the next game section. # ##### sub NextGame { # Next game HTML header $suf .= qq|

$\"\"$ NEXT GAMES<\/b><\/font><\/td> <\/tr>

|; # How many games for the next day # Until we have game if (($max_day + $DAYS_SIM) > $last_day) {$max_day = $last_day - $DAYS_SIM;} for ($gameday = $day_number ; $gameday <= ($max_day + $DAYS_SIM) ; $gameday++) { $suf .= qq||; # How many games for the next day $s = scalar(@{$NextGames{$gameday}}); for ($a = 0; $a < $s; $a++) { ($ngm,$aw,$hm) = split(/,/,$NextGames{$gameday}[$a]); # Use the space.gif if we don't find the team logo (NON NHL based league) if (defined($pics{uc($aw)})) {$AW_PIC = $pics{uc($aw)};} else {$AW_PIC = $pics{"NONHL"};} if (defined($pics{uc($hm)})) {$HM_PIC = $pics{uc($hm)};} else {$HM_PIC = $pics{"NONHL"};} # Build the HTML for the next game section $suf .= qq|
Day $gameday
$ngm<\/td> $\"\"$ {$aw}->{'URL'}\">$aw<\/font><\/A><\/td> $team_standing->{$aw}->{'Record'}<\/td> @<\/td> $\"\"$ {$hm}->{'URL'}\">$hm<\/font><\/A><\/td> $team_standing->{$hm}->{'Record'}<\/td> <\/tr>|; } } # Last HTML needed $suf .= qq|<\/table> <\/div><\/td> <\/tr>
<\/td> <\/tr> <\/table>|; } } ##### # FileOut # # Use the template file to create the TodayGames.html file # ##### sub FileOut { open (TEMPLATE,"< Template.html")or die($!); open (NEW_TODAY,"> TodayGames.html")or die($!); while (

Rangers at Vancouver