On Mon, Jun 15, 2009 at 07:41:42AM -0500, Dirk Eddelbuettel wrote:
>
|
> | Ran beancounter update
> |
> | Error message
> | Use of uninitialized value $b[3] in join or string at
> /usr/share/perl5/Finance/YahooQuote.pm line 88
>
see attached beancounter_update.debug
> Eeek.
>
> | Ran
> | beancounter --ubcfx update
> |
> | Modification of non-creatable array value attempted, subscript -4 at
> /usr/share/perl5/Finance/BeanCounter.pm line 372.
>
> Eeek.
>
see attached beancounter_ubcfx.debug
> We need to debug those. Try with the --debug switches and try to look at the
> code around there.
>
--
Henry
Photocopies or faxes of my signature are not binding.
Digital Key Signature: GPG RSA 0xFB447AA1
Sun Jun 21 19:40:49 BST 2009
$VAR1 = {
'verbose' => undef,
'equityupdate' => 1,
'fxupdate' => '1',
'lastbizday' => '20090621',
'dbname' => 'portfol',
'currency' => 'USD',
'debug' => 1,
'user' => 'henry',
'odbc' => 0,
'host' => 'localhost',
'passwd' => undef,
'commit' => 1,
'prevbizday' => '20081221',
'today' => '20090621',
'dbsystem' => 'sqlite',
'dsn' => 'beancounter',
'ubcfx' => 1
};
Database has schema 0.8.8, we require version 0.6.0
UpdateFXviaUBC():
$stmt = select distinct currency
from portfolio
where symbol != ''
and currency != 'USD'
UpdateFXviaUBC() -- symbols=CAD EUR GBP SEK
Url is
http://fx.sauder.ubc.ca/cgi/fxdata?b=USD&ld=21&lm=06&ly=2009&fd=21&fm=06&fy=2009&daily&q=volume&f=csv&o=T.C&c=CAD&c=EUR&c=GBP&c=SEK
--> <HTML><head><title>Pacific Exchange Rate Service - Error</title>
$VAR1 = {
'verbose' => undef,
'equityupdate' => 1,
'fxupdate' => '1',
'lastbizday' => '20090621',
'dbname' => 'portfol',
'currency' => 'USD',
'debug' => 1,
'user' => 'henry',
'odbc' => 0,
'host' => 'localhost',
'passwd' => undef,
'commit' => 1,
'prevbizday' => '20081221',
'today' => '20090621',
'dbsystem' => 'sqlite',
'dsn' => 'beancounter',
'ubcfx' => 0
};
Database has schema 0.8.8, we require version 0.6.0
UpdateFXDatabase():
$stmt = select distinct currency
from portfolio
where symbol != ''
and currency != 'USD'
UpdateFXDatabase(): Symbols are ^XCV ^XEU ^XBX
$VAR1 = [
[
'^XCV',
'^XCV',
'0.00',
'N/A',
'10:48am',
'N/A',
'N/A',
'N/A',
'0',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
],
[
'^XEU',
'^XEU',
'0.00',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'0',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
],
[
'^XBX',
'^XBX',
'0.00',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'0',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
]
];
$VAR1 = [
[
'EURUSD=X',
'EUR to USD',
'1.3933',
'6/19/2009',
'5:44pm',
'N/A',
'N/A',
'N/A',
'0',
'1.3932',
'1.3934',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
]
];
Retrying EURUSD=X:
$VAR1 = [
'EURUSD=X',
'EUR to USD',
'1.3933',
'6/19/2009',
'5:44pm',
'N/A',
'N/A',
'N/A',
'0',
'1.3932',
'1.3934',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
];
$VAR1 = [
[
'CADUSD=X',
'CAD to USD',
'0.8804',
'6/19/2009',
'5:10pm',
'N/A',
'N/A',
'N/A',
'0',
'0.8802',
'0.8807',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
]
];
Retrying CADUSD=X:
$VAR1 = [
'CADUSD=X',
'CAD to USD',
'0.8804',
'6/19/2009',
'5:10pm',
'N/A',
'N/A',
'N/A',
'0',
'0.8802',
'0.8807',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
];
$VAR1 = [
[
'GBPUSD=X',
'GBP to USD',
'1.6494',
'6/19/2009',
'5:30pm',
'N/A',
'N/A',
'N/A',
'0',
'1.6492',
'1.6497',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
]
];
Retrying GBPUSD=X:
$VAR1 = [
'GBPUSD=X',
'GBP to USD',
'1.6494',
'6/19/2009',
'5:30pm',
'N/A',
'N/A',
'N/A',
'0',
'1.6492',
'1.6497',
'N/A',
'N/A',
'N/A - N/A',
'N/A - N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A',
'N/A'
];
EUR (^XEU) ExistsFXDailyData():
$stmt = select previous_close, day_open, day_low, day_high,
day_close, day_change
from fxprices
where currency = ?
and date = ?
DatabaseFXDailyData():
$stmt = update fxprices
set previous_close = ?,
day_open = ?,
day_low = ?,
day_high = ?,
day_close = ?,
day_change = ?
where currency = ?
and date = ?
DatabaseFXDailyData(): -1.2345,
-1.2345, -1.2345, -1.2345,
1.3933, -1.2345,
EUR, 20090619
CAD (^XCV) ExistsFXDailyData():
$stmt = select previous_close, day_open, day_low, day_high,
day_close, day_change
from fxprices
where currency = ?
and date = ?
DatabaseFXDailyData():
$stmt = update fxprices
set previous_close = ?,
day_open = ?,
day_low = ?,
day_high = ?,
day_close = ?,
day_change = ?
where currency = ?
and date = ?
DatabaseFXDailyData(): -1.2345,
-1.2345, -1.2345, -1.2345,
0.8804, -1.2345,
CAD, 20090619
GBP (^XBX) ExistsFXDailyData():
$stmt = select previous_close, day_open, day_low, day_high,
day_close, day_change
from fxprices
where currency = ?
and date = ?
DatabaseFXDailyData():
$stmt = update fxprices
set previous_close = ?,
day_open = ?,
day_low = ?,
day_high = ?,
day_close = ?,
day_change = ?
where currency = ?
and date = ?
DatabaseFXDailyData(): -1.2345,
-1.2345, -1.2345, -1.2345,
1.6494, -1.2345,
GBP, 20090619
update beancounter set data_last_updated='now'
UpdateDatabase():
$stmt = select distinct symbol
from stockinfo
where symbol != ''
and active order by symbol;
$VAR1 = [For simplicity I have deleted all share reference];
update stockinfo set capitalisation update stockprices set previous_close = ?,
day_open = ?, day_high = ?, day_low = ?, day_close = ?, day_change = ?, bid =
?, ask = ?, volume = ? where symbol = ? and date = ?
insert into stockprices (previous_close, day_open, day_high, day_low,
day_close, day_change, bid, ask, volume, symbol, date) values (?, ?, ?, ?, ?,
?, ?, ?, ?, ?, ?)
update beancounter set data_last_updated='now'
