#!/usr/bin/perl -w
# Copyright 2007, 2008, 2009, 2010, 2011 Kevin Ryde
# This file is part of Chart.
#
# Chart is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3, or (at your option) any later version.
#
# Chart is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along
# with Chart. If not, see <http://www.gnu.org/licenses/>.
use strict;
use warnings;
use Data::Dumper;
use DBI;
use App::Chart::Download;
use App::Chart::TZ;
use Data::Dumper;
use Tie::TZ;
{
print "fjkd fjksd \n";
App::Chart::Download::status ('foo');
App::Chart::Download::status ('quux');
App::Chart::Download::status ('xx');
print "fkjsd\n";
exit 0;
}
{
print App::Chart::Download::timestamp_now(),"\n";
print join("\n",App::Chart::Download::timestamp_range(120)),"\n";
exit 0;
}
{
require App::Chart::Database;
App::Chart::Download::consider_latest_from_daily
([ App::Chart::Database->symbols_list() ]);
exit 0;
}
{
my $zone = App::Chart::TZ->loco;
print Dumper ($zone);
$, = ' ';
print $zone->iso_date_time(0),"\n";
local $Tie::TZ::TZ = 'GMT';
print $zone->iso_date_time(0),"\n";
exit 0;
}
{
my $zone = App::Chart::TZ->new (name => 'Bogosity',
choose => [ 'foo/bar', 'foo/quux' ]);
print $zone->iso_date;
exit 0;
}
{
print App::Chart::Download::weekday_date_after_time
(16,0, App::Chart::TZ->sydney,-2),"\n";
print App::Chart::Download::weekday_date_after_time
(16,0, App::Chart::TZ->sydney,-1),"\n";
print App::Chart::Download::weekday_date_after_time
(16,0, App::Chart::TZ->sydney),"\n";
print App::Chart::Download::weekday_date_after_time
(12,0, App::Chart::TZ->sydney),"\n";
exit 0;
}
{
print App::Chart::Download::month_to_nearest_year(1),"\n";
print App::Chart::Download::month_to_nearest_year(2),"\n";
print App::Chart::Download::month_to_nearest_year(3),"\n";
print App::Chart::Download::month_to_nearest_year(7),"\n";
print App::Chart::Download::month_to_nearest_year(8),"\n";
print App::Chart::Download::month_to_nearest_year(9),"\n";
print App::Chart::Download::month_to_nearest_year(12),"\n";
exit 0;
}
{
my $zone = App::Chart::TZ->sydney;
print Dumper($zone);
print join(',',$zone->ymd),"\n";
print Dumper($zone);
print join(',',$zone->ymd),"\n";
print Dumper($zone);
sleep (2);
print join(',',$zone->ymd),"\n";
print Dumper($zone);
exit 0;
}
{
print App::Chart::Download::tdate_today_after
(10,0, App::Chart::TZ->sydney),"\n";
print App::Chart::Download::tdate_today_after
(16,0, App::Chart::TZ->sydney),"\n";
print App::Chart::Download::tdate_today_after
(20,0, App::Chart::TZ->sydney),"\n";
exit 0;
}
{
DBI->trace (0);
App::Chart::Download::consider_latest_from_daily (['BHP.AX']);
exit 0;
}
{
my $t = gmtime();
print $t->hms," \n";
exit 0;
}