diff options
| author | Klaus Schmidinger <vdr@tvdr.de> | 2006-12-02 10:00:08 +0100 |
|---|---|---|
| committer | Klaus Schmidinger <vdr@tvdr.de> | 2006-12-02 10:00:08 +0100 |
| commit | ddcb37300faca0631f5cbd931f5174fe35c27e38 (patch) | |
| tree | fd60e7b8714fc38875cb82fa733345d9af021237 /PLUGINS/src | |
| parent | 83ad7bf6e49773b4cdeb265908ab6b921c12e4a3 (diff) | |
| download | vdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.gz vdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.bz2 | |
The getskyepg.pl script now replaces "&" with "&"
Diffstat (limited to 'PLUGINS/src')
| -rw-r--r-- | PLUGINS/src/sky/HISTORY | 3 | ||||
| -rwxr-xr-x | PLUGINS/src/sky/getskyepg.pl | 11 |
2 files changed, 11 insertions, 3 deletions
diff --git a/PLUGINS/src/sky/HISTORY b/PLUGINS/src/sky/HISTORY index d40d3b03..3233bf62 100644 --- a/PLUGINS/src/sky/HISTORY +++ b/PLUGINS/src/sky/HISTORY @@ -46,10 +46,11 @@ VDR Plugin 'sky' Revision History - Fixed format string handling. -2006-12-01: Version 0.3.5 (version number not increased) +2006-12-02: Version 0.3.5 (version number not increased) - Made the getskyepg.pl script send a user agent message to the server, according to the rules at http://bleb.org/tv/data/listings. If your version of 'wget' doesn't support the -U option to set the user agent, use the new option -U of getskyepg.pl to have the information added to the URL as a query string. +- The getskyepg.pl script now replaces "&" with "&". diff --git a/PLUGINS/src/sky/getskyepg.pl b/PLUGINS/src/sky/getskyepg.pl index d5819811..6388caae 100755 --- a/PLUGINS/src/sky/getskyepg.pl +++ b/PLUGINS/src/sky/getskyepg.pl @@ -8,7 +8,7 @@ # # See the README file for copyright information and how to reach the author. # -# $Id: getskyepg.pl 1.5 2006/12/01 14:38:00 kls Exp $ +# $Id: getskyepg.pl 1.6 2006/12/02 09:52:49 kls Exp $ use Getopt::Std; use Time::Local; @@ -95,6 +95,13 @@ sub GetPage return @page; } +sub ReplaceTags +{ + my $s = shift; + $s =~ s/&/&/g; + return $s; +} + sub StripWhitespace { my $s = shift; @@ -108,7 +115,7 @@ sub Extract my $s = shift; my $t = shift; $s =~ /<$t>([^<]*)<\/$t>/; - return StripWhitespace($1); + return ReplaceTags(StripWhitespace($1)); } # In order to get the duration we need to buffer the last event: |