[libfinance-quote-perl] 01/02: yahoo-new-URLs.patch: new patch, updates URLs of Yahoo! Finance services.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch squeeze
in repository libfinance-quote-perl.

commit e8cad92079185ae8534d303eb8aea12f10f64b1c
Author: Sébastien Villemot <sebastien at debian.org>
Date:   Mon Mar 3 19:03:48 2014 +0000

    yahoo-new-URLs.patch: new patch, updates URLs of Yahoo! Finance services.
    
    Closes: #739142
---
 debian/patches/yahoo-new-URLs.patch | 85 +++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)

diff --git a/debian/patches/yahoo-new-URLs.patch b/debian/patches/yahoo-new-URLs.patch
new file mode 100644
index 0000000..cd8fbd8
--- /dev/null
+++ b/debian/patches/yahoo-new-URLs.patch
@@ -0,0 +1,85 @@
+Description: Use new URLs of Yahoo!! finance services
+Origin: backport,
+        https://github.com/finance-quote/finance-quote/commit/f46f11948f27643adae5a1574757625e18be07da
+        https://github.com/finance-quote/finance-quote/commit/a4cfca753c45c41fd8d44be0070b7a7aabe8ca79
+        https://github.com/finance-quote/finance-quote/commit/60b410ce17cec99507d55cf3d8d414739489b798
+Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=739142
+Last-Update: 2014-02-25
+---
+This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
+--- a/lib/Finance/Quote/Yahoo/Europe.pm
++++ b/lib/Finance/Quote/Yahoo/Europe.pm
+@@ -40,7 +40,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_EUROPE_URL = ("http://uk.finance.yahoo.com/d/quotes.csv");
++$YAHOO_EUROPE_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ # Yahoo Europe switched date and time. sending t1d1 or d1t1
+ # returns the same : Time followed by date. This is a short
+--- a/lib/Finance/Quote/Yahoo/USA.pm
++++ b/lib/Finance/Quote/Yahoo/USA.pm
+@@ -41,7 +41,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_URL = ("http://finance.yahoo.com/d");
++$YAHOO_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ sub methods {return (canada   => \&yahoo,
+                      usa      => \&yahoo,
+--- a/lib/Finance/Quote/Yahoo/Asia.pm
++++ b/lib/Finance/Quote/Yahoo/Asia.pm
+@@ -42,7 +42,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_ASIA_URL = ("http://sg.finance.yahoo.com/d/quotes.csv");
++$YAHOO_ASIA_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ sub methods {return (asia => \&yahoo_asia,yahoo_asia => \&yahoo_asia)};
+ 
+--- a/lib/Finance/Quote/Yahoo/Australia.pm
++++ b/lib/Finance/Quote/Yahoo/Australia.pm
+@@ -39,7 +39,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_AUSTRALIA_URL = ("http://au.finance.yahoo.com/d/quotes.csv");
++$YAHOO_AUSTRALIA_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ sub methods {return (australia       => \&yahoo_australia,
+ 		     yahoo_australia => \&yahoo_australia)};
+--- a/lib/Finance/Quote/Yahoo/Brasil.pm
++++ b/lib/Finance/Quote/Yahoo/Brasil.pm
+@@ -39,7 +39,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_BRASIL_URL = ("http://br.finance.yahoo.com/d/quotes.csv");
++$YAHOO_BRASIL_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ sub methods {return (brasil       => \&yahoo_brasil,
+ 		     yahoo_brasil => \&yahoo_brasil)};
+@@ -58,8 +58,7 @@ sub yahoo_brasil
+ 	return unless @symbols;	# Nothing if no symbols.
+ 
+ 	# This does all the hard work.
+-        # Enabled the $uses_semicolon param
+-        my %info = yahoo_request($quoter,$YAHOO_BRASIL_URL,\@symbols,".SA", 1);
++        my %info = yahoo_request($quoter,$YAHOO_BRASIL_URL,\@symbols,".SA");
+ 
+ 	foreach my $symbol (@symbols) {
+ 		next unless $info{$symbol,"success"};
+--- a/lib/Finance/Quote/Yahoo/NZ.pm
++++ b/lib/Finance/Quote/Yahoo/NZ.pm
+@@ -38,7 +38,7 @@ $VERSION = '1.18';
+ 
+ # URLs of where to obtain information.
+ 
+-$YAHOO_NZ_URL = ("http://au.finance.yahoo.com/d/quotes.csv");
++$YAHOO_NZ_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
+ 
+ sub methods {return (nz => \&yahoo_nz, yahoo_nz => \&yahoo_nz)};
+ 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfinance-quote-perl.git