[ccbs] / html / do-edit-scores.pl

#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

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

my $tournament = $cgi->param('tournament');

$dbh->disconnect;

ccbs::print_see_other('show-tournament.pl?id=' . $tournament);