#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $dbh = ccbs::db_connect();
my $cgi = new CGI;

my $tournament = $cgi->param('tournament');
$dbh->{AutoCommit} = 0;

$dbh->do('DELETE FROM bigscreen.active_groups');
$dbh->do('DELETE FROM bigscreen.active_tournament');
if ($tournament != -1) {
	$dbh->do('INSERT INTO bigscreen.active_tournament VALUES (?)', undef, $tournament);
}

# we don't have triggers in place yet, notify manually
$dbh->do('NOTIFY active_tournament');
$dbh->commit;

ccbs::print_see_other('set-active-tournament.pl');

$dbh->disconnect;
