#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $dbh = ccbs::db_connect();

my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_used FROM randomsongsused');

ccbs::print_header();
ccbs::process_template('randomsongs.tmpl', 'Sangvelger', {
		num_used => $ref->{'num_used'}
	});

$dbh->disconnect;
