From d0b4894f58ca17de2b434d37ce4c070cf4cd7515 Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Sun, 18 Nov 2007 12:39:21 +0000
Subject: added grapher

---
 qooxdoo/source/grapher.cgi | 128 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100755 qooxdoo/source/grapher.cgi

(limited to 'qooxdoo')

diff --git a/qooxdoo/source/grapher.cgi b/qooxdoo/source/grapher.cgi
new file mode 100755
index 0000000..f3e844e
--- /dev/null
+++ b/qooxdoo/source/grapher.cgi
@@ -0,0 +1,128 @@
+#!/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 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#bfbfbf00',
+		    '--color'		=> 'SHADEA#bfbfbf00',
+		    '--color'		=> 'SHADEB#bfbfbf00',		
+		    '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
-- 
cgit v1.2.3-24-g4f1b