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

fixes

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1611 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas
1999-01-11 03:27:31 +00:00
parent ec1a76090e
commit e02fdfb961
1 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/quotes/Quote.pm
View File

@@ -388,12 +388,16 @@ sub vanguard {
# print "found $fid $url\n";
}
}
# if no symbols matched, return empty-handed.
if ($url eq $VANGUARD_QUERY_URL) { return undef; }
# ask for a special report with these symbols in them
$url .="COLS=COL1%2C3&COLS=COL4&COLS=COL5&COLS=COL11%2C12&ACTION=Accept";
$ua = LWP::UserAgent->new;
$reply = $ua->request(GET $url)->content;
# now build the second url which will actually contain the data
undef $url;
foreach (split('\n',$reply)) {
if (/FileName=V(.*)\.txt/) {
@@ -401,16 +405,29 @@ sub vanguard {
last;
}
}
print "second url is $url\n";
# print "second url is $url\n";
$reply = $ua->request(GET $url)->content;
# parse the data, stick it into the array the user will get
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//;
($sym = $q[0]) =~ s/\W//g;
$aa {$sym, "exchange"} = "Vanguard"; # Vanguard
if (! $q[1]) { last; } # error if comma separation didn't work
($aa {$sym, "nav"} = $q[1]) =~ s/\s//g;
($aa {$sym, "date"} = $q[2]) =~ s/\s//g;
# look up a name for the ticker symbol
undef ($fid);
for ($i=2; $i<=$#vanguard_ids; $i+=3) {
if ($vanguard_ids[$i] =~ $sym) {
$fid = $vanguard_ids[$i-1];
last;
}
}
if ($fid) {
$aa {$sym, "name"} = $fid;
}
}
return %aa;
}