#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $dbh = ccbs::db_connect();
my $tournaments = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournaments NATURAL JOIN seasons ORDER BY season, date');

ccbs::print_header();
ccbs::process_template('tournaments.tmpl', 'Turneringer', { tournaments => $tournaments });
$dbh->disconnect;
