X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fregistration.pl;fp=html%2Fregistration.pl;h=6d47364c561310a370d7bb0ff5e8ee50c16d00c9;hp=0000000000000000000000000000000000000000;hb=f6cf796b6a8bfbd91928584ad1e87fb7b0e9ea61;hpb=df54ae992515f82c334fac4d7b71580b4196d3e4

diff --git a/html/registration.pl b/html/registration.pl
new file mode 100755
index 0000000..6d47364
--- /dev/null
+++ b/html/registration.pl
@@ -0,0 +1,19 @@
+#! /usr/bin/perl
+
+use ccbs;
+use strict;
+use warnings;
+
+my $cgi = new CGI;
+my $id = $cgi->param('id');
+
+my $dbh = ccbs::db_connect();
+
+my $tournament = $dbh->selectrow_hashref('SELECT * FROM tournaments NATURAL JOIN seasons NATURAL JOIN countries NATURAL JOIN machines NATURAL JOIN scoringsystems WHERE tournament=?', undef, $id);
+my $people = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournamentparticipation NATURAL JOIN players WHERE tournament=?', $id);
+
+ccbs::print_header();
+ccbs::process_template('registration.tmpl', $tournament->{'tournamentname'}, {
+	people => $people
+});
+$dbh->disconnect;