";
my $END_CREDIT_LINK = "www.joelee.co.uk";
my $END_CREDIT_AUTHOR = "";
my $AVAILABLE_BACK_COLOR="#eeddff";
my $FORM_BACK_COLOR=="white";
my $FORM_BORDER_COLOR = "blue";
##########################################################
#
# variables
#
my $NumberOfLinesToPrint = 200;
my @MaleAgeCount = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
my @FemaleAgeCount = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
my @BaseFileContents;
my ($HisPace,$DistanceMiles,$DistanceKm,$HisName,$HisClub,$HisTime,$HisAge,$HisSex,$HisCode,$AgeGroup,$AgeBand);
my ($PosInRace,$PosInSelectedRange,$PosInAgeGroup,$PosInSex,$NumberInBand);
my ($PosInMaleUnder40s,$PosInFemaleUnder35s,$TotalMales,$TotalFemales);
my ($ResPerPage,$FromAge,$ToAge,$FirstResult,$LastResult);
my ($Sex,$PrevButton,$NextButton,$PageNumber);
my ($distance,$units);
my ($Event);
##########################################################
#
# print st or nd or th or rd according to the parameter
#
sub PrintTh
{
my ($ThisNumber)=@_;
my $LastDigit = $ThisNumber % 10 ;
my $Teens = $ThisNumber % 100 ;
if ($Teens == 11 || $Teens == 12 || $Teens == 13)
{
print "th";
}
elsif ($LastDigit == 1)
{
print "st";
}
elsif ($LastDigit == 2)
{
print "nd";
}
elsif ($LastDigit == 3)
{
print "rd";
}
else
{
print "th";
}
}
##########################################################
#
# print page header
#
sub printHeader
{
print "content-type: text/html\n\n";
print <<"ENDHEADER";
| pos in selected range | pos in race | pos in age group | pos in sex | name | club | time | mins/mile | mins/km | ",$PaceMile / 60, $PaceMile % 60;
printf "%dm%02ds",$PaceKm / 60, $PaceKm % 60;
} else
{
print " | "; } } ########################################################## # # send the current line to the user # sub OutputThisLine { # force table cells to contain something.... if (not $HisName) { $HisName=" "; } if (not $HisClub) { $HisClub=" "; } if (not $HisTime) { $HisTime=" "; } if ($HisAge eq 0) # we don't want to print 0 - leave the cell blank instead { $HisAge=" "; } print " |
| $PosInSelectedRange" ; # print race position print " | $PosInRace" ; PrintTh($PosInRace); # print the position in their own 5 year age group print " | $PosInAgeGroup" ; PrintTh($PosInAgeGroup); if ($HisSex eq "M" && $HisAge<40) { print " u/40M"; } elsif ($HisSex ne "M" && $HisAge<35) { print " u/35L"; } else { print " ${HisSex}$AgeBand"; } # print position in that Sex print " | $PosInSex" ; PrintTh($PosInSex); print " $HisSex"; print " | $HisName"; #print " | $HisSex"; #print " | $HisAge"; print " | $HisClub"; print " | $HisTime | "; ShowPace(); print " |
| Select the race to view
ENDAVAILTABLETOP
my @AvailableRaces = | |
| $ThisMonth $ThisYear |
ENDRACEINFO
$LastMonth = $ThisMonth;
$LastYear = $ThisYear;
}
# print "$ThisDay : ";
if ($Selectable ne "Y") # just print the normal link address to the file
{
print <<"ENDLINKPRINT";
$ThisTitle ENDLINKPRINT } else # run the results cgi program and pass the link address into it as a parameter { # the dot before $ThisLocation ensures that we come out of the CGI-LOCAL directory back to the root # since all locations in the index are relative to the root www.joelee.co.uk/ and the CGI runtime # program is in www.joelee.co.uk/cgi-local/ print <<"ENDSELECTPRINT"; $ThisTitle ENDSELECTPRINT } } print " |
| Choose which results to view |
| which sex from age to age |
| How many results per page |
| jump to the end to select further pages |
| Select Page Number |
| ENDOFOPENTABLE for ($i=1;$i<=$NoOfPages;$i++) { print <<"ENDOFPAGEBUTTONS"; ENDOFPAGEBUTTONS } print <<"ENDOFCLOSETABLE"; |
| Men under 40 | |
| Men $BandLowAge to $BandHighAge"; if ($NumberInBand >0) { print " | |
| Ladies under 35 | |
| Ladies $BandLowAge to $BandHighAge"; if ($NumberInBand >0) { print " |