IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

more fidelity quotes

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1516 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1999-01-02 03:58:15 +00:00
parent 871b7795c7
commit 9bc0c377c5
1 changed files with 51 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
src/quotes/Quote.pm
View File

@ -28,7 +28,7 @@ require 5.000;
require Exporter; require Exporter;
use strict; use strict;
use vars qw($VERSION @EXPORT @ISA $YAHOO_URL $FIDELITY_GANDI_URL use vars qw($VERSION @EXPORT @ISA $YAHOO_URL $FIDELITY_GANDI_URL
$FIDELITY_GROWTH_URL); $FIDELITY_GROWTH_URL $FIDELITY_CORPBOND_URL);
use LWP::UserAgent; use LWP::UserAgent;
use HTTP::Request::Common; use HTTP::Request::Common;
@ -39,6 +39,7 @@ $VERSION = '0.06';
$YAHOO_URL = ("http://quote.yahoo.com/d?f=snl1d1t1c1p2va2bapomwerr1dyj1&s="); $YAHOO_URL = ("http://quote.yahoo.com/d?f=snl1d1t1c1p2va2bapomwerr1dyj1&s=");
$FIDELITY_GANDI_URL = ("http://personal441.fidelity.com/gen/prices/gandi.csv"); $FIDELITY_GANDI_URL = ("http://personal441.fidelity.com/gen/prices/gandi.csv");
$FIDELITY_GROWTH_URL = ("http://personal441.fidelity.com/gen/prices/growth.csv"); $FIDELITY_GROWTH_URL = ("http://personal441.fidelity.com/gen/prices/growth.csv");
$FIDELITY_CORPBOND_URL = ("http://personal441.fidelity.com/gen/prices/corpbond.csv");
# Don't export; let user invoke with Quote::getquote syntax. # Don't export; let user invoke with Quote::getquote syntax.
# @EXPORT = qw(&quote_yahoo); # @EXPORT = qw(&quote_yahoo);
@ -91,9 +92,12 @@ sub fidelity {
"FEXPX", "FFTYX", "FLCSX", "FLPSX", "FMAGX", "FMCSX", "FEXPX", "FFTYX", "FLCSX", "FLPSX", "FMAGX", "FMCSX",
"FMILX", "FOCPX", "FSLCX", "FSLSX", "FTQGX", "FTRNX", "FMILX", "FOCPX", "FSLCX", "FSLSX", "FTQGX", "FTRNX",
"FTXMX", ); "FTXMX", );
my (%agandi, %agrowth); my @corpbond = ("FAGIX", "SPHIX", "FTHRX", "FBNDX", "FSHBX", "FSIBX",
"FTBDX", "FSICX", "FTTAX", "FTTBX", "FTARX", );
my (%agandi, %agrowth, %acorpbond);
my $dgandi=0; my $dgandi=0;
my $dgrowth=0; my $dgrowth=0;
my $dcorpbond=0;
for (@gandi) { $agandi{$_} ++; } for (@gandi) { $agandi{$_} ++; }
for (@growth) { $agrowth{$_} ++; } for (@growth) { $agrowth{$_} ++; }
@ -114,6 +118,13 @@ sub fidelity {
foreach $k (keys %cc) { $aa{$k} = $cc{$k}; } foreach $k (keys %cc) { $aa{$k} = $cc{$k}; }
} }
} }
if ($acorpbond {$_} ) {
if (0 == $dcorpbond ) {
%cc = &fidelity_corpbond;
$dcorpbond = 1;
foreach $k (keys %cc) { $aa{$k} = $cc{$k}; }
}
}
} }
return %aa; return %aa;
} }
@ -142,6 +153,7 @@ sub fidelity_gandi {
if ($sym) { if ($sym) {
$aa {$sym, "exchange"} = "Fidelity"; # Fidelity $aa {$sym, "exchange"} = "Fidelity"; # Fidelity
$aa {$sym, "name"} = $q[0]; $aa {$sym, "name"} = $q[0];
$aa {$sym, "number"} = $q[1];
$aa {$sym, "nav"} = $q[3]; $aa {$sym, "nav"} = $q[3];
$aa {$sym, "change"} = $q[4]; $aa {$sym, "change"} = $q[4];
$aa {$sym, "ask"} = $q[7]; $aa {$sym, "ask"} = $q[7];
@ -175,6 +187,7 @@ sub fidelity_growth {
if ($sym) { if ($sym) {
$aa {$sym, "exchange"} = "Fidelity"; # Fidelity $aa {$sym, "exchange"} = "Fidelity"; # Fidelity
$aa {$sym, "name"} = $q[0]; $aa {$sym, "name"} = $q[0];
$aa {$sym, "number"} = $q[1];
$aa {$sym, "nav"} = $q[3]; $aa {$sym, "nav"} = $q[3];
$aa {$sym, "change"} = $q[4]; $aa {$sym, "change"} = $q[4];
$aa {$sym, "ask"} = $q[7]; $aa {$sym, "ask"} = $q[7];
@ -184,6 +197,42 @@ sub fidelity_growth {
return %aa; return %aa;
} }
# =======================================================================
sub fidelity_corpbond {
my @symbols = @_;
my(@q,%aa,$ua,$url,$sym, $dayte);
my %days = ('Monday','Mon','Tuesday','Tue','Wednesday','Wed',
'Thursday','Thu','Friday','Fri','Saturday','Sat','Sunday','Sun');
# for Fidelity, we get them all.
$url = $FIDELITY_CORPBOND_URL;
$ua = LWP::UserAgent->new;
foreach (split('\n',$ua->request(GET $url)->content)) {
@q = grep { s/^"?(.*?)\s*"?\s*$/$1/; } split(',');
# extract the date which is usually on the second line fo the file.
if (! defined ($dayte)) {
if ( $days {$q[0]} ) {
$dayte = $q[1];
}
}
$sym = $q[2];
if ($sym) {
$aa {$sym, "exchange"} = "Fidelity"; # Fidelity
$aa {$sym, "name"} = $q[0];
$aa {$sym, "number"} = $q[1];
$aa {$sym, "nav"} = $q[3];
$aa {$sym, "change"} = $q[4];
$aa {$sym, "yield"} = $q[7];
$aa {$sym, "date"} = $dayte;
}
}
return %aa;
}
# =======================================================================
__END__ __END__
1; 1;