git.sesse.net Git - ccbs/blob - html/do-finish-tournament.pl

   1 #! /usr/bin/perl
   2
   3 use ccbs;
   4 use strict;
   5 use warnings;
   6
   7 ccbs::admin_only();
   8
   9 my $dbh = ccbs::db_connect();
  10 my $cgi = new CGI;
  11
  12 $dbh->{AutoCommit} = 0;
  13
  14 my $tournament = $cgi->param('tournament');
  15 my %already_ordered = ();
  16 my $ranking = 1;
  17 my $points = 100;
  18
  19 # Grab all the groups; we order by the simple criteria:
  20 # 1. If player A has gone to group X and player B hasn't, player A is higher.
  21 # 2. If player A has a higher (max sum of songs)/(max feet of songs) (where
  22 #    any chosen song counts for 10) than B, player A is higher.
  23 my $scores = ccbs::db_fetch_all($dbh, 'SELECT player FROM scores NATURAL JOIN tournaments NATURAL JOIN max_single_feetrating WHERE tournament=? GROUP BY round,player ORDER BY round DESC,SUM(score)/SUM(CASE WHEN chosen THEN 10 ELSE feetrating END) DESC',
  24         $tournament);
  25 for my $s (@$scores) {
  26         next if ($already_ordered{$s->{'player'}});
  27         $dbh->do('INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (?,?,?,?)',
  28                         undef, $tournament, $ranking, $s->{'player'}, points_for_place($ranking));
  29         $ranking++;
  30         $already_ordered{$s->{'player'}} = 1;
  31 }
  32
  33 $dbh->commit;
  34 $dbh->disconnect;
  35
  36 ccbs::print_see_other('show-tournament.pl?id=' . $tournament);
  37
  38 # gives the usual 100, 90, 81, 73, 60, 55, ... series
  39 sub points_for_place {
  40         my $n = shift;
  41         if ($n <= 10) {
  42                 return 111 - (23/2) * $n + (1/2) * $n * $n;
  43         } elsif ($n <= 56) {
  44                 return 56 - $n;
  45         } else {
  46                 return 0;
  47         }
  48 }