e470b73e34dc37e44d4a6d0eb62ad472f93ee796
[ccbs] / html / do-reset-randomsongs.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8 my $cgi = new CGI;
9
10 $dbh->do('DELETE FROM randomsongsused');
11
12 ccbs::print_see_other('randomsongs.pl');
13
14 $dbh->disconnect;