The getskyepg.pl script now replaces "&" with "&"

This commit is contained in:
Klaus Schmidinger 2006-12-02 10:00:08 +01:00
parent 83ad7bf6e4
commit ddcb37300f
3 changed files with 12 additions and 3 deletions

View File

@ -4995,6 +4995,7 @@ Video Disk Recorder Revision History
If your version of 'wget' doesn't support the -U option to set the user agent, 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 use the new option -U of getskyepg.pl to have the information added to the URL
as a query string. as a query string.
- The getskyepg.pl script now replaces "&" with "&".
- Fixed a possible crash in remux.c on 64-bit machines (thanks to Reinhard Nissl). - Fixed a possible crash in remux.c on 64-bit machines (thanks to Reinhard Nissl).
- Fixed a typo in the change to the "Use small font" setup option in version 1.3.47 - Fixed a typo in the change to the "Use small font" setup option in version 1.3.47
in the HISTORY and CONTRIBUTORS file (reported by Andreas Brugger). in the HISTORY and CONTRIBUTORS file (reported by Andreas Brugger).

View File

@ -46,10 +46,11 @@ VDR Plugin 'sky' Revision History
- Fixed format string handling. - 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 - Made the getskyepg.pl script send a user agent message to
the server, according to the rules at http://bleb.org/tv/data/listings. 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, 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 use the new option -U of getskyepg.pl to have the information added to the URL
as a query string. as a query string.
- The getskyepg.pl script now replaces "&" with "&".

View File

@ -8,7 +8,7 @@
# #
# See the README file for copyright information and how to reach the author. # 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 Getopt::Std;
use Time::Local; use Time::Local;
@ -95,6 +95,13 @@ sub GetPage
return @page; return @page;
} }
sub ReplaceTags
{
my $s = shift;
$s =~ s/&/&/g;
return $s;
}
sub StripWhitespace sub StripWhitespace
{ {
my $s = shift; my $s = shift;
@ -108,7 +115,7 @@ sub Extract
my $s = shift; my $s = shift;
my $t = shift; my $t = shift;
$s =~ /<$t>([^<]*)<\/$t>/; $s =~ /<$t>([^<]*)<\/$t>/;
return StripWhitespace($1); return ReplaceTags(StripWhitespace($1));
} }
# In order to get the duration we need to buffer the last event: # In order to get the duration we need to buffer the last event: