tools/nonametv-cleardb

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use NonameTV;
   6 use NonameTV::DataStore;
   7 use NonameTV::Config qw/ReadConfig/;
   8
   9 use Getopt::Long;
  10
  11 # Read configuration
  12 my $conf = ReadConfig();
  13
  14 # Create Datastore
  15 my $ds = NonameTV::DataStore->new( $conf->{DataStore} );
  16
  17 print "Clearing all listings from database\n";
  18 $ds->sa->Delete( "batches", {} );
  19 $ds->sa->Delete( "programs", {} );
  20 $ds->sa->Delete( "state", {} );
  21