[mythtv] Working XMLTV version?

[Gregorio Gervasio Jr.]

--=-=-=

>>>>> On Wed, 8 Jan 2003 17:07:12 -0600, "Nathan Ziarek" <nathan@ziarek.com> said:

n> Is anyone out there able to use XMLTV right now? If so, what version? Is
n> there something else I should be doing to "upgrade"?

I am using 0.5.5 with the attached patch to ZapListings.pm (which is
from a CVS version that was mentioned on this list yesterday.

-- 
Gregorio Gervasio, Jr.
gtgj@pacbell.net


--=-=-=
Content-Type: text/x-patch; charset=iso-8859-1
Content-Disposition: attachment; filename=xmltv-0.5.5-zap2it.patch
Content-Transfer-Encoding: quoted-printable
Content-Description: zap2it patch

--- ZapListings.pm.orig	2002-12-10 21:26:26.000000000 -0800
+++ ZapListings.pm	2003-01-07 12:46:29.000000000 -0800
@@ -1,4 +1,4 @@
-# $Id: ZapListings.pm,v 1.26 2002/12/11 05:26:26 jveldhuis Exp $
+# $Id: ZapListings.pm,v 1.29 2003/01/07 16:42:56 jveldhuis Exp $
=20
 #
 # Special thanks to Stephen Bain for helping me play catch-up with
@@ -138,6 +138,7 @@
=20
 use HTTP::Cookies;
 use HTTP::Request::Common;
+use URI;
=20
 sub new
 {
@@ -344,10 +345,13 @@
     my $debug=3D$self->{Debug};
=20
     my $req =3D POST("http://$self->{httpHost}/system.asp?partner_id=3Dnat=
ional&zipcode=3D$self->{GeoCode}",
-		   [btnPreviewYes=3D>'YES',
+		   [saveProvider=3D>"See Listings",
+		    zipcode=3D>"$self->{GeoCode}",
 		    provider=3D>"$provider",
-		    FormName=3D>'system.asp']);
-
+		    FormName=3D>'system.asp',
+		    btnPreviewYes=3D>'Confirm Channel Lineup',
+		    page_from=3D>''
+		    ]);
=20
     my $res=3D&doRequest($self->{ua}, $req, $debug);
     if ( !$res->is_success || $res->content()=3D~m/your session has timed =
out/i ) {
@@ -432,8 +436,8 @@
 		return(undef);
 	    }
 	    else {
-		#main::errorMessage("got channel icon $ref\n");
-		$nchannel->{icon}=3D$ref;
+		my $icon=3DURI->new_abs($ref, "http://$self->{httpHost}/");
+		$nchannel->{icon}=3D$icon;
 	    }
=20
 	    # <a> gives url that contains station_num
@@ -638,9 +642,13 @@
     $self->{httphost}=3DXMLTV::ZapListings::getHttpHost();
=20
     my $req =3D POST("http://$self->{httphost}/system.asp?partner_id=3Dnat=
ional&zipcode=3D$self->{ZipCode}",
-		   [btnPreviewYes=3D>'YES',
+		   [saveProvider=3D>"See Listings",
+		    zipcode=3D>"$self->{ZipCode}",
 		    provider=3D>"$self->{ProviderID}",
-		    FormName=3D>'system.asp']);
+		    FormName=3D>'system.asp',
+		    btnPreviewYes=3D>'Confirm Channel Lineup',
+		    page_from=3D>''
+		    ]);
=20
     # initialize listings cookies
     my $res=3D&XMLTV::ZapListings::doRequest($self->{zl}->getUserAgent(), =
$req, $self->{Debug});
@@ -1151,7 +1159,7 @@
 			push(@sure, $i);
 			next;
 		    }
-		    elsif ( $i=3D~/^\(Acci=F3n\)$/io ) { # action in french :)
+		    elsif ( $i=3D~/^\(Acci\xf3n\)$/io ) { # action in french :)
 			push(@{$prog->{category}}, "Action");
 			push(@sure, $i);
 			next;

--=-=-=--