Added a simple flag in ccbs.pm to make the system suitable for public viewing (ie...
[ccbs] / html / do-reset-randomsongs.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 ccbs::admin_only();
8
9 my $dbh = ccbs::db_connect();
10 my $cgi = new CGI;
11
12 $dbh->do('DELETE FROM randomsongsused');
13
14 ccbs::print_see_other('randomsongs.pl');
15
16 $dbh->disconnect;