7c29bb015e69f51863787c049b569702b10b245b
1 #!/usr/bin/perl
3 use strict;
4 use warnings;
5 use lib ('../lib');
7 use FindBin ('$RealBin');
8 use Carp (qw(confess cluck));
9 use CGI (':cgi');
10 use RRDs ();
12 use Collectd::Graph::Config (qw(gc_read_config gc_get_scalar));
13 use Collectd::Graph::TypeLoader (qw(tl_load_type));
15 use Collectd::Graph::Common (qw(sanitize_type get_selected_files
16 epoch_to_rfc1123));
17 use Collectd::Graph::Type ();
19 our $Debug = param ('debug');
20 our $Begin = param ('begin');
21 our $End = param ('end');
22 our $GraphWidth = param ('width');
24 if ($Debug)
25 {
26 print <<HTTP;
27 Content-Type: text/plain
29 HTTP
30 }
32 gc_read_config ("$RealBin/../etc/collection.conf");
34 if ($GraphWidth)
35 {
36 $GraphWidth =~ s/\D//g;
37 }
39 if (!$GraphWidth)
40 {
41 $GraphWidth = gc_get_scalar ('GraphWidth', 400);
42 }
44 { # Sanitize begin and end times
45 $End ||= 0;
46 $Begin ||= 0;
48 if ($End =~ m/\D/)
49 {
50 $End = 0;
51 }
53 if (!$Begin || !($Begin =~ m/^-?([1-9][0-9]*)$/))
54 {
55 $Begin = -86400;
56 }
58 if ($Begin < 0)
59 {
60 if ($End)
61 {
62 $Begin = $End + $Begin;
63 }
64 else
65 {
66 $Begin = time () + $Begin;
67 }
68 }
70 if ($Begin < 0)
71 {
72 $Begin = time () - 86400;
73 }
75 if (($End > 0) && ($Begin > $End))
76 {
77 my $temp = $End;
78 $End = $Begin;
79 $Begin = $temp;
80 }
81 }
83 my $type = param ('type') or die;
84 my $obj;
86 $obj = tl_load_type ($type);
87 if (!$obj)
88 {
89 confess ("tl_load_type ($type) failed");
90 }
92 $type = ucfirst (lc ($type));
93 $type =~ s/_([A-Za-z])/\U$1\E/g;
94 $type = sanitize_type ($type);
96 my $files = get_selected_files ();
97 if ($Debug)
98 {
99 require Data::Dumper;
100 print STDOUT Data::Dumper->Dump ([$files], ['files']);
101 }
102 for (@$files)
103 {
104 $obj->addFiles ($_);
105 }
107 my $expires = time ();
108 # IF (End is `now')
109 # OR (Begin is before `now' AND End is after `now')
110 if (($End == 0) || (($Begin <= $expires) && ($End >= $expires)))
111 {
112 # 400 == width in pixels
113 my $timespan;
115 if ($End == 0)
116 {
117 $timespan = $expires - $Begin;
118 }
119 else
120 {
121 $timespan = $End - $Begin;
122 }
123 $expires += int ($timespan / 400.0);
124 }
125 # IF (End is not `now')
126 # AND (End is before `now')
127 # ==> Graph will never change again!
128 elsif (($End > 0) && ($End < $expires))
129 {
130 $expires += (366 * 86400);
131 }
132 elsif ($Begin > $expires)
133 {
134 $expires = $Begin;
135 }
137 print STDOUT header (-Content_type => 'image/png',
138 -Last_Modified => epoch_to_rfc1123 ($obj->getLastModified ()),
139 -Expires => epoch_to_rfc1123 ($expires));
141 if ($Debug)
142 {
143 print "\$expires = $expires;\n";
144 }
146 my $args = $obj->getRRDArgs (0);
148 if ($Debug)
149 {
150 require Data::Dumper;
151 print STDOUT Data::Dumper->Dump ([$obj], ['obj']);
152 print STDOUT join (",\n", @$args) . "\n";
153 print STDOUT "Last-Modified: " . epoch_to_rfc1123 ($obj->getLastModified ()) . "\n";
154 }
155 else
156 {
157 my @timesel = ();
159 if ($End) # $Begin is always true
160 {
161 @timesel = ('-s', $Begin, '-e', $End);
162 }
163 else
164 {
165 @timesel = ('-s', $Begin); # End is implicitely `now'.
166 }
168 $| = 1;
169 RRDs::graph ('-', '-a', 'PNG', '--width', $GraphWidth, @timesel, @$args);
170 if (my $err = RRDs::error ())
171 {
172 print STDERR "RRDs::graph failed: $err\n";
173 exit (1);
174 }
175 }
177 exit (0);
179 # vim: set shiftwidth=2 softtabstop=2 tabstop=8 :