test/augment.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use DateTime;
  10 use Encode;
  11
  12 use NonameTV::Augmenter;
  13 use NonameTV::Factory qw/CreateDataStore/;
  14
  15 my $ds = CreateDataStore( );
  16
  17 my $dt = DateTime->now( time_zone => 'UTC' );
  18 $dt->add( days => 7 );
  19
  20 my $batchid = 'neo.zdf.de_' . $dt->week_year() . '-' . $dt->week();
  21 printf( "augmenting %s...\n", $batchid );
  22
  23 my $augmenter = NonameTV::Augmenter->new( $ds );
  24
  25 $augmenter->AugmentBatch( $batchid );