tools/nonametv-remove-old

   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 "Deleting old programs and batches from database\n";
  18 $ds->sa->DoSql( "delete from programs where TO_DAYS(now()) - TO_DAYS(start_time) > 1" );
  19
  20 # print "Deleting batches\n";
  21
  22 # Retrieve a list of all batches with no matching programme.
  23 my( $res, $sth ) = $ds->sa->Sql( "select batches.id, batches.name from batches left join programs on batches.id=programs.batch_id where programs.batch_id is null;" );
  24
  25 while( my $d = $sth->fetchrow_hashref() )
  26 {
  27   # print $d->{name} . "\n";
  28   $ds->sa->Delete( 'batches', { id => $d->{id} } );
  29 }
  30