source: trunk/scripts/munin/web/usage.cgi @ 1968

Last change on this file since 1968 was 1788, checked in by quentin, 16 years ago

Add Munin graphing script

  • Property svn:executable set to *
File size: 1.9 KB
Line 
1#!/usr/bin/perl -wT
2
3use diagnostics;
4use constant GRAPH_DIR => "/var/lib/munin/xvm-prod-hosts.mit.edu";
5use CGI;
6use CGI::Carp qw(fatalsToBrowser);
7use RRDs;
8use File::Spec::Functions;
9
10our %graph_types = (cpu => "xen_cpu");
11our %formats = qw(svg image/svg+xml png image/png eps application/postscript pdf application/pdf);
12
13my @args = (qw(
14--font LEGEND:7:/usr/share/munin/VeraMono.ttf
15--font UNIT:7:/usr/share/munin/VeraMono.ttf
16--font AXIS:7:/usr/share/munin/VeraMono.ttf
17-
18--title), "Domain CPU usage", qw(
19--base 1000
20-r
21--lower-limit 0
22--vertical-label %
23--height 175
24--width 400
25--units-exponent 0));
26
27my $q = new CGI;
28
29my $format = $q->param("format") || "png";
30my $mime_type;
31if (exists($formats{$format})) {
32    $format =~ m|^(\w+)$| or die "Invalid format";
33    $format = $1;
34    $mime_type = $formats{$format};
35} else {
36    die "Invalid format";
37}
38
39push @args, "--imgformat", uc($format);
40
41my $days = $q->param("days") || "8";
42$days =~ m|^(\d+)$| or die "Invalid number of days specified";
43$days = int($1);
44
45my $uuid = $q->param("uuid");
46$uuid =~ m|^([0-9a-f]{8})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{12})$| or die "Invalid UUID specified";
47$uuid = "$1_$2_$3_$4_$5";
48
49my $type = $q->param("type") || "cpu";
50$type =~ m|^(\w+)$| or die "Invalid graph type";
51$type = $graph_types{$1} or die "Invalid graph type";
52
53my $path = catfile(GRAPH_DIR, "*-$type-$uuid-?.rrd");
54my @files = glob $path or die "No data found";
55
56push @args, "--start", "-".$days."d";
57
58foreach my $i (0..$#files) {
59  $files[$i] =~ m|^([^:]+)$|;
60  push @args, "DEF:odata$i=$1:42:AVERAGE";
61  push @args, "CDEF:data$i=odata$i,UN,0,odata$i,IF,10000,/";
62}
63push @args, "CDEF:total=0,".join(",+,", map {"data$_"} 0..$#files).",+";
64push @args, "AREA:total#0000FF";
65
66$ENV{"PATH"} = "/usr/local/bin:/usr/bin:/bin";
67
68print $q->header(-type=>$mime_type);
69$|=1;
70
71{
72    use Data::Dumper;
73    print STDERR "XVM usage: ", Dumper(\@args);
74}
75RRDs::graph (@args);
Note: See TracBrowser for help on using the repository browser.