1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/sepp/bin/perl-5.8.8 -w
require 5.008;
use strict;
use Getopt::Long 2.25 qw(:config posix_default no_ignore_case);
use Pod::Usage 1.14;
#use CGI::Fast;
use CGI;
use lib qw(/home/oetiker/scratch/rrd-13dev/lib/perl);
use lib qw(/usr/pack/rrdtool-1.2.23-mo/lib/perl/);
use RRDs;
'$Revision: 3879 $ ' =~ /Revision: (\S*)/;
my $Revision = $1;
# main loop
sub main()
{
# parse options
my %opt = ();
GetOptions(\%opt, 'help|h', 'man', 'version', 'noaction|no-action|n',
'verbose|v') or exit(1);
if($opt{help}) { pod2usage(1) }
if($opt{man}) { pod2usage(-exitstatus => 0, -verbose => 2) }
if($opt{version}) { print "template_tool $Revision\n"; exit(0) }
if($opt{noaction}) { die "ERROR: don't know how to \"no-action\".\n" }
# while (my $q = new CGI::Fast) {
my $q = new CGI;
my $graph = $q->param('g');
my $width = $q->param('w') || 300;
my $height = $q->param('h') || 150;
warn "groesse: $width $height\n";
RRDs::graph("/tmp/$$.tmpgraph",
'--title' => "Demo ".$graph,
'--vertical-label' => "Bytes/s",
'--start' => '20071101',
'--end' => '20071112',
# '--zoom' => '0.75',
'--width' => $width,
'--height' => $height,
'--color' => 'BACK#ffffff00',
'--color' => 'SHADEA#ffffff00',
'--color' => 'SHADEB#ffffff00',
'DEF:in=lan.rrd:out:AVERAGE',
'CDEF:green=in,100000,LT,in,100000,IF',
'AREA:green#00ff00',
'CDEF:red=in,50000,LT,in,50000,IF',
'AREA:red#ff0000',
'LINE1:in#2020ff:Input',
'CDEF:flip=LTIME,172800,%,86400,LT,in,UNKN,IF',
'AREA:flip#00000088');
my $ERROR = RRDs::error();
die $ERROR if $ERROR;
if (open (my $fh,"</tmp/$$.tmpgraph")){
local $/=undef;
my $image = <$fh>;
unlink "/tmp/$$.tmpgraph";
close $fh;
print "Content-Type: image/png\n";
print "Expires: Thu, 15 Apr 2010 20:00:00 GMT\n";
print "Length: ".length($image)."\n";
print "\n";
print $image;
};
# }
};
main;
__END__
=head1 NAME
template_tool - ISGTC tool template
=head1 SYNOPSIS
B<template_tool> [I<options>...]
--man show man-page and exit
-h, --help display this help and exit
--version output version information and exit
=head1 DESCRIPTION
Very useful hello-world application... With a magic marker
##ISGTC_MAGIC_SYSCONFDIR##.
=head1 COPYRIGHT
Copyright (c) 2006 by ETH Zurich. All rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
=head1 AUTHOR
S<David Schweikert E<lt>dws@ee.ethz.chE<gt>>
=head1 HISTORY
2006-XX-XX ds Initial Version
=cut
# Emacs Configuration
#
# Local Variables:
# mode: cperl
# eval: (cperl-set-style "PerlStyle")
# mode: flyspell
# mode: flyspell-prog
# End:
#
# vi: sw=4 et
|
