lib/NonameTV/Importer/Hallmark.pm

   1 package NonameTV::Importer::Hallmark;
   2
   3 use strict;
   4 use warnings;
   5
   6 =pod
   7
   8 Import data from Excel files delivered via e-mail.
   9
  10 Features:
  11
  12 =cut
  13
  14 use utf8;
  15
  16 use DateTime;
  17 use Spreadsheet::ParseExcel;
  18 use File::Temp qw/tempfile/;
  19
  20 use NonameTV qw/norm AddCategory MonthNumber/;
  21 use NonameTV::Log qw/progress error/;
  22
  23 use NonameTV::Importer::BaseFile;
  24
  25 use base 'NonameTV::Importer::BaseFile';
  26
  27 sub new {
  28   my $proto = shift;
  29   my $class = ref($proto) || $proto;
  30   my $self  = $class->SUPER::new( @_ );
  31   bless ($self, $class);
  32
  33   $self->{grabber_name} = "Hallmark";
  34
  35   return $self;
  36 }
  37
  38 sub ImportContentFile {
  39   my $self = shift;
  40   my( $file, $chd ) = @_;
  41
  42   $self->{fileerror} = 0;
  43
  44   my $xmltvid = $chd->{xmltvid};
  45   my $channel_id = $chd->{id};
  46   my $ds = $self->{datastore};
  47
  48   # Only process .xls files.
  49   return if( $file !~ /\.xls$/i );
  50   progress( "Hallmark: $xmltvid: Processing $file" );
  51
  52   my %columns = ();
  53   my $date;
  54   my $currdate = "x";
  55
  56
  57   my $batch_id = $xmltvid . "_" . $file;
  58   $ds->StartBatch( $batch_id , $channel_id );
  59
  60   my $oBook = Spreadsheet::ParseExcel::Workbook->Parse( $file );
  61
  62   # main loop
  63   for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
  64
  65     my $oWkS = $oBook->{Worksheet}[$iSheet];
  66     progress( "Hallmark: $chd->{xmltvid}: Processing worksheet: $oWkS->{Name}" );
  67
  68     # browse through rows
  69     for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
  70
  71       # get the names of the columns from the 1st row
  72       if( not %columns ){
  73         for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
  74           $columns{norm($oWkS->{Cells}[$iR][$iC]->Value)} = $iC;
  75         }
  76         next;
  77       }
  78 #foreach my $col (%columns) {
  79 #print "$col\n";
  80 #}
  81
  82       # date - column 0 ('Date')
  83       my $oWkC = $oWkS->{Cells}[$iR][$columns{'Date'}];
  84       next if( ! $oWkC );
  85
  86       $date = ParseDate( $oWkC->Value );
  87       next if( ! $date );
  88
  89       # starttime - column ('Start')
  90       $oWkC = $oWkS->{Cells}[$iR][$columns{'Start'}];
  91       next if( ! $oWkC );
  92       my $starttime = create_dt( $date , $oWkC->Value ) if( $oWkC->Value );
  93
  94       # endtime - column ('End')
  95       $oWkC = $oWkS->{Cells}[$iR][$columns{'End'}];
  96       next if( ! $oWkC );
  97       my $endtime = create_dt( $date , $oWkC->Value ) if( $oWkC->Value );
  98
  99       # title - column ('Title')
 100       $oWkC = $oWkS->{Cells}[$iR][$columns{'Title'}];
 101       next if( ! $oWkC );
 102       my $title = $oWkC->Value if( $oWkC->Value );
 103
 104       my $type = $oWkS->{Cells}[$iR][$columns{'Type'}]->Value if $oWkS->{Cells}[$iR][$columns{'Type'}];
 105       my $prodno = $oWkS->{Cells}[$iR][$columns{'Prod No.'}]->Value if $oWkS->{Cells}[$iR][$columns{'Prod No.'}];
 106       my $episodetitle = $oWkS->{Cells}[$iR][$columns{'Episode Title'}]->Value if $oWkS->{Cells}[$iR][$columns{'Episode Title'}];
 107       my $slotlen = $oWkS->{Cells}[$iR][$columns{'Slot Len'}]->Value if $oWkS->{Cells}[$iR][$columns{'Slot Len'}];
 108       my $epino = $oWkS->{Cells}[$iR][$columns{'Epi No.'}]->Value if $oWkS->{Cells}[$iR][$columns{'Epi No.'}];
 109       my $cert = $oWkS->{Cells}[$iR][$columns{'Cert'}]->Value if $oWkS->{Cells}[$iR][$columns{'Cert'}];
 110       my $genre = $oWkS->{Cells}[$iR][$columns{'Genre'}]->Value if $oWkS->{Cells}[$iR][$columns{'Genre'}];
 111       my $year = $oWkS->{Cells}[$iR][$columns{'Year'}]->Value if $oWkS->{Cells}[$iR][$columns{'Year'}];
 112       my $director = $oWkS->{Cells}[$iR][$columns{'Director'}]->Value if $oWkS->{Cells}[$iR][$columns{'Director'}];
 113       my $actor = $oWkS->{Cells}[$iR][$columns{'Actor'}]->Value if $oWkS->{Cells}[$iR][$columns{'Actor'}];
 114       my $episodesynopsis = $oWkS->{Cells}[$iR][$columns{'Episode Synopsis'}]->Value if $oWkS->{Cells}[$iR][$columns{'Episode Synopsis'}];
 115       my $minisynopsis = $oWkS->{Cells}[$iR][$columns{'Mini Synopsis'}]->Value if $oWkS->{Cells}[$iR][$columns{'Mini Synopsis'}];
 116       my $synopsis = $oWkS->{Cells}[$iR][$columns{'Synopsis'}]->Value if $oWkS->{Cells}[$iR][$columns{'Synopsis'}];
 117
 118       progress("Hallmark: $xmltvid: $starttime - $title");
 119
 120       my $ce = {
 121         channel_id   => $channel_id,
 122         start_time   => $starttime->ymd("-") . " " . $starttime->hms(":"),
 123         end_time     => $endtime->ymd("-") . " " . $endtime->hms(":"),
 124         title        => $title,
 125       };
 126
 127       # subtitle
 128       if( $episodetitle ){
 129         $ce->{subtitle} = $episodetitle;
 130       }
 131
 132       # description
 133       if( $synopsis ){
 134         $ce->{description} = $synopsis;
 135       }
 136
 137       # episode
 138       if( $epino ){
 139         $ce->{episode} = sprintf( ". %d .", $epino-1 );
 140         $ce->{program_type} = 'series';
 141       }
 142
 143       # type
 144       if( $type ){
 145         $ce->{program_type} = $type;
 146       }
 147
 148       # genre
 149       if( $genre ){
 150         my($program_type, $category ) = $ds->LookupCat( "Hallmark_genre", $genre );
 151         AddCategory( $ce, $program_type, $category );
 152       }
 153
 154       # production year
 155       if( $year ){
 156         $ce->{production_date} = "$year-01-01";
 157       }
 158
 159       # directors
 160       if( $director ){
 161         $ce->{directors} = $director;
 162       }
 163
 164       # actors
 165       if( $actor ){
 166         $ce->{actors} = $actor;
 167       }
 168
 169       $ds->AddProgramme( $ce );
 170     }
 171
 172     %columns = ();
 173
 174   }
 175
 176   $ds->EndBatch( 1 );
 177
 178   return;
 179 }
 180
 181 sub ParseDate
 182 {
 183   my ( $dinfo ) = @_;
 184
 185   my( $day, $monthname, $year );
 186
 187   # format '033 03 Jul 2008'
 188   if( $dinfo =~ /^\d+\s+\d+\s+\S+\s+\d+$/ ){
 189     ( $day, $monthname, $year ) = ( $dinfo =~ /^\d+\s+(\d+)\s+(\S+)\s+(\d+)$/ );
 190
 191   # format '05-sep-08'
 192   } elsif( $dinfo =~ /^\d+-(jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)-\d+$/i ){
 193     ( $day, $monthname, $year ) = ( $dinfo =~ /^(\d+)-(\S+)-(\d+)$/ );
 194   }
 195
 196   else {
 197     return undef;
 198   }
 199
 200   return undef if( ! $year);
 201
 202   $year+= 2000 if $year< 100;
 203
 204   my $mon = MonthNumber( $monthname, "en" );
 205
 206 #print "DAY: $day\n";
 207 #print "MON: $mon\n";
 208 #print "YEA: $year\n";
 209
 210   my $dt = DateTime->new( year   => $year,
 211                           month  => $mon,
 212                           day    => $day,
 213                           hour   => 0,
 214                           minute => 0,
 215                           second => 0,
 216                           time_zone => 'Europe/Zagreb',
 217                           );
 218
 219   $dt->set_time_zone( "UTC" );
 220
 221   return $dt;
 222 }
 223
 224 sub create_dt
 225 {
 226   my( $date, $time ) = @_;
 227
 228   my( $hour, $min, $sec ) = ( $time =~ /(\d{2}):(\d{2}):(\d{2})/ );
 229
 230   my $dt = $date->clone()->add( hours => $hour , minutes => $min , seconds => $sec );
 231
 232   return $dt;
 233 }
 234
 235 1;
 236
 237 ### Setup coding system
 238 ## Local Variables:
 239 ## coding: utf-8
 240 ## End: