]> git.sesse.net Git - ccbs/blob - html/tournaments.pl
Restore inadvertedly removed rm -f.
[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', 'Turneringer', { tournaments => $tournaments });
12 $dbh->disconnect;