Package: libfinance-quote-perl Version: 1.16-2 Severity: normal File: /usr/share/perl5/Finance/Quote/Deka.pm Tags: patch
Hello,
some days ago retrieving data from deka stopped working. Probably
due to changed layout. The fix is quite simple:
--- Deka.pm.orig 2009-07-28 19:48:15.000000000 +0200
+++ Deka.pm 2009-07-28 19:53:40.000000000 +0200
@@ -81,7 +81,7 @@
$info{$stock,"name"} = $1
if( $response->content =~ /<div
class="sfg_txt">[^<>]*<h1>([^<>]+)<\/h1>/s );
$info{$stock,"eurodate"} = $1
- if( $response->content =~ /<div class="box">[^<>]*<h2
class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
+ if( $response->content =~ /<h2 class="headline">Aktuelle Fondsdaten
vom ([^<>]+)<\/h2>/s );
$info{$stock,"last"} = $info{$stock,"price"}
if( defined $info{$stock,"price"} );
(An html comment was added between <div> and <h2>, so the
regexp does no longer match.)
Regards,
Daniel
-- System Information:
Debian Release: squeeze/sid
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.30-1-amd64 (SMP w/2 CPU cores)
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages libfinance-quote-perl depends on:
ii libcrypt-ssleay-perl 0.57-2 Support for https protocol in LWP
ii libhtml-tableextract-perl 2.10-3 module for extracting the content
ii libwww-perl 5.829-1 WWW client/server library for Perl
ii perl 5.10.0-24 Larry Wall's Practical Extraction
libfinance-quote-perl recommends no packages.
libfinance-quote-perl suggests no packages.
-- no debconf information
pgpE9YBzQcrHd.pgp
Description: PGP signature
