diff options
Diffstat (limited to 'qooxdoo/source/smokeping.cgi')
-rwxr-xr-x | qooxdoo/source/smokeping.cgi | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/qooxdoo/source/smokeping.cgi b/qooxdoo/source/smokeping.cgi deleted file mode 100755 index 86abd8c..0000000 --- a/qooxdoo/source/smokeping.cgi +++ /dev/null @@ -1,82 +0,0 @@ -#!/usr/sepp/bin/perl-5.8.8 -w -use strict; -use lib qw( perl ); - -use CGI; -use CGI::Util qw(expires); -use CGI::Session; -use Qooxdoo::JSONRPC; -use lib qw(/home/oetiker/scratch/rrd-13dev/lib/perl); -use lib qw(/usr/pack/rrdtool-1.2.23-mo/lib/perl/); -use RRDs; - -$Qooxdoo::JSONRPC::debug=1; - -# Change this space-separated list of directories to include -# Qooxdoo::JSONRPC.pm and co-located Services - -# If this module can't be found, the previous line is incorrect - -# Instantiating the CGI module which parses the HTTP request - -my $cgi = new CGI; -my $session = new CGI::Session; - -# You can customise this harness here to handle cases before treating -# the request as being JSON-RPC -if ($cgi->param('g')){ - if (defined $ENV{HTTP_IF_MODIFIED_SINCE}){ - # if the browser needs reassurance, give it! - print "Status: 304 Not Modified\n"; - print "Last-Modified: $ENV{HTTP_IF_MODIFIED_SINCE}\n\n"; - exit 0; - }; - my $graph = $cgi->param('g'); - my $width = $cgi->param('w'); - my $height = $cgi->param('h'); - my $start = $cgi->param('s'); - my $end = $cgi->param('e'); - my $top = $cgi->param('t'); - my $bottom = $cgi->param('b'); - warn "groesse: $width $height\n"; - RRDs::graph("/tmp/$$.tmpgraph", - '--title' => "Demo ".$graph, - '--vertical-label' => "Bytes/s", - '--start' => $start, - '--end' => $end, - '--upper-limit' => $top, - '--lower-limit' => $bottom, - '--rigid', -# '--zoom' => '0.75', - '--width' => $width, - '--height' => $height, - '--color' => 'BACK#f0f0f0ff', - '--color' => 'SHADEA#f0f0f0ff', - '--color' => 'SHADEB#f0f0f0ff', - '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: ".expires(3600,'http')."\n"; - print "Last-Modified: ".expires(-3600,'http')."\n"; - print "Cache-Control: Public\n"; - print "Length: ".length($image)."\n"; - print "\n"; - print $image; - }; -} else { - Qooxdoo::JSONRPC::handle_request ($cgi, $session); -} - |