From a23fcb5862b07223dfd34465fa6cf4fde2f5a494 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Wed, 23 Feb 2005 14:02:37 +0000
Subject: [PATCH] 10 days is too long for 1 tick/4 hours - reduced to 8 days.

---
 TimeSeries.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/TimeSeries.pm b/TimeSeries.pm
index d229d40..ff450a0 100644
--- a/TimeSeries.pm
+++ b/TimeSeries.pm
@@ -27,7 +27,7 @@ use Data::Dumper;
 use HTTP::Date qw(parse_date);
 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)
 
@@ -355,8 +355,8 @@ sub plot {
 	}
 	$lasttime = $time;
 	print $ctlfh ")\n";
-    } elsif ($lasttime - $firsttime > 10 * 24 * 3600) {
-	# 10 .. 30 days: 1 tick per day.
+    } elsif ($lasttime - $firsttime > 8 * 24 * 3600) {
+	# 8 .. 30 days: 1 tick per day.
 
 	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
 	$sec = $min = $hour = 0;
@@ -379,7 +379,7 @@ sub plot {
 	$lasttime = $time;
 	print $ctlfh ")\n";
     } 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);
 	$sec = $min = $hour = 0;