3fc353172d2f23f5b46b6869ecc6d453dca79062
[ccbs] / html / tournaments.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8 my $tournaments = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournaments NATURAL JOIN seasons ORDER BY season, date');
9
10 ccbs::print_header();
11 ccbs::process_template('tournaments.tmpl', 'Tournaments', { tournaments => $tournaments });
12 $dbh->disconnect;