I was curious, so I went looking for the patch. I eventually found
it here:
http://xmltv.cvs.sourceforge.net/viewvc/xmltv/xmltv/grab/is/tv_grab_is?r1=1.25&r2=1.26&view=patch
(also attached).
Thanks for your investigation so far!
Cheers,
Dominic.
--
Dominic Hargreaves | http://www.larted.org.uk/~dom/
PGP key 5178E2A5 from the.earth.li (keyserver,web,email)
--- tv_grab_is 2010/11/15 17:13:40 1.25
+++ tv_grab_is 2011/06/22 05:56:34 1.26
@@ -77,7 +77,7 @@
=cut
use strict;
-use XMLTV::Version '$Id: tv_grab_is,v 1.25 2010/11/15 17:13:40 eggertthor Exp $ ';
+use XMLTV::Version '$Id: tv_grab_is,v 1.26 2011/06/22 05:56:34 rmeden Exp $ ';
use XMLTV::Capabilities qw/baseline manualconfig cache/;
use XMLTV::Description 'Iceland';
use Getopt::Long;
@@ -86,7 +86,6 @@
use IO::File;
use URI;
use utf8; # source code is encoded in utf8
-use Switch;
use Date::Manip;
use XML::LibXSLT;
@@ -313,19 +312,12 @@
my $timeoffset = ispluschannel($ch_did) ? 1 : 0;
- switch(basechid($ch_did)) {
- case "RUV"
- {
- push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_ruv_is ];
- }
- case "S1"
- {
- push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_skjarinn_is ];
- }
- case (%stod2AndFriends)
- {
- push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_stod2_and_friends ];
- }
+ if (basechid ($ch_did) eq 'RUV') {
+ push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_ruv_is ];
+ } elsif (basechid ($ch_did) eq 'S1') {
+ push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_skjarinn_is ];
+ } elsif (defined ($stod2AndFriends{basechid ($ch_did)} ) ) {
+ push @to_get, [ $startday, $opt_days, $ch_did, $ch_xid, $timeoffset, \&process_stod2_and_friends ];
}
}
