xmltv/grab/fi/fi common.pm, 2.01, 2.02 day.pm, 2.00, 2.01

Update of /cvsroot/xmltv/xmltv/grab/fi/fi
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31409/grab/fi/fi

Modified Files:
	common.pm day.pm 
Log Message:
- yle: updated after site changed completely
- NOTE: yle has new channel IDs!
- test.conf: updated with latest full channel list
- test.sh: reduced full run from 9 to 7 days


Index: common.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fi/fi/common.pm,v
retrieving revision 2.01
retrieving revision 2.02
diff -C2 -d -r2.01 -r2.02
*** common.pm	10 Oct 2011 16:38:57 -0000	2.01
--- common.pm	14 Jun 2014 18:18:36 -0000	2.02
***************
*** 95,102 ****
  
  # Fetch URL as parsed HTML::TreeBuilder
! sub fetchTree($;$$) {
!   my($url, $encoding, $nofail) = @_;
    my $content = fetchRaw($url, $encoding, $nofail);
    my $tree = HTML::TreeBuilder->new();
    local $SIG{__WARN__} = sub { carp("fetchTree(): $_[0]") };
    $tree->parse($content) or croak("fetchTree() parse failure for '$url'");
--- 95,103 ----
  
  # Fetch URL as parsed HTML::TreeBuilder
! sub fetchTree($;$$$) {
!   my($url, $encoding, $nofail, $unknown) = @_;
    my $content = fetchRaw($url, $encoding, $nofail);
    my $tree = HTML::TreeBuilder->new();
+   $tree->ignore_unknown(!$unknown);
    local $SIG{__WARN__} = sub { carp("fetchTree(): $_[0]") };
    $tree->parse($content) or croak("fetchTree() parse failure for '$url'");

Index: day.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fi/fi/day.pm,v
retrieving revision 2.00
retrieving revision 2.01
diff -C2 -d -r2.00 -r2.01
*** day.pm	10 Mar 2011 21:20:11 -0000	2.00
--- day.pm	14 Jun 2014 18:18:36 -0000	2.01
***************
*** 28,31 ****
--- 28,32 ----
  	      year  => $year,
  	      ymd   => sprintf("%04d%02d%02d", $year, $month, $day),
+ 	      ymdd  => sprintf("%04d-%02d-%02d", $year, $month, $day),
  	      dmy   => sprintf("%02d.%02d.%04d", $day, $month, $year),
  	     };
***************
*** 40,43 ****
--- 41,45 ----
  sub year  { $_[0]->{year}  };
  sub ymd   { $_[0]->{ymd}   };
+ sub ymdd  { $_[0]->{ymdd}  };
  
  # class methods


------------------------------------------------------------------------------
HPCC Systems Open Source Big Data Platform from LexisNexis Risk Solutions
Find What Matters Most in Your Big Data with HPCC Systems
Open Source. Fast. Scalable. Simple. Ideal for Dirty Data.
Leverages Graph Analysis for Fast Processing & Easy Data Exploration
http://p.sf.net/sfu/hpccsystems