Revert change to wrong branch.
[ccbs] / html / randomsongs.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8
9 my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_used FROM randomsongsused');
10
11 ccbs::print_header();
12 ccbs::process_template('randomsongs.tmpl', 'Sangvelger', {
13                 num_used => $ref->{'num_used'}
14         });
15
16 $dbh->disconnect;