From e6d4512b797e14489f33ecf1aeb31eef367da339 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 26 Jun 2010 15:29:02 +0100
Subject: [PATCH] different ranges

---
 cgi | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/cgi b/cgi
index 998041a..85c2e52 100755
--- a/cgi
+++ b/cgi
@@ -21,6 +21,9 @@ our (@sections, %sections, %graphs);
 sub graph ($$$$) {
     my ($section, $gname, $basis, $args) = @_;
     $basis->{Args}= $args;
+    $basis->{DefTimeRange} ||= 3600;
+    $basis->{MinTimeRange} ||= 3600;
+    $basis->{MaxTimeRange} ||= 28*86400;
     $graphs{$section,$gname}= $basis;
     if (!exists $sections{$section}) {
 	push @sections, $section;
@@ -72,7 +75,11 @@ foreach my $src (<$R/df/df-*.rrd>) {
     $vol =~ s,.*/,,;
     $vol =~ s,^df-,,;
     $vol =~ s,\.rrd$,,;
-    graph('Disk space', $vol, { },
+    graph('Disk space', $vol, {
+	     MinTimeRange => 86400,
+	     MaxTimeRange => (13*7+1)*86400,
+	     DefTimeRange => 7*86400
+          },
 	  [
 	   qw(-b 1024 -l 0),
 	   (map { "DEF:$_=$src:$_:AVERAGE" } qw(free used)),
@@ -134,9 +141,12 @@ sub start_page ($) {
 
 my $detail= param('detail');
 if ($detail) {
-    die unless $graphs{$section,$detail};
+    my $g= $graphs{$section,$detail};
+    die unless $g;
     start_page("$detail graphs");
-    foreach my $end (qw(3600 86400 604800 2419200)) {
+    foreach my $end (qw(300 3600 86400 604800 2419200 7948800)) {
+	next if $end < $g->{MinTimeRange};
+	next if $end > $g->{MaxTimeRange};
         print "<img src=\"$self?graph=$detail&section=$section&end=$end\">\n";
     }
     print end_html();
@@ -152,7 +162,8 @@ if (param('debug')) {
 start_page("$section graphs");
 
 foreach my $gname (@{ $sections{$section} }) {
+    my $g= $graphs{$section,$gname};
     print "<a href=\"$self?detail=$gname&section=$section\">"; #,h2($gname),"</a>";
-    print "<img src=\"$self?graph=$gname&section=$section\"></a>\n";
+    print "<img src=\"$self?graph=$gname&section=$section&end=$g->{DefTimeRange}\"></a>\n";
 }
 
-- 
2.30.2