@@ -51,7 +51,7 @@ $YAHOO_CURRENCY_URL = "http://uk.finance.yahoo.com/q?s="; currency_lookup/; @EXPORT_TAGS = ( all => [@EXPORT_OK]); -$VERSION = '1.16'; +$VERSION = '1.17'; $USE_EXPERIMENTAL_UA = 0; lib/Finance/Quote.pm @@ -44,7 +44,7 @@ use HTTP::Request::Common qw(POST); use HTML::TableExtract; use CGI; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information lib/Finance/Quote/AEX.pm @@ -34,7 +34,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.16'; +$VERSION = '1.17'; $AIAHK_URL = 'http://www.aia.com.hk/daily/fund_mst_rightb.asp?cat=BR_AC'; lib/Finance/Quote/AIAHK.pm @@ -30,7 +30,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.16'; +$VERSION = '1.17'; my $ASEGR_URL = 'http://www.ase.gr/content/en/MarketData/Stocks/Prices/Share_SearchResults.asp?'; lib/Finance/Quote/ASEGR.pm @@ -40,7 +40,7 @@ use HTML::TableExtract; use vars qw/$ASX_URL $VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; $ASX_URL = 'http://www.asx.com.au/asx/markets/priceLookup.do?by=asxCodes&asxCodes='; lib/Finance/Quote/ASX.pm @@ -35,7 +35,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information my $BMO_URL = 'http://bmonesbittburns.com/QuickQuote/QuickQuote.asp?Symbol='; lib/Finance/Quote/BMONesbittBurns.pm @@ -71,7 +71,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TreeBuilder; # Boursorama doesn't put data in table elements anymore but uses <div> -$VERSION='1.16'; +$VERSION = '1.17'; my $Bourso_URL = 'http://www.boursorama.com/recherche/index.phtml'; lib/Finance/Quote/Bourso.pm @@ -21,7 +21,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Cdnfundlibrary.pm @@ -41,7 +41,7 @@ use vars qw/$COMINVEST_URL $VERSION/; use LWP::UserAgent; use HTTP::Request::Common; -$VERSION = '1.16'; +$VERSION = '1.17'; $COMINVEST_URL = ('http://www.cominvest.de/_applications/fonds_application/FondsInfos/FondsInfos_PreiseAktuell_CSVFile.asp?b2b=0&noindex=1&noindex=1&lang=49'); lib/Finance/Quote/Cominvest.pm @@ -21,7 +21,7 @@ use base 'Exporter'; use vars qw/@EXPORT_OK $VERSION $YAHOO_CURRENCY_CONV_URL/; @EXPORT_OK = qw( known_currencies fetch_live_currencies ); -$VERSION = '1.16'; +$VERSION = '1.17'; use HTTP::Request::Common; use LWP::UserAgent; lib/Finance/Quote/Currencies.pm @@ -45,7 +45,7 @@ use warnings; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; sub methods { return(dwsfunds => \&dwsfunds); lib/Finance/Quote/DWS.pm @@ -23,7 +23,7 @@ use HTML::TableExtract; require Crypt::SSLeay; use vars qw($VERSION); -$VERSION = '1.16'; +$VERSION = '1.17'; my $DEKA_URL = "https://www.deka.de/dn/useCases/fundsearch/UCFundsSearch.shtml?ACTION_FIELD=quickSearch"; sub methods {return (deka => \&deka);} lib/Finance/Quote/Deka.pm @@ -39,7 +39,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/FTPortfolios.pm @@ -36,7 +36,7 @@ use vars qw/$FIDELITY_URL $VERSION/; use LWP::UserAgent; use HTTP::Request::Common; -$VERSION = '1.16'; +$VERSION = '1.17'; $FIDELITY_URL = ("http://activequote.fidelity.com/nav/fulllist.csv"); lib/Finance/Quote/Fidelity.pm @@ -19,7 +19,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; my $FINANCECANADA_MAINURL = ("http://finance.canada.com/"); my $FINANCECANADA_URL = "http://stockgroup.canada.com/sn_overview.asp?symbol=T."; lib/Finance/Quote/FinanceCanada.pm @@ -21,7 +21,7 @@ use strict; use HTML::TableExtract; use vars qw($VERSION); -$VERSION = '1.16'; +$VERSION = '1.17'; my $FINANZPARTNER_URL = "http://www.finanzpartner.de/fi/"; lib/Finance/Quote/Finanzpartner.pm @@ -40,7 +40,7 @@ use Exporter; use vars qw/$FOOL_URL $VERSION @FIELDS $MAX_REQUEST_SIZE @ISA/; -$VERSION = '1.16'; +$VERSION = '1.17'; $FOOL_URL = 'http://quote.fool.com/quotes.csv?symbols='; lib/Finance/Quote/Fool.pm @@ -38,7 +38,7 @@ use warnings; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; sub methods { return(goldmoney => \&goldmoney); lib/Finance/Quote/GoldMoney.pm @@ -41,7 +41,7 @@ use HTML::TableExtract; use vars qw/$HEX_URL $VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; $HEX_URL = 'http://omxgroup.is-teledata.com/html/securitypricelistequities.html?language=fi'; lib/Finance/Quote/HEX.pm @@ -27,7 +27,7 @@ use HTML::TableExtract; use Encode; use Storable qw(dclone); -$VERSION='1.15'; +$VERSION = '1.17'; my %MONTHS = ( "JAN","01","FEB","02","MAR","03","APR","04","MAY","05","JUN","06","JUL","07","AUG","08","SEP","09","OCT","10","NOV","11","DEC","12"); lib/Finance/Quote/HU.pm @@ -14,7 +14,7 @@ use HTTP::Request::Common; use HTTP::Status; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/IndiaMutual.pm @@ -41,7 +41,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.16'; +$VERSION = '1.17'; my $LR_URL = 'http://bourse.lerevenu.com/recherchenom.hts'; lib/Finance/Quote/LeRevenu.pm @@ -41,7 +41,7 @@ use HTML::TableExtract; use vars qw/$MANINV_URL $VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; $MANINV_URL = 'http://www.maninvestments.com.au/index.cfm?action=productprices&cat_id=5'; $MANINV_URL = 'http://www.maninvestments.com.au/netassetvalues-print.cfm'; lib/Finance/Quote/ManInvestments.pm @@ -9,7 +9,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; $MORNINGSTAR_SE_FUNDS_URL = 'http://morningstar.se/funds/overview.asp?cid='; sub methods { return (morningstar => \&morningstar); } lib/Finance/Quote/Morningstar.pm @@ -39,7 +39,7 @@ use HTTP::Request::Common; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; sub methods { return (nz => \&nzx, nzx => \&nzx); } sub labels { lib/Finance/Quote/NZX.pm @@ -41,7 +41,7 @@ use HTML::TableExtract; use vars qw/$PLATINUM_URL $VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; $PLATINUM_URL = 'http://www.platinum.com.au/Platinum_Trust_Unit_Prices.htm'; lib/Finance/Quote/Platinum.pm @@ -35,7 +35,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use utf8; -$VERSION = '1.16'; +$VERSION = '1.17'; $SEB_FUNDS_URL = 'http://taz.vv.sebank.se/cgi-bin/pts3/pow/fmk/2100/Senaste_fondkurserna.TXT'; sub methods { return (seb_funds => \&seb_funds); } lib/Finance/Quote/SEB.pm @@ -38,7 +38,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; $STOCKHOUSE_LOOKUP_URL="http://www.stockhouse.com/mutualFunds/index.asp?asp=1&lang=&item=searchresult&country=CAN&by=symbol&searchtext="; $STOCKHOUSE_URL="http://www.stockhouse.com/MutualFunds/index.asp?item=snapshot&page=1&Lang=EN&fundkey=%s&source=Fundata&Symbol=%s&FundName=&CompanyName=&asp=1"; lib/Finance/Quote/StockHouseCanada.pm @@ -39,7 +39,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information lib/Finance/Quote/TSP.pm @@ -43,7 +43,7 @@ use URI::QueryParam; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; # This URL is able to accept up to 10 symbols at a time my $TSX_URL = URI->new('http://cxa.marketwatch.com/tsx/en/market/getquote.aspx'); lib/Finance/Quote/TSX.pm @@ -33,7 +33,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use Carp; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Tdefunds.pm @@ -33,7 +33,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use Carp; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Tdwaterhouse.pm @@ -40,7 +40,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use Carp; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. # This used to be different for the CREF and TIAA annuities, but this changed. lib/Finance/Quote/Tiaacref.pm @@ -38,7 +38,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use Carp; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Troweprice.pm @@ -39,7 +39,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Trustnet.pm @@ -23,7 +23,7 @@ use HTTP::Request::Common; use HTML::TableExtract; use HTML::Parser; -$VERSION = '1.16' ; +$VERSION = '1.17' ; my $TREASURY_MAINURL = ("http://www.publicdebt.treas.gov/"); my $TREASURY_URL = ($TREASURY_MAINURL."sav/"); lib/Finance/Quote/USFedBonds.pm @@ -40,7 +40,7 @@ use HTTP::Request::Common; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; sub methods { return (unionfunds => \&unionfunds); } sub labels { return (unionfunds => [qw/exchange name date isodate price method/]); } lib/Finance/Quote/Union.pm @@ -31,7 +31,7 @@ use HTTP::Headers; use vars qw/@ISA $VERSION/; -$VERSION='1.16'; +$VERSION = '1.17'; @ISA = qw/LWP::UserAgent/; # A very simple extension. When we generate a LWP::UserAgent object, lib/Finance/Quote/UserAgent.pm @@ -44,7 +44,7 @@ use HTML::TreeBuilder; use vars qw/$VERSION/; -$VERSION = '1.16'; +$VERSION = '1.17'; sub methods { return (vwd => \&vwd); } sub labels { return (vwd => [qw/currency date isodate lib/Finance/Quote/VWD.pm @@ -38,7 +38,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw($VERSION $YAHOO_ASIA_URL); -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/Asia.pm @@ -35,7 +35,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw/$VERSION $YAHOO_AUSTRALIA_URL/; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/Australia.pm @@ -44,7 +44,7 @@ use vars qw/$VERSION @FIELDS @FIELD_ENCODING $MAX_REQUEST_SIZE @ISA @EXPORT = qw//; @EXPORT_OK = qw/yahoo_request base_yahoo_labels/; -$VERSION = '1.16'; +$VERSION = '1.17'; # This is the maximum number of stocks we'll batch into one operation. # If this gets too big (>50 or thereabouts) things will break because lib/Finance/Quote/Yahoo/Base.pm @@ -35,7 +35,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw/$VERSION $YAHOO_BRASIL_URL/; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/Brasil.pm @@ -36,7 +36,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw($VERSION $YAHOO_EUROPE_URL); -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/Europe.pm @@ -34,7 +34,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw/$VERSION $YAHOO_NZ_URL/; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/NZ.pm @@ -37,7 +37,7 @@ use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/; use vars qw/$VERSION $YAHOO_URL/; -$VERSION = '1.16'; +$VERSION = '1.17'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/USA.pm @@ -31,7 +31,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.16'; +$VERSION = '1.17'; my $SHARENET_MAINURL = ("http://www.sharenet.co.za/"); my $SHARENET_URL = ($SHARENET_MAINURL."jse/"); lib/Finance/Quote/ZA.pm 4452ad1f46370c18ff76395dc440ac4a4a1be4c0 Erik Colson eco@ecocode.net http://github.com/pfenwick/finance-quote/commit/4b04cc89d3d9cec5baedf97996a607f86972554f 4b04cc89d3d9cec5baedf97996a607f86972554f 2009-10-04T15:42:49-07:00 2009-10-04T15:42:49-07:00 version changed to 1.17 55c27638c5869bf8aceedd5f59803340f3f5b789 Erik Colson eco@ecocode.net