view release on metacpan or  search on metacpan

misc/t-lme.pl  view on Meta::CPAN

{
  my $resp = HTTP::Response->new(200,'OK');
  my $content = slurp (<~/chart/samples/lme/August_2008.xls>);
  $resp->content($content);
  my $h = App::Chart::Suffix::LME::monthxls_parse($resp);
  print "h= ",Dumper($h);
  # App::Chart::Download::write_daily_group ($h);
  exit 0;
}



{
  App::Chart::Database->write_extra ('', 'lme-historical-xls', undef);
  exit 0;
}


{
  my $resp = HTTP::Response->new(200,'OK');
  # my $content = slurp (<~/chart/samples/lme/Dataprices_daily_metals-18sep08.aspx.html>);
  # my $content = slurp (<~/chart/samples/lme/Dataprices_Steels_OfficialPrices.aspx-20sep08.html>);
  my $content = slurp (<~/chart/samples/lme/Dataprices_daily_prices_plastics.aspx-20sep08.html>);
  $resp->content($content);
  $resp->content_type('text/html; charset=iso-8859-1');
  my $h = App::Chart::Suffix::LME::daily_metals_parse($resp);
  print Dumper($h);
#  App::Chart::Download::write_latest_group ($h);
  exit 0;
}
{
  my $resp = HTTP::Response->new(200,'OK');
  my $content = slurp (<~/chart/samples/lme/Dataprices_daily_prices_plastics.aspx-20sep08.html>);
  $resp->content($content);
  $resp->content_type('text/html');
  my $h = App::Chart::Suffix::LME::daily_plastics_parse($resp);
  print "h= ",Dumper($h);
  # App::Chart::Download::write_latest_group ($h);
  exit 0;
}

{
  my $resp = HTTP::Response->new(200,'OK');
  my $content = slurp (<~/chart/samples/lme/volumes_May_08.xls>);
  $resp->content($content);
  my $h = App::Chart::Suffix::LME::volume_parse ($resp);
  print Dumper($h);
  exit 0;
}

{
  require HTTP::Cookies;
  my $jar = HTTP::Cookies->new;
  my $ts = App::Chart::Suffix::LME::jar_get_login_timestamp($jar);
  print Dumper($ts);

  App::Chart::Suffix::LME::jar_set_login_timestamp($jar);
  print "Jar as_string:\n",$jar->as_string;

  require URI;
  require HTTP::Request;
  my $uri = URI->new;
  $uri->scheme ('http');
  $uri->host (App::Chart::Suffix::LME::LOGIN_DOMAIN());
  $uri->path ('/');
  my $req = HTTP::Request->new ('GET', $uri);
  #  $req->header ('Host', $uri->host);
  my $ua = LWP::UserAgent->new;
  $ua->prepare_request ($req);
  $jar->add_cookie_header ($req);
  print $req->as_string,"\n";

  $jar->set_cookie (1,                    # version
                    'another',            # key
                    'foo bar',            # value
                    '/',                  # path
                    App::Chart::Suffix::LME::LOGIN_DOMAIN(), # domain
                    0,                    # port
                    0,                    # path_spec
                    0,                    # secure
                    120,                  # maxage
                    0,                    # discard
                    { Comment => 'hi',
                      Version => 1 });
  print "Jar as_string:\n",$jar->as_string;
  $jar->add_cookie_header ($req);
  print $req->as_string,"\n";

  $ts = App::Chart::Suffix::LME::jar_get_login_timestamp($jar);
  print Dumper($ts);
  exit 0;
}

{
  my $h = App::Chart::Suffix::LME::historical_xls_list();
  print Dumper($h);
  exit 0;
}
{
  my $tdate = App::Chart::Suffix::LME::monthxls_available_tdate();
  print "$tdate ",App::Chart::tdate_to_iso($tdate),"\n";
  exit 0;
}








sub table_num_rows {
  my ($elem) = @_;
  $elem = List::Util::first {ref $_ && $_->tag eq 'tbody'} $elem->content_list
    or return 0;
  my $count = 0;
  foreach my $subelem ($elem->content_list) {
    if (ref $subelem && $subelem->tag eq 'tr') {
      $count++;
    }
  }
  return $count;
}

sub table_first_row {
  my ($elem) = @_;