140 lines
4.9 KiB
Perl
140 lines
4.9 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Tool to clean up marshal spreadsheet data, 2017
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
|
|
my $clubs = {
|
|
'AAC' => {
|
|
},
|
|
'Eerste Rivier' => {
|
|
'captain' => 'Raphael Manual',
|
|
'captain_ph' => '084-494-4525',
|
|
'email' => 'raphaeljm1@gmail.com',
|
|
|
|
},
|
|
'Spartan Harriers' => {
|
|
'captain' => 'Gavin Craig',
|
|
'captain_ph' => '076-569-6898',
|
|
'email' => 'gavinc@ctpflexibles.co.za',
|
|
},
|
|
'Nantes' => {
|
|
'captain' => 'Caroline Peters',
|
|
'captain_ph' => '073-029-7879',
|
|
'email' => 'carolinepeters1964@gmail.com',
|
|
},
|
|
'Midas Spartans' => {
|
|
'captain' => 'Michael Schouw',
|
|
'captain_ph' => '083-635-1346',
|
|
'email' => 'schouw.za@gmail.com',
|
|
|
|
},
|
|
'Edgemead Runners' => {
|
|
'captain' => 'Stephan Roux ',
|
|
'captain_ph' => '082-433-0230',
|
|
'email' => 'raceconvener@edgemeaddrunners.org.za',
|
|
},
|
|
};
|
|
|
|
my @marshals;
|
|
|
|
sub assign_club {
|
|
my $position = shift;
|
|
my $club = shift;
|
|
$marshals[$position]->{'club'} = $club;
|
|
foreach my $key ( keys %{ $clubs->{$club} } ) {
|
|
$marshals[$position]->{$key} = $clubs->{$club}->{$key};
|
|
}
|
|
}
|
|
|
|
for ( my $position = 0; $position < 324; $position++ ) {
|
|
if ($position > 0 && $position <= 10) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = "William Ruijsch van Dugteren";
|
|
$marshals[$position]->{'captain_ph'} = '';
|
|
} elsif ($position > 10 && $position <= 35 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = "Darwees Gesant";
|
|
} elsif ($position > 35 && $position <= 54 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = "Faried Rinquest";
|
|
} elsif ($position > 54 && $position <= 69 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = '';
|
|
} elsif ($position > 69 && $position <= 80 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = 'Colin Sedeman';
|
|
} elsif ($position > 80 && $position <= 126 ) {
|
|
assign_club( $position, 'Eerste Rivier' );
|
|
} elsif ($position > 126 && $position <= 127 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 127 && $position <= 131 ) {
|
|
assign_club( $position, 'Eerste Rivier' );
|
|
} elsif ($position > 131 && $position <= 132 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 132 && $position <= 153 ) {
|
|
assign_club( $position, 'Nantes' );
|
|
} elsif ($position > 153 && $position <= 199 ) {
|
|
assign_club( $position, 'Midas Spartans' );
|
|
} elsif ($position > 199 && $position <= 238 ) {
|
|
assign_club( $position, 'Nantes' );
|
|
} elsif ($position > 238 && $position <= 250 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 250 && $position <= 256 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 256 && $position <= 257 ) {
|
|
assign_club( $position, 'Edgemead Runners' );
|
|
} elsif ($position > 257 && $position <= 261 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 261 && $position <= 264 ) {
|
|
assign_club( $position, 'Edgemead Runners' );
|
|
} elsif ($position > 264 && $position <= 274 ) {
|
|
assign_club( $position, 'Spartan Harriers' );
|
|
} elsif ($position > 274 && $position <= 281 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = 'Keith Bake';
|
|
} elsif ($position > 281 && $position <= 297 ) {
|
|
assign_club( $position, 'Edgemead Runners' );
|
|
} elsif ($position > 297 && $position <= 301 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = 'Colin Sedeman';
|
|
} elsif ($position > 301 && $position <= 313 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = 'Keith Bake';
|
|
} elsif ($position > 313 && $position <= 323 ) {
|
|
assign_club( $position, 'AAC' );
|
|
$marshals[$position]->{'captain'} = 'Colin Sedeman';
|
|
}
|
|
}
|
|
|
|
=cut
|
|
AAC : Positions 1 to 10 Start - William Ruijsch van Dugteren
|
|
AAC : Positions 11 to 35 Darawees Gasant
|
|
AAC : positions 36 to 54 Faried Rinquest
|
|
AAC : Positions 55 to 69 may be John Damata
|
|
AAC : Positions 70 to 80, 298 to 301 and 314 to 323 - Collin Sedeman
|
|
AAC: Positions 275 to 281, and 302 to 313 - Keith Bake
|
|
|
|
Eerste Rivier : Positions 81 to 126 and 128 to 131 (50 marshals ) - Rapheal Manual 084 494 4525 raphaeljm1@gmail.com
|
|
Nantes : Positions 133 to 153 and 200 to 238 (60 marshals ) - Caroline Peters 073 029 7879 carolinepeters1964@gmail.com
|
|
Midas Spartans : Positions 154 to 199 (47 marshals ) - Michael Schouw 083 635 1346 schouw.za*gmail.com
|
|
Spartan Harriers : Positions 239 to 250, 132 x 2, 127, 251 to 256, 258 to 261, 265 to 274 ( 35 marshals ) - Gavin Craig 076 569 6898 gavinc@ctpflexibles.co.za
|
|
Edgemead Runners : Positions 257, 262 to 265 and 282 to 297 ( 20 marshals ) - Stephan Roux 082 433 0230 raceconvener@edgemeaddrunners.org.za
|
|
=cut
|
|
|
|
#warn Dumper(@marshals);
|
|
|
|
print "CASE\n";
|
|
foreach (1..$#marshals) {
|
|
my $data = $marshals[$_]->{'email'};
|
|
print qq(
|
|
WHEN "position" = $_
|
|
THEN '$data'
|
|
) if $data;
|
|
}
|
|
print "END\n";
|