I have began to do this work and update it wih Finance:YahooQuote-0.13,
but I can't test really.
I send you my work.
In Finance:YahooQuote-0.13 's changes there is :
0.12 24-JAN-2000 Added $ua->env_proxy() so that LWP will honor
proxies.
Thanks again, Dirk, and Hamish Moffatt
<[EMAIL PROTECTED]>!
I think you need to add this line in Quote.PM:
$ua->env_proxy()
Thanks
Yannick
Dave Peticolas a �crit :
>
> > Ok, but there is nothing for Yahoo Europe,
>
> I have added an item for Yahoo Europe and added that capability
> to Quote.pm. In tests, it seems you don't have to give the market
> in the &m value if you give the stock symbol as 12150.PA (which is
> for Peugot in the Paris market). Is that ok?
>
> I currently can't connect to CVS, but as soon as I can I will check
> in these changes.
>
> dave
Quote.pm
#!/usr/bin/perl -w
#
# FILE:
# gnc-prices
#
# FUNCTION:
# go out to the net, fetch prices for any securities,
# stocks/mutual funds in a GnuCash portfolio.
#
# HISTORY:
# Created by Linas Vepstas January 1999
# Copyright (c) 1999-2000 Linas Vepstas
# hack alert -- this pathname should *NOT* be hard-coded.
use lib '/usr/lib/gnucash/';
use Quote;
use gnucash;
# --------------------------------------------------
# @account_list = &account_flatlist ($account_group);
# This rouine accepts a pointer to a group, returns
# a flat list of all of the children in the group.
sub account_flatlist
{
local ($grp) = $_[0];
local ($naccts) = gnucash::xaccGroupGetNumAccounts ($grp);
local ($n);
local (@acctlist, @childlist);
local ($children);
foreach $n (0..$naccts-1) {
$acct = gnucash::xaccGroupGetAccount ($grp, $n);
push (@acctlist, $acct);
$children = gnucash::xaccAccountGetChildren ($acct);
if ($children) {
@childlist = &account_flatlist ($children);
push (@acctlist, @childlist);
}
}
return (@acctlist);
}
# --------------------------------------------------
# &checkprice ($account, $date);
# This routine checks to see if the account has already stored a
# price for this day, returning 1 if yes otherwise 0/undefined.
sub checkprice
{
local ($acct) = $_[0];
local ($dayte) = $_[1];
local ($query, $datesecs, $earliest, $latest);
local ($splitlist, $i, $split, $action);
$datesecs = gnucash::xaccScanDateS ($dayte);
$earliest = $datesecs - 16*3600; # subtract 16 hours
$latest = $datesecs + 16*3600; # add 16 hours
$query = gnucash::xaccMallocQuery();
gnucash::xaccQueryAddAccount ($query, $acct);
gnucash::xaccQuerySetDateRange ($query, $earliest, $latest);
$splitlist = gnucash::xaccQueryGetSplits ($query);
$i=0;
$split = gnucash::IthSplit ($splitlist, $i);
while ($split) {
$action = gnucash::xaccSplitGetAction ($split);
if ($action eq "Price") { return 1; }
$i++;
$split = gnucash::IthSplit ($splitlist, $i);
}
gnucash::xaccFreeQuery ($query);
0;
}
# --------------------------------------------------
# &setprice ($account, $date, $price);
# This routine stores the indicated price in the indicated account.
# Handy little utility avoids the usual hassle.
sub setprice
{
local ($acct) = $_[0];
local ($dayte) = $_[1];
local ($price) = $_[2];
local ($trans, $split);
$trans = gnucash::xaccMallocTransaction();
gnucash::xaccTransBeginEdit ($trans, 1);
gnucash::xaccTransSetDescription ($trans, "Price");
gnucash::xaccTransSetDateStr ($trans,$dayte);
$split = gnucash::xaccTransGetSplit ($trans, 0);
gnucash::xaccSplitSetSharePriceAndAmount ($split, $price, 0.0);
gnucash::xaccSplitSetAction ($split, "Price");
gnucash::xaccTransCommitEdit ($trans);
gnucash::xaccAccountBeginEdit ($acct, 1);
gnucash::xaccAccountInsertSplit ($acct, $split);
gnucash::xaccAccountCommitEdit ($acct);
1;
}
# --------------------------------------------------
die "Usage: $0 <gnucash-filename>" if $#ARGV < 0;
# open the file, read all of the accounts
print "Info: Opening file $ARGV[0]\n";
$sess = gnucash::xaccMallocSession ();
$grp = gnucash::xaccSessionBeginFile ($sess,$ARGV[0]);
die "failed to read file $ARGV[0], maybe its locked? " if (! $grp);
# get a flat list of accounts in the file
@acctlist = &account_flatlist ($grp);
# loop over the accounts, look for stock and mutual funds.
ACCTLOOP:
foreach $acct (@acctlist) {
$name = gnucash::xaccAccountGetName ($acct);
print "Info: Found account $name\n";
$type = gnucash::xaccAccountGetType ($acct);
if (($type == $gnucash::STOCK) ||
($type == $gnucash::MUTUAL))
{
$security = gnucash::xaccAccountGetSecurity ($acct);
$accinfo = gnucash::xaccAccountGetAccInfo ($acct);
$invacct = gnucash::xaccCastToInvAcct ($accinfo);
if ($invacct) {
$quotesrc = gnucash::xaccInvAcctGetPriceSrc ($invacct);
print "Info: will use $quotesrc for $name price quotes\n";
undef $price; # undef to make sure later if($price) not broken
QUOTE: {
if ("YAHOO" eq $quotesrc) {
%quotes = &Quote::yahoo ($security);
$price = $quotes {$security, "last"};
last QUOTE;
if ("YAHOO_EUROPE" eq $quotesrc) {
%quotes = &Quote::yahoo ($security);
$price = $quotes {$security, "last"};
last QUOTE;
}
if ("FIDELITY" eq $quotesrc) {
%quotes = &Quote::fidelity ($security);
$price = $quotes {$security, "nav"};
last QUOTE;
}
if ("TRPRICE" eq $quotesrc) {
%quotes = &Quote::troweprice ($security);
$price = $quotes {$security, "nav"};
last QUOTE;
}
if ("VANGUARD" eq $quotesrc) {
%quotes = &Quote::vanguard ($security);
$price = $quotes {$security, "nav"};
last QUOTE;
}
next ACCTLOOP; # no quote available, go to next account
}
$dayte = $quotes {$security, "date"};
$prodname = $quotes {$security, "name"};
if ($price) {
print "Info: $security $prodname last price = $price at $dayte\n";
# This || construction will store the price if its not already
# stored (in the 28 hour period surrounding "dayte")
&checkprice ($acct, $dayte) || &setprice ($acct, $dayte, $price);
}
print "\n";
}
}
}
gnucash::xaccSessionSave ($sess);
gnucash::xaccSessionEnd ($sess);
--
Gnucash Developer's List
To unsubscribe send empty email to: [EMAIL PROTECTED]
