← Back to branch summary

~ubuntu-branches/ubuntu/wily/xmltv/wily-proposed

« back to all changes in this revision

Viewing changes to grab/na_dd/tv_grab_na_dd.in

  • Committer: Bazaar Package Importer
  • Author(s): Chris Butler
  • Date: 2009-08-15 11:24:58 UTC
  • mfrom: (1.2.13 upstream)
  • Revision ID: james.westby@ubuntu.com-20090815112458-8isr2g00r9670mn5
* New upstream release
  - tv_grab_uk_rt: improve UTF8 support, improve actor support
  - tv_grab_huro:   Add Slovakian episode parsing
  - tv_grab_za:     South African grabber fixed
* Disabled grab/it_dvb as Linux::DVB module is currently not packaged
  for Debian
* Refreshed nl_icons usage patch
* Added libdatetime-format-strptime-perl to (Build-)Depends
* Migrated packaging to dh
* Updated to Standards-Version 3.8.2 (no changes required)

Show diffs side-by-side

added added

removed removed

Lines of Context:
grab/na_dd/tv_grab_na_dd.in
350
350
# initializations
351
351
 
352
352
use strict;
353
 
use XMLTV::Version '$Id: tv_grab_na_dd.in,v 1.74 2009/01/08 02:07:27 rmeden Exp $ ';
 
353
use XMLTV::Version '$Id: tv_grab_na_dd.in,v 1.76 2009/07/28 04:47:22 rmeden Exp $ ';
354
354
use XMLTV::Capabilities qw/baseline manualconfig share/;
355
355
use XMLTV::Description 'North America (Data Direct)';
356
356
use Data::Dumper;
1206
1206
$writer->start( {
1207
1207
              'source-info-name'     => 'Schedules Direct',
1208
1208
              'source-info-url'      => 'http://www.schedulesdirect.org/',
1209
 
              'generator-info-name'  => 'XMLTV/$Id: tv_grab_na_dd.in,v 1.74 2009/01/08 02:07:27 rmeden Exp $',
 
1209
              'generator-info-name'  => 'XMLTV/$Id: tv_grab_na_dd.in,v 1.76 2009/07/28 04:47:22 rmeden Exp $',
1210
1210
              'generator-info-url'   => 'http://www.xmltv.org/',
1211
1211
            });
1212
1212
 
1219
1219
for my $map (@{$lineups{$dd_lineup}{map}})
1220
1220
{
1221
1221
    my $sid = $map->{station};
 
1222
    my $station=$station{$sid};
 
1223
 
 
1224
    unless ($station->{callSign})
 
1225
    {
 
1226
       print STDERR "WARNING: Strange $map->{channel} has no callsign. Skipping\n";
 
1227
       next;
 
1228
    }
1222
1229
 
1223
1230
    if ($seen_station{$sid}++)
1224
1231
    {
1227
1234
        next;
1228
1235
    }
1229
1236
    my $myid = sprintf("I%d.labs.zap2it.com",$sid);
1230
 
 
1231
 
    my $station=$station{$sid};
1232
 
 
1233
 
    unless ($station->{callSign})
1234
 
    {
1235
 
       print STDERR "WARNING: Strange $map->{channel} has no callsign. Skipping\n";
1236
 
       next;
1237
 
    }
1238
 
 
1239
1237
    my $key=sprintf("%s %s",$map->{channel},$station->{callSign});
1240
1238
 
1241
1239
#
1451
1449
# It was put in {date} in error.  Let's keep it in {date} for compatability
1452
1450
# reasons.  If we have a copyright date, we change it anyway
1453
1451
#
1454
 
                     if ( exists $ptr->{originalAirDate})
 
1452
# Note, {original-air-date} has a different meaning for SH episodes
 
1453
#
 
1454
                     if ( exists $ptr->{originalAirDate} && $_->{program} !~ /^SH/) 
1455
1455
                     {
1456
1456
                        $prog{'previously-shown'}{start}=$ptr->{originalAirDate}.'000000';
 
1457
 
1457
1458
                        $prog{'previously-shown'}{start}=~ s/-//g;
1458
1459
                     }
1459
1460