Revert change to wrong branch.
[ccbs] / html / do-add-player.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 my $tournament = $cgi->param('tournament');
13 my $nick = $cgi->param('nick');
14
15 $dbh->do('INSERT INTO players (nick) VALUES (?)', undef, $nick);
16 my $ref = $dbh->selectrow_hashref('SELECT player FROM players WHERE nick=?',
17         undef, $nick);
18
19 ccbs::print_see_other('registration.pl?id=' . $tournament . '&player=' .
20         $ref->{'player'});
21
22 $dbh->disconnect;