view release on metacpan or  search on metacpan

unused/Float.pm  view on Meta::CPAN

sub download {
  my ($symbol_list) = @_;
  App::Chart::Download::status (__('Float.com.au strategy'));

  my $avail = available_tdate();

  require App::Chart::DownloadCost;
  my ($whole_tdate, @indiv_list) = App::Chart::DownloadCost::by_day_or_by_symbol
    (available_tdate  => $avail,
     symbol_list      => $symbol_list,
     indiv_cost_key     => 'float-indiv-zip',
     indiv_cost_default => 30000, # depending when first listed
     whole_cost_key     => 'float-wholeday-zip',
     whole_cost_default => 45000); # Sep 2007

  App::Chart::Download::verbose_message
      (__x('Float whole days from {date} after indiv {symbols}',
           date => App::Chart::tdate_to_iso($whole_tdate),
           symbols => join(' ', @indiv_list)));

  foreach my $symbol (@indiv_list) { indiv_download ($symbol); }
  daily_download ($whole_tdate, $avail);
}

1;
__END__


# ---------------------------------------------------------------------------
# Omitted while stuck at August 2008 ...
#
# @node Float, Finance Quote, Commonwealth Securities, Data Sources
# @section Float
# @cindex @code{float.com.au}
# 
# @uref{http://www.float.com.au}
# 
# @cindex Australian Stock Exchange
# @cindex ASX
# Float provides the following ASX data (@pxref{Australian Stock Exchange}),
# 
# @itemize
# @item
# Daily data for shares, warrants and indices back to 1997.  Each day's data is
# available from 9:15pm (Sydney time).
# @end itemize
# 
# The home page invites use of the data download while the float database is
# being built, subject to a disclaimer at
# 
# @quotation
# @uref{http://www.float.com.au/scgi-bin/prod/terms.cgi}
# @end quotation
# 
# Float is preferred over Yahoo for daily data, because it's available sooner,
# and if you have lots of ASX symbols then whole-day files can be used, which
# are faster than a separate download for every stock.
# 
# Preliminary data for each day is available from Float at 5pm (Sydney time) but
# is updated until 9pm, so Chart deliberately doesn't download until 9:15pm.
# 
# See also @ref{Commonwealth Securities}.