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

« back to all changes in this revision

Viewing changes to grab/huro/tv_grab_huro.in

  • Committer: Package Import Robot
  • Author(s): Chris Butler
  • Date: 2012-06-12 01:43:32 UTC
  • mfrom: (1.4.3)
  • Revision ID: package-import@ubuntu.com-20120612014332-svvw1wvhbe5zqibh
Tags: 0.5.62-1
* New upstream release
  - removed grabbers: fi_sv (can be replaced by fi)
  - (re)added grabbers: na_dd, eu_egon, se_tvzon
  - new dependencies required: libdatetime-perl, libdatetime-timezone-perl,
    libdatetime-format-iso8601-perl
* Added liblinux-dvb-perl build-dependency back for linux architectures
  (closes: #665455)
* replaced libcompress-zlib-perl dependency with libio-compress-perl
* added patch to fix pod2man errors
* Upped Standards-Version to 3.9.3 (no changes required)

Show diffs side-by-side

added added

removed removed

Lines of Context:
2
2
# vi:noet:ts=4
3
3
 
4
4
#-------------------------------------------------------------------------------
5
 
# $Id: tv_grab_huro.in,v 1.45 2011/04/12 19:05:34 dekarl Exp $
 
5
# $Id: tv_grab_huro.in,v 1.47 2011/07/28 09:01:54 attila_nagy Exp $
6
6
#-------------------------------------------------------------------------------
7
7
 
8
8
#-------------------------------------------------------------------------------
122
122
#-------------------------------------------------------------------------------
123
123
 
124
124
use strict;
125
 
use XMLTV::Version '$Id: tv_grab_huro.in,v 1.45 2011/04/12 19:05:34 dekarl Exp $';
 
125
use XMLTV::Version '$Id: tv_grab_huro.in,v 1.47 2011/07/28 09:01:54 attila_nagy Exp $';
126
126
use XMLTV::Capabilities qw/baseline manualconfig cache/;
127
127
use XMLTV::Description 'Hungary/Romania';
128
128
use XMLTV::Supplement qw/GetSupplement/;
338
338
                $data =~ s|<span class=\"spons_link.*?</span>||g;
339
339
                $data =~ s|<div style=\"display:none\">.*?</div>||g;
340
340
                # strip links to divido.hu
341
 
                $data =~ s|<a class=\"navs.*?</a>||g;
 
341
                $data =~ s|<a onclick=\"loggin.*?</a>||g;
342
342
 
343
343
                $tree = HTML::TreeBuilder->new_from_content($data) or 
344
344
                        die "could not fetch/parse $url (progamtable)\n";
546
546
                # New type of row: contains only the time of the event
547
547
                # but not the actual program data. So in this case we try to
548
548
                # jump to the next row
549
 
                if (! $row->attr("class") || (not $row->attr("class") =~ /^event_/ )) {
 
549
                if (! $row->attr("class") || (not $row->attr("class") =~ /[\s]*event_/ )) {
550
550
                        t "found line without event, the time is: $lasttimeHHMM";
551
551
                        next;
552
552
                }