Changeset 620

Show
Ignore:
Timestamp:
03/15/07 03:14:48 (6 years ago)
Author:
max
Message:

Switch to a hopefully more common Perl dependency for unzipping

Files:
2 modified

Legend:

Unmodified
Added
Removed

  • grabbers/jrobbo

    r590 r620  
    88 
    99my $progname = "jrobbo"; 
    10 my $version = "0.07"; 
     10my $version = "0.08"; 
    1111 
    1212use LWP::UserAgent; 
    1313use Getopt::Long; 
    1414use XMLTV; 
    15 use IO::Uncompress::Unzip qw(unzip $UnzipError) ; 
     15use Archive::Zip; 
     16use IO::String; 
    1617$| = 1; 
    1718 
    … …  
    151152# 
    152153 
    153 my $data; 
    154 unzip \$response->content => \$data  
    155     or die "unzip failed: $UnzipError\n"; 
     154my $io = IO::String->new( \$response->content); 
     155my $zip = Archive::Zip->new(); 
     156$zip->readFromFileHandle($io); 
     157my $data = $zip->contents('xmltv.xml'); 
    156158 
    157159# 

  • status

    r619 r620  
    66grabber         sbsnews_website     0.11 
    77grabber         oztivo              0.19 
    8 grabber         jrobbo              0.07 
     8grabber         jrobbo              0.08 
    99grabber         ninemsn             0.14 
    1010grabber         yahoo7web           0.15