summaryrefslogtreecommitdiff
path: root/PLUGINS/src/sky/getskyepg.pl
diff options
context:
space:
mode:
authorKlaus Schmidinger <vdr@tvdr.de>2006-12-02 10:00:08 +0100
committerKlaus Schmidinger <vdr@tvdr.de>2006-12-02 10:00:08 +0100
commitddcb37300faca0631f5cbd931f5174fe35c27e38 (patch)
treefd60e7b8714fc38875cb82fa733345d9af021237 /PLUGINS/src/sky/getskyepg.pl
parent83ad7bf6e49773b4cdeb265908ab6b921c12e4a3 (diff)
downloadvdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.gz
vdr-ddcb37300faca0631f5cbd931f5174fe35c27e38.tar.bz2
The getskyepg.pl script now replaces "&amp;" with "&"
Diffstat (limited to 'PLUGINS/src/sky/getskyepg.pl')
-rwxr-xr-xPLUGINS/src/sky/getskyepg.pl11
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/&amp;/&/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: