tools/nonametv-batchlog

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../lib";
   7
   8 use NonameTV;
   9 use NonameTV::DataStore;
  10 use NonameTV::Config qw/ReadConfig/;
  11
  12 use Getopt::Long;
  13 use POSIX qw/strftime/;
  14 use Template;
  15
  16 # Read configuration
  17 my $conf = ReadConfig();
  18
  19 # Create Datastore
  20 my $ds = NonameTV::DataStore->new( $conf->{DataStore} );
  21
  22 my $data = {
  23   errors => [],
  24   warnings => [],
  25   files => [],
  26 };
  27
  28 # Retrieve a list of all batches that have been aborted due to errors.
  29 my( $res, $sth ) = $ds->sa->Sql(
  30         "select * from batches where abort_message!='' order by name" );
  31
  32 while( my $d = $sth->fetchrow_hashref() ) {
  33   push @{$data->{errors}}, $d;
  34 }
  35
  36 $sth->finish();
  37
  38 # Retrieve a list of all batches that generated a warning.
  39 ( $res, $sth ) = $ds->sa->Sql(
  40         "select * from batches where message!='' order by name" );
  41
  42 while( my $d = $sth->fetchrow_hashref() )
  43 {
  44   push @{$data->{warnings}}, $d;
  45 }
  46
  47 $sth->finish();
  48
  49 # Retrieve a list of all files with that generated a message
  50 ( $res, $sth ) = $ds->sa->Sql(
  51         "select * from files where message!='' order by channelid, filename" );
  52
  53 while( my $d = $sth->fetchrow_hashref() )
  54 {
  55   push @{$data->{files}}, $d;
  56 }
  57
  58 $sth->finish();
  59
  60 GeneratePage( 'batchlog', $data );
  61
  62 sub GeneratePage {
  63   my( $templatename, $data ) = @_;
  64
  65   my $config = {};
  66
  67   $config->{INCLUDE_PATH} = [ "$FindBin::Bin/../templates/" ];
  68   if( defined( $NonameTV::Conf->{TemplateCountry} ) ) {
  69     unshift( @{$config->{INCLUDE_PATH}},
  70              "$FindBin::Bin/../templates/$NonameTV::Conf->{TemplateCountry}" );
  71   }
  72
  73
  74   # create Template object
  75   my $template = Template->new($config);
  76
  77   $template->process( $templatename, $data );
  78 }
  79