From fd488facbf5a352a23d4b5cad157f9b081da94c6 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 18 Dec 2006 12:32:10 +0000
Subject: [PATCH] Make less noise.

---
 TimeSeries.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/TimeSeries.pm b/TimeSeries.pm
index 753ee04..3cded4b 100644
--- a/TimeSeries.pm
+++ b/TimeSeries.pm
@@ -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.