my $location = shift;
print CGI::header(-status=>'303 See other',
- -location=>'http://192.168.1.200/' . $location,
+ -location=>'http://ccbs.sesse.net/' . $location,
-type=>'text/html; charset=utf-8');
}
ccbs::print_see_other('show-tournament.pl?id=' . $tournament);
-# gives the usual 100, 91, 83, 76. 65, 61, ... series
+# gives the usual 100, 90, 81, 73, 60, 55, ... series
sub points_for_place {
my $n = shift;
if ($n <= 10) {
- return 110 - (21/2) * $n + (1/2) * $n * $n;
- } elsif ($n <= 65) {
- return 65 - $n;
+ return 111 - (23/2) * $n + (1/2) * $n * $n;
+ } elsif ($n <= 56) {
+ return 56 - $n;
} else {
return 0;
}