hjp
/
timeseries
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

10 days is too long for 1 tick/4 hours - reduced to 8 days.

This commit is contained in:
hjp 2005-02-23 14:02:37 +00:00
parent 2df211737b
commit a23fcb5862
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TimeSeries.pm
View File

@ -27,7 +27,7 @@ use Data::Dumper;
use HTTP::Date qw(parse_date); use HTTP::Date qw(parse_date);
use Time::Local qw(timegm_nocheck); use Time::Local qw(timegm_nocheck);
$VERSION = do { my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r}; $VERSION = do { my @r=(q$Revision: 1.9 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
=head2 new(%opts) =head2 new(%opts)
@ -355,8 +355,8 @@ sub plot {
} }
$lasttime = $time; $lasttime = $time;
print $ctlfh ")\n"; print $ctlfh ")\n";
} elsif ($lasttime - $firsttime > 10 * 24 * 3600) { } elsif ($lasttime - $firsttime > 8 * 24 * 3600) {
# 10 .. 30 days: 1 tick per day. # 8 .. 30 days: 1 tick per day.
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
$sec = $min = $hour = 0; $sec = $min = $hour = 0;
@ -379,7 +379,7 @@ sub plot {
$lasttime = $time; $lasttime = $time;
print $ctlfh ")\n"; print $ctlfh ")\n";
} elsif ($lasttime - $firsttime > 2 * 24 * 3600) { } elsif ($lasttime - $firsttime > 2 * 24 * 3600) {
# 2 .. 10 days: 1 tick/4 hours # 2 .. 8 days: 1 tick/4 hours
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
$sec = $min = $hour = 0; $sec = $min = $hour = 0;