Changeset 65
- Timestamp:
- 10/11/06 17:30:16 (7 years ago)
- Files:
-
- 2 modified
-
grabbers/oztivo (modified) (4 diffs)
-
status (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
grabbers/oztivo
r62 r65 3 3 # OzTivo grabber 4 4 5 my $version = '0. 5';5 my $version = '0.6'; 6 6 7 7 # Requires configuration! … … 17 17 # 0.5 : Identify user agent; support gzip compression; turn off 18 18 # output buffering 19 # 0.6 : Decodes HTML characters 19 20 20 21 use strict; … … 23 24 use Cwd; 24 25 use Getopt::Long; 26 use HTML::Entities; 25 27 26 28 my $config_file = cwd() . "/oztivo.pw"; 27 my $output_file = cwd() . "/o ztivo.xmltv";29 my $output_file = cwd() . "/output.xmltv"; 28 30 my $channels_file; 29 31 my $channels; … … 107 109 } 108 110 111 print "Decoding HTML.\n"; 112 HTML::Entities::decode($data); 113 109 114 print "Transforming XMLTVIDs.\n"; 110 111 115 $data =~ s/channel="(.*)"/'channel="'.subme($1).'"'/ge; 112 116 113 117 print "Writing output.\n"; 114 115 118 open (OUT, ">$output_file"); 116 119 print OUT $data; -
status
r63 r65 1 1 shepherd:0.2.10:shepherd 2 2 rex:3.2.2:grabber 3 oztivo:0. 5:grabber3 oztivo:0.6:grabber 4 4 abc_website:1.55-r2:grabber 5 5 abc2_website:1.55-r2:grabber
