/usr/share/perl5/Finance/Quote/Yahoo/Asia.pm is in libfinance-quote-perl 1.17+git20110918-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 | #!/usr/bin/perl -w
#
# Copyright (C) 1998, Dj Padzensky <djpadz@padz.net>
# Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org>
# Copyright (C) 2000, Yannick LE NY <y-le-ny@ifrance.com>
# Copyright (C) 2000, Paul Fenwick <pjf@cpan.org>
# Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net>
#
# Copyright (C) 2001, M.R.Muthu Kumar <m_muthukumar@users.sourceforge.net>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA
#
# This code derived from Padzensky's work on package Finance::YahooQuote,
# but extends its capabilites to encompas a greater number of data sources.
#
# This code was developed as part of GnuCash <http://www.gnucash.org/>
package Finance::Quote::Yahoo::Asia;
require 5.005;
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/;
use vars qw($VERSION $YAHOO_ASIA_URL);
$VERSION = '1.17';
# URLs of where to obtain information.
$YAHOO_ASIA_URL = ("http://sg.finance.yahoo.com/d/quotes.csv");
sub methods {return (asia => \&yahoo_asia,yahoo_asia => \&yahoo_asia)};
{
my @labels = (base_yahoo_labels(),"currency","method");
sub labels { return (asia => \@labels, yahoo_asia => \@labels); }
}
# =======================================================================
# yahoo_asia gets quotes for Asian (Except Japan) markets from Yahoo.
sub yahoo_asia
{
my $quoter = shift;
my @symbols = @_;
return unless @symbols; # Nothing if no symbols.
# This does all the hard work.
my %info = yahoo_request($quoter,$YAHOO_ASIA_URL,\@symbols);
foreach my $symbol (@symbols) {
next unless $info{$symbol,"success"};
$info{$symbol,"method"} = "yahoo_asia";
}
return %info if wantarray;
return \%info;
}
1;
=head1 NAME
Finance::Quote::Yahoo::Asia - Fetch quotes from Yahoo Asia
=head1 SYNOPSIS
use Finance::Quote;
$q = Finance::Quote->new;
%info = $q->fetch("asia","CREA.SI"); # Failover to other methods ok.
%info = $q->fetch("yahoo_asia","CREA.SI"); # Use this module only.
=head1 DESCRIPTION
This module fetches information from Yahoo Asia. Symbols should be
provided in the format "SYMBOL.EXCHANGE", where the exchange code is
one of the following:
SI - Singapore
BO - Bombay
JK - Jakarta
HK - Hong Kong
NS - India
KS - Korea
KL - Kuala Lumpur
NZ - New Zealand
SS - Shanghai
SZ - Shenzhen
TW - Taiwan
TH - Thailand
This module provides both the "asia" and "yahoo_asia" methods.
The "asia" method should be used if failover methods are desirable.
The "yahoo_asia" method should be used you desire to only fetch
information from Yahoo Europe.
Stocks are returned in the currency of the local exchange. You
can use Finance::Quote's set_currency() feature to change the
currency in which information is returned.
This module is loaded by default by Finance::Quote, but can be loaded
explicitly by specifying the parameter "Yahoo::Asia" to
Finance::Quote->new().
Information obtained by this module may be covered by Yahoo's terms
and conditions. See http://sg.finance.yahoo.com/ for more details.
=head1 LABELS RETURNED
This module returns all the standard labels (where available) provided
by Yahoo. See Finance::Quote::Yahoo::Base for a list of these. The
currency label is also returned.
=head1 BUGS
The currency of each exchange has not been thoroughly confirmed.
If you find an exchange is returning in an incorrect exchange,
please use the bug tool at http://sourceforge.net/projects/finance-quote
to report it.
=head1 SEE ALSO
Yahoo Asia, http://sg.finance.yahoo.com/
Finance::Quote::Yahoo::Base
=cut
|