projects
/
ccbs
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8417b3c3af24bdd8e4baa57ea2e95607a739a271
[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;