"US Speed Way",
'B' => "Suzuka",
'C' => "US Dirt Track",
'D' => "Rokko Hill Climb",
'E' => "Rokko Downhill",
'F' => "E. Tokyo - Good Weather",
'G' => "E. Tokyo - Good Weather - Reverse",
'H' => "W. Tokyo",
'I' => "W. Tokyo - Reverse",
'J' => "E. Tokyo - Rain Weather",
'K' => "E. Tokyo - Rain Weather - Reverse",
'L' => "Osaka Hi. Way",
'M' => "Osaka Hi. Way - Reverse",
'N' => "Akagi Hill Climb",
'O' => "Akagi Downhill",
'P' => "Tamiya",
'Q' => "Tamiya - Reverse",
'R' => "Event"
);
## Open the file, get a handle on it. Error handling could
## be done more gracefully as the DIE will perk to the client.
no strict;
sysopen(FILE, $path, O_RDWR)
or die "sysopen $path: $!";
## iterate through the contents of the data file.
## Build a hash of the data.
my %data;
while( ) {
## Preliminary Check of data before progressing..
## If we find a line that is not "useful" data, we drop it.
next if $_ =~ /^#/g or $_ =~ /^;/g; # skip comment lines
next if $_ =~ /^/g; # Skip HTML or End HTML Comments
chomp; # strip newlines
## Extract the values from the line.
my $line = $_;
my( $track, $fname, $group, $time, $grbg2 ) = split( /,/ , $line );
$track =~ s/"//g;
if ( $track ) {
$fname =~s/\"//g;
$group =~s/\"//g;
$time =~s/\"//g;
# Deal with a Tie situation.
if ( $data{$track}{$time} ) { # In other words.. the Track and Time read from the file... has already been assigned to the array.. i.e. A Tie.
$data{$track}{$time} = { 'name' => $data{$track}{$time}{'name'} . "
" . $fname, 'group' => $data{$track}{$time}{'group'} . "
" . $group };
} else {
$data{$track}{$time} = { 'name' => $fname, 'group' => $group };
}
}
}
close(FILE);
?>
\n";
print " \t | | \n";
print "\n";
}
$pagedata =<
| TRACK : $trackname |
| Place |
Time |
Player |
Team |
EOPD
$count = 0; ## Count the number of players
## For each player in the current track.
foreach $time ( sort keys %{$data{$track}} ) {
$count++;
$listclass = "listfont";
## Manage the class setting for the list.. specifically, change it for winners.
if ( $count <= 3 ) { $listclass = "top3listfont"; }
#print " ==> $time -- $data{$track}{$time}{'name'} -- $data{$track}{$time}{'group'}
\n";
my $parsedtime = parseTime($time);
$pagedata .=<
EOP
$pagedata .= "\t\t| ".renderPlace($count)." | \n";
$pagedata .=<$parsedtime
$data{$track}{$time}{'name'} |
$data{$track}{$time}{'group'} |
EOP
}
## Print the accumulated html.
print $pagedata;
}
$bottom =<
|
![](\"images/$cnt.gif\")
";
} else {
return $cnt;
}
}
# Canonical Track name lookup.. Just a wrapper for the hash
sub detTrackName {
my $trackCode = shift;
if ( $trackCode ){
return $codes{$trackCode};
}
return "Error";
}
## Clean up the timestamp, render it in a readable fashion
### i.e. minutes:seconds:millisecs or 01:24:247
sub parseTime {
my $time = shift;
my $ptime = "";
my $ms = substr($time, 4, 3);
my $sec = substr($time, 2, 2);
my $min = substr($time, 0, 2);
$ptime = $min.":".$sec.":".$ms;
return $ptime;
}
?>