X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fadd-tournament.pl;fp=html%2Fadd-tournament.pl;h=44c05361e73b0ac88344cb12681f58c7a68596ed;hp=0000000000000000000000000000000000000000;hb=8ec1d66d71c2c3bc773b39c7118fd34e3fb92dc9;hpb=29b7d13a713879f6a1db0d2040fc37a558d9a330

diff --git a/html/add-tournament.pl b/html/add-tournament.pl
new file mode 100755
index 0000000..44c0536
--- /dev/null
+++ b/html/add-tournament.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use ccbs;
+use strict;
+use warnings;
+
+my $dbh = ccbs::db_connect();
+
+# Fetch stuff we'll use in the form
+my $seasons = ccbs::db_fetch_all($dbh, 'SELECT * FROM seasons');
+my $countries = ccbs::db_fetch_all($dbh, 'SELECT * FROM countries');
+my $machines = ccbs::db_fetch_all($dbh, 'SELECT * FROM machines');
+my $scoringsystems = ccbs::db_fetch_all($dbh, 'SELECT * FROM scoringsystems');
+
+ccbs::print_header();
+ccbs::process_template('add-tournament.tmpl', 'Legg til turnering', {
+		seasons => $seasons,
+		countries => $countries,
+		machines => $machines,
+		scoringsystems => $scoringsystems,
+	});
+
+$dbh->disconnect;