Subversion Repositories VORC

Rev

Rev 147 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 147 Rev 180
Line 93... Line 93...
93 
	$crew{$tg->{role}} = $tg->{derby_name};
 93 
	$crew{$tg->{role}} = $tg->{derby_name};
94 
}
 94 
}
Line 95... Line 95...
95 
 
 95 
 
Line 96... Line 96...
96 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
 96 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
97 
 
 97 
 
98 
my $P1 = "PLT-1";
 98 
my $P1 = "PLT/HNSO";
99 
my $P2 = "PLT-2";
 99 
my $P2 = "PLT-2";
100 
my $PH = "PLT";
 100 
my $PH = "PLT/HNSO";
101 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
 101 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
102 
	$P1 = 'PLT/H';
 102 
	$P1 = 'PLT/HNSO';
103 
	$P2 = 'PLT';
 103 
	$P2 = 'PLT';
104 
	$PH = $P1;
 104 
	$PH = $P1;
105 
}
 105 
}
Line 128... Line 128...
128 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
 128 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
129 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
 129 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
130 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
 130 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
131 
BTgame
 131 
BTgame
Line -... Line 132...
- 
 
 132
- 
 
 133 
	} elsif ($g->{gtype} =~ /^usars/i) {
- 
 
 134 
	  print<<usars;
- 
 
 135 
<table>
- 
 
 136 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
- 
 
 137 
	<tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
- 
 
 138 
	<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
- 
 
 139 
	<tr><td colspan=5>&nbsp;</td></tr>
- 
 
 140 
	<tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-1'}</td></tr>
- 
 
 141 
	<tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-2'}</td></tr>
- 
 
 142 
	<tr><td>ASR:</td><td>$crew{'ASR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
- 
 
 143 
	<tr><td>ASR:</td><td>$crew{'ASR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
- 
 
 144 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PW:</td><td>$crew{'PW'}</td></tr>
- 
 
 145 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
- 
 
 146 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
- 
 
 147 
	<tr><td>OPR:</td><td>$crew{'OPR-4'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-1'}</td></tr>
- 
 
 148 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-2'}</td></tr>
- 
 
 149 
	<tr><td>JT:</td><td>$crew{'JT'}</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
- 
 
 150 
</table><br><br><br><br><br><br><br><br><br><br><br>
- 
 
 151 
usars
132
152 
 
133 
	} else {
 153 
	} else {
134 
  	print<<game;
 154 
  	print<<game;
135 
<table>
 155 
<table>
136 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
 156 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
Line 143... Line 163...
143 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
 163 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
144 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
 164 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
145 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
 165 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
146 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
 166 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
147 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
 167 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
148 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
 168 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
149 
</table><br>
 169 
</table><br>
150 
game
 170 
game
151 
  }
 171 
  }
152 
} else {
 172 
} else {
153 
	print "<table>\n<tr><td colspan=5>There doesn't seem to be a game on this track right now.</td></tr></table><br>\n";
 173 
	print "<table>\n<tr><td colspan=5>There doesn't seem to be a game on this track right now.</td></tr></table><br>\n";
Line 184... Line 204...
184 
	$crew{$tg->{role}} = $tg->{derby_name};
204 
	$crew{$tg->{role}} = $tg->{derby_name};
185 
}
 205 
}
Line 186... Line 206...
186
206
Line 187... Line 207...
187 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
 207 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
188 
 
 208 
 
189 
my $P1 = "PLT-1";
 209 
my $P1 = "PLT/HNSO";
190 
my $P2 = "PLT-2";
 210 
my $P2 = "PLT-2";
191 
my $PH = "PLT";
 211 
my $PH = "PLT/HNSO";
192 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
 212 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
193 
	$P1 = 'PLT/H';
 213 
	$P1 = 'PLT/HNSO';
194 
	$P2 = 'PLT';
 214 
	$P2 = 'PLT';
195 
	$PH = $P1;
 215 
	$PH = $P1;
196 
}
 216 
}
Line 219... Line 239...
219 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
 239 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
220 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
 240 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
221 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
 241 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
222 
BTgame
 242 
BTgame
Line -... Line 243...
- 
 
 243
- 
 
 244 
	} elsif ($g->{gtype} =~ /^usars/i) {
- 
 
 245 
	  print<<usars;
- 
 
 246 
<table>
- 
 
 247 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
- 
 
 248 
	<tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
- 
 
 249 
	<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
- 
 
 250 
	<tr><td colspan=5>&nbsp;</td></tr>
- 
 
 251 
	<tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-1'}</td></tr>
- 
 
 252 
	<tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-2'}</td></tr>
- 
 
 253 
	<tr><td>ASR:</td><td>$crew{'ASR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
- 
 
 254 
	<tr><td>ASR:</td><td>$crew{'ASR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
- 
 
 255 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PW:</td><td>$crew{'PW'}</td></tr>
- 
 
 256 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
- 
 
 257 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
- 
 
 258 
	<tr><td>OPR:</td><td>$crew{'OPR-4'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-1'}</td></tr>
- 
 
 259 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-2'}</td></tr>
- 
 
 260 
	<tr><td>JT:</td><td>$crew{'JT'}</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
- 
 
 261 
</table><br><br><br><br><br><br><br><br><br><br><br>
- 
 
 262 
usars
223
263 
 
224 
	} else {
 264 
	} else {
225 
  	print<<game;
 265 
  	print<<game;
226 
<table>
 266 
<table>
227 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
 267 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
Line 234... Line 274...
234 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
 274 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
235 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
 275 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
236 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
 276 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
237 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
 277 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
238 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
 278 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
239 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
 279 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
240 
</table><br>
 280 
</table><br>
241 
game
 281 
game
242 
  }
 282 
  }
243 
} else {
 283 
} else {
244 
	print "<table>\n<tr><td colspan=5>There don't seem to be any more games on this track today.</td></tr></table><br>\n";
 284 
	print "<table>\n<tr><td colspan=5>There don't seem to be any more games on this track today.</td></tr></table><br>\n";