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

Make less noise.

This commit is contained in:
hjp 2006-12-18 12:32:10 +00:00
parent f3308007c0
commit fd488facbf
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
TimeSeries.pm
View File

@ -33,7 +33,9 @@ use HTTP::Date qw(parse_date);
use Time::Local qw(timegm_nocheck);
use POSIX qw(strftime);
our $VERSION = do { my @r=(q$Revision: 1.18 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
our $VERSION = do { my @r=(q$Revision: 1.19 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
our $debug;
=head2 new(%opts)
@ -303,11 +305,11 @@ sub dstcorr {
if ($toff > $period/2) {
$toff -= $period;
}
print STDERR "correcting time by $toff seconds ";
printf STDERR "from %04d-%02d-%02d %02d:%02d:%02d ", $year+1900, $mon+1, $mday, $hour, $min, $sec;
print STDERR "correcting time by $toff seconds " if ($debug);
printf STDERR "from %04d-%02d-%02d %02d:%02d:%02d ", $year+1900, $mon+1, $mday, $hour, $min, $sec if ($debug);
$time -= $toff;
($sec,$min,$hour,$mday,$mon,$year) = localtime($time);
printf STDERR "to %04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec;
printf STDERR "to %04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec if ($debug);
}
return $time;
}
@ -404,7 +406,7 @@ sub plot {
}
if ($self->{output_format} eq "png") {
$pipe .= "pnmtopng |";
$pipe .= "pnmtopng 2>/dev/null |";
}
if ($self->{output_format} eq "gif") {
# the ppm tools are noisy. Shut them up.