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

updates for vanguard

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1609 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas
1999-01-10 22:29:06 +00:00
parent 0f6c2da5f8
commit 6990196c4e
1 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/quotes/Quote.pm
View File

@@ -371,8 +371,7 @@ sub vanguard {
}
my @symbols = @_;
# my(@q,%aa,$ua,$url,$sym, $fid);
my($url, $sym, $i, $fid, $reply, $ua);
my($url, $sym, $i, $fid, $reply, $ua, @q, %aa);
# convert ticker symbols into fund numbers; build first url
$url = $VANGUARD_QUERY_URL;
@@ -386,9 +385,11 @@ sub vanguard {
}
if ($fid) {
$url .= "ROWS=".$fid."&";
print "got $fid $url\n";
# print "found $fid $url\n";
}
}
if ($url eq $VANGUARD_QUERY_URL) { return undef; }
$url .="COLS=COL1%2C3&COLS=COL4&COLS=COL5&COLS=COL11%2C12&ACTION=Accept";
$ua = LWP::UserAgent->new;
$reply = $ua->request(GET $url)->content;
@@ -396,14 +397,22 @@ print "got $fid $url\n";
undef $url;
foreach (split('\n',$reply)) {
if (/FileName=V(.*)\.txt/) {
print "yxxxxxxxxxxxxxxxxxx $_\n";
print "yo $1 and $2 and $3 \n";
$url = $VANGUARD_CSV_URL . "V" . $1 . ".txt";
last;
}
}
print "its $url\n";
1;
print "second url is $url\n";
$reply = $ua->request(GET $url)->content;
foreach (split('\n',$reply)) {
@q = split (/,/);
($sym = $q[0]) =~ s/\W//;
$aa {$sym, "exchange"} = "Vanguard"; # Fidelity
if (! $q[1]) last; # error if comma sepoaration didn't work
($aa {$sym, "nav"} = $q[1]) =~ s/\S//;
($aa {$sym, "date"} = $q[2]) =~ s/\S//;
}
return %aa;
}
# =======================================================================