@@ -1,3 +1,8 @@ +2008-10-26 Erik Colson <eco@ecocode.net> + + * BUG correction : IndiaMutual.pm: symbol not set it module. + * Release 1.15 + 2008-10-21 Erik Colson <eco@ecocode.net> * BUG correction : function isoTime - make sure $hours and $mins are treated as numbers ChangeLog @@ -50,7 +50,7 @@ $YAHOO_CURRENCY_URL = "http://uk.finance.yahoo.com/currency/convert?amt=1&submit @EXPORT_OK = qw/yahoo yahoo_europe fidelity troweprice asx tiaacref/; @EXPORT_TAGS = ( all => [@EXPORT_OK]); -$VERSION = '1.14'; +$VERSION = '1.15'; $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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION='1.15'; $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.14'; +$VERSION='1.15'; 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.14'; +$VERSION = '1.15'; $ASX_URL = 'http://www.asx.com.au/asx/markets/PriceResults.jsp?method=get&template=F1001&ASXCodes='; lib/Finance/Quote/ASX.pm @@ -35,7 +35,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.14'; +$VERSION = '1.15'; # URLs of where to obtain information my $BMO_URL = 'http://bmonesbittburns.com/QuickQuote/QuickQuote.asp?Symbol='; lib/Finance/Quote/BMONesbittBurns.pm @@ -62,7 +62,7 @@ use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.14'; +$VERSION='1.15'; my $Bourso_URL = 'http://www.boursorama.com/recherche/recherche.phtml'; lib/Finance/Quote/Bourso.pm @@ -21,7 +21,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION = '1.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; $COMINVEST_URL = ('http://files.cominvest.de/_fonds_application/FondsInfos/FondsInfos_All_PreiseAktuell_CSVFile.asp?b2b=0&noindex=1&lang=49'); lib/Finance/Quote/Cominvest.pm @@ -45,7 +45,7 @@ use warnings; use vars qw/$VERSION/; -$VERSION = '1.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; $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.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; $FOOL_URL = 'http://quote.fool.com/quotes.csv?symbols='; lib/Finance/Quote/Fool.pm @@ -41,7 +41,7 @@ use HTML::TableExtract; use vars qw/$HEX_URL $VERSION/; -$VERSION = '1.14'; +$VERSION = '1.15'; $HEX_URL = 'http://omxgroup.is-teledata.com/html/securitypricelistequities.html?language=fi'; lib/Finance/Quote/HEX.pm @@ -14,7 +14,7 @@ use HTTP::Request::Common; use HTTP::Status; use HTML::TableExtract; -$VERSION = '1.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION='1.15'; 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.14'; +$VERSION = '1.15'; $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 @@ -39,7 +39,7 @@ use HTTP::Request::Common; use vars qw/$VERSION/; -$VERSION = '1.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; $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.14'; +$VERSION = '1.15'; $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.14'; +$VERSION = '1.15'; $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.14'; +$VERSION = '1.15'; # URLs of where to obtain information lib/Finance/Quote/TSP.pm @@ -43,7 +43,7 @@ use URI::QueryParam; use vars qw/$VERSION/; -$VERSION = '1.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14' ; +$VERSION = '1.15' ; 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.14'; +$VERSION = '1.15'; 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.14'; +$VERSION='1.15'; @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.14'; +$VERSION = '1.15'; 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # 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.14'; +$VERSION = '1.15'; # URLs of where to obtain information. lib/Finance/Quote/Yahoo/USA.pm @@ -20,7 +20,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTML::TableExtract; -$VERSION='1.14'; +$VERSION='1.15'; my $SHARENET_MAINURL = ("http://www.sharenet.co.za/"); my $SHARENET_URL = ($SHARENET_MAINURL."jse/"); lib/Finance/Quote/ZA.pm 3fc15b9856ddb48d8f0738739fad589af1033ef3 Erik Colson eco@ecocode.net http://github.com/pfenwick/finance-quote/commit/f444f359d6e319ed222574a05f30acdf731f8bc3 f444f359d6e319ed222574a05f30acdf731f8bc3 2008-10-25T17:11:31-07:00 2008-10-25T17:11:31-07:00 Changelog update and version updated to 1.15 65d32d1b26d57174529551cc89935b31987310a8 Erik Colson eco@ecocode.net