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/sky/getskyepg.pl | |
| parent | 83ad7bf6e49773b4cdeb265908ab6b921c12e4a3 (diff) | |
| download | vdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.gz vdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.bz2 | |
The getskyepg.pl script now replaces "&" with "&"
Diffstat (limited to 'PLUGINS/src/sky/getskyepg.pl')
| -rwxr-xr-x | PLUGINS/src/sky/getskyepg.pl | 11 |
1 files changed, 9 insertions, 2 deletions
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: |