package req Rrd
#source  /var/www/openacs.org/packages/xowiki/tcl/rrd-procs.tcl
source /var/www/openacs.org/packages/rrd-tool/tcl/rrd-procs.tcl

set ::head ""

#set ::colors {8dd3c7 ffffb3 bebada fb8072 80b1d3 fdb462 b3de69 fccde5 d9d9d9 bc80bd ccebc5 ffed6f}
set ::colors {8dd3c7 ffdd00 bebada fb8072 80b1d3 fdb462 b3de69 fccde5 d9d9d9 bc80bd ccebc5 0000ff}

####################################################################
#
# DB Stats
#
####################################################################
set plugin ::rrd::plugin::dbstats
append ::_ "<h3>Graphs from $plugin (26h)</h3>"

foreach pool {pool1 pool2 pool3} {
    set g [rrd::Graph create $pool \
	       -title "DB Statistics of openacs.org from Pool $pool" \
	       -logarithmic \
	       -vertical-label "Operations or ms spent per minute" \
	       -start -1560m \
	       -slope-mode \
	       -period minutes]
    foreach var {gethandles statements sqltime waittime} color {00aaaa 00ff00 ffdd00 fdb462} {
	if {$var eq ""} break
	$pool elements add [rrd::DataLine new -datasource [$plugin datasource $pool-$var] -legend $var -color $color]
    }
    Rrd::graph {*}[$pool render]
    append ::_ "<img src='[$g imgName]'>\n"
    append ::log "<p>[join [$pool render] <br>\n]<br>\n"
}

####################################################################
#
# ::rrd::plugin::memsize
#
####################################################################
set plugin ::rrd::plugin::memsize
append ::_ "<h3>Graphs from $plugin (3h)</h3>"

if {0} { foreach ds [$plugin datasources] {$ds deleteRRD; s requireRRD} }

set g [rrd::Graph create memsize \
	   -title "Memory footprint of openacs.org" \
	   -lower-limit 0 \
	   -base 1024 \
	   -start -180m \
	   -slope-mode]

foreach var {rss vsize} color {0000aa 00aa00} {
    $g elements add [rrd::DataLine new -datasource [$plugin datasource $var] -legend $var -color $color]
}
Rrd::graph {*}[$g render]
append ::_ "<img src='[$g imgName]'>\n"
append ::log "<p>[join [$g render] <br>\n]<br>\n"

set g [rrd::Graph create memsize2 \
	   -title "Memory footprint of openacs.org" \
	   -lower-limit 0 \
	   -base 1024 \
	   -start -180m \
	   -slope-mode]
foreach var {rss vsize} color {0000aa 00aa00} color2 {c1c1ff c1ffc1} {
    $g elements add [rrd::DataArea new \
			 -datasource [$plugin datasource $var] \
			 -legend $var -color $color -color2 $color2]
}
Rrd::graph {*}[$g render]
append ::_ "<img src='[$g imgName]'>\n"
append ::log "<p>[join [$g render] <br>\n]<br>\n"


####################################################################
#
# response time
#
####################################################################

set plugin ::rrd::plugin::responsetime
append ::_ "<h3>Graphs from $plugin (2h)</h3>"

if {0} { foreach ds [$plugin datasources] {$ds deleteRRD; s requireRRD} }

set g [rrd::Graph create responsetime \
	   -title "Response time of openacs.org" \
	   -vertical-label "Seconds" \
	   -lower-limit 0 \
	   -start -120m \
	   -slope-mode]

$g elements add [rrd::DataLine new \
		     -datasource [$plugin datasource responsetime] \
		     -legend responsetime -color 00aa00 ]

Rrd::graph {*}[$g render]
append ::_ "<img src='[$g imgName]'>\n"
append ::log "<p>[join [$g render] <br>\n]<br>\n"

set g [rrd::Graph create responsetime2 \
	   -title "Response time of openacs.org" \
	   -vertical-label "Seconds" \
	   -lower-limit 0  \
	   -start -120m \
	   -slope-mode]

$g elements add [rrd::DataArea new \
		     -datasource [$plugin datasource responsetime] \
		     -legend responsetime -color 00aa00 -color2 c1ffc1 ]

set t [time {Rrd::graph {*}[$g render]}]
append ::_ "<img src='[$g imgName]'> ($t)<br>\n"
append ::log "<p>[join [$g render] <br>\n]<br>\n"

#
# Thumbnail
#

set g [rrd::Graph create responsetime3 \
	   -title "Response time of openacs.org" \
	   -vertical-label "Seconds" \
	   -lower-limit 0  \
	   -start -120m \
	   -only-graph -height 30 -width 100]

$g elements add [rrd::DataArea new \
		     -datasource [$plugin datasource responsetime] \
		     -legend responsetime -color 00aa00 -color2 c1ffc1 ]

set t [time {Rrd::graph {*}[$g render]}]
append ::_ "<p>Thumbnail last 2h: <img src='[$g imgName]'> ($t)<br>\n"
#append ::log "<p>[join [$g render] <br>\n]<br>\n"

#
# SVG
#
set g [rrd::Graph create responsetime5 -imgformat SVG \
	   -title "Response time of openacs.org (1 day) -- SVG" \
	   -vertical-label "Seconds" \
	   -lower-limit 0 -start -25h -slope-mode]

$g elements add [rrd::DataArea new \
		     -datasource [$plugin datasource responsetime] \
		     -legend responsetime -color 00aa00 -color2 c1ffc1 ]
#$g elements add [rrd::TrendLine new \
		     -datasource [$plugin datasource responsetime] \
		     -color aa0000] end

set t [time {Rrd::graph {*}[$g render]}]
append ::_ "<img src='[$g imgName]'> ($t)<br>\n"
append ::log "<p>[join [$g render] <br>\n]<br>\n"
#set ::log "<p>[join [$g render] <br>\n]<br>\n"




###########################################################################
set ::head {
<html>
<head>
    <title>RRD Test</title>
}

foreach f {
    sprintf.js strftime.js RrdRpn.js RrdTime.js RrdGraph.js RrdGfxSvg.js
    binaryXHR.js rrdFile.js RrdDataFile.js RrdCmdLine.js
} {
    append ::head [subst {<script type="text/javascript" src="/jsrrdgraph/js/$f"></script>\n}]
}

append ::head {
    		<script type="application/x-javascript">
			var mouse_move = function (e) {
				if (this.rrdgraph.mousedown) {
					var factor = (this.rrdgraph.end - this.rrdgraph.start) / this.rrdgraph.xsize;
					var x = e.pageX;// - this.offsetLeft;
					var diff = x - this.rrdgraph.mousex;
					var difffactor = Math.abs(Math.round(diff*factor));
					if (diff > 0) {
						this.rrdgraph.end -= difffactor;
						this.rrdgraph.start -= difffactor;
					} else {
						this.rrdgraph.end += difffactor;
						this.rrdgraph.start += difffactor;
					}
					this.rrdgraph.mousex = x;
					var start = new Date();
					try {
						this.rrdgraph.graph_paint();
					} catch (e) {
						alert(e+"\n"+e.stack);
					}
					var end = new Date();
					document.getElementById("draw").innerHTML = 'Draw time: '+(end.getTime()-start.getTime())+"ms";
				}
			};
			var mouse_up = function (e) { 
				this.rrdgraph.mousedown = false;
				this.style.cursor="default";
			};
			var mouse_down = function (e) {
				var x = e.pageX; // - this.offsetLeft;
				this.rrdgraph.mousedown = true;
				this.rrdgraph.mousex = x;
				this.style.cursor="move";
			};
			var mouse_scroll = function (e) {
				e = e ? e : window.event;
				var wheel = e.detail ? e.detail * -1 : e.wheelDelta / 40;
				var cstime = this.stime[this.stidx];
				if (wheel > 0) {
					this.stidx++;
					if (this.stidx >= this.stlen) this.stidx = this.stlen-1;
				} else {
					this.stidx--;
					if (this.stidx < 0) this.stidx = 0;
				}
				if (cstime !== this.stime[this.stidx])  {
					var middle = this.rrdgraph.start + Math.abs(Math.round((this.rrdgraph.end - this.rrdgraph.start)/2));
					this.rrdgraph.start = Math.round(middle - this.stime[this.stidx]/2);
					this.rrdgraph.end = this.rrdgraph.start + this.stime[this.stidx];

					var start = new Date();
					try {
						this.rrdgraph.graph_paint();
					} catch (e) {
						alert(e+"\n"+e.stack);
					}
					var end = new Date();
					document.getElementById("draw").innerHTML = 'Draw time: '+(end.getTime()-start.getTime())+"ms";
				}

				if(e.stopPropagation)
					e.stopPropagation();
				if(e.preventDefault)
					e.preventDefault();
				e.cancelBubble = true;
				e.cancel = true;
				e.returnValue = false;
				return false; 
			};

			function draw() {
				RrdGraph.prototype.mousex = 0;
				RrdGraph.prototype.mousedown = false;

				var cmdline = document.getElementById("cmdline").value;
				var gfx = new RrdGfxSvg("svg");
        var fetch = new RrdDataFile();
        var rrdcmdline = null;

        var start = new Date();
        try {
          rrdcmdline = new RrdCmdLine(gfx, fetch, cmdline);
				} catch (e) {
					alert(e+"\n"+e.stack);
				}

				var rrdgraph = rrdcmdline.graph;
				
				gfx.svg.stime = [ 300, 600, 900, 1200, 1800, 3600, 7200, 21600, 43200, 86400, 172800, 604800, 2592000, 5184000, 15768000, 31536000 ];
				gfx.svg.stlen = gfx.svg.stime.length;
				gfx.svg.stidx = 0;

				gfx.svg.rrdgraph = rrdgraph;
				gfx.svg.removeEventListener('mousemove', mouse_move, false);
				gfx.svg.addEventListener('mousemove', mouse_move, false);
				gfx.svg.removeEventListener('mouseup', mouse_up, false);
				gfx.svg.addEventListener('mouseup', mouse_up, false);
				gfx.svg.removeEventListener('mousedown', mouse_down, false);
				gfx.svg.addEventListener('mousedown', mouse_down, false);
				gfx.svg.removeEventListener('mouseout', mouse_up, false);
				gfx.svg.addEventListener('mouseout', mouse_up, false);
				gfx.svg.removeEventListener('DOMMouseScroll', mouse_scroll, false);  
				gfx.svg.addEventListener('DOMMouseScroll', mouse_scroll, false);  
				gfx.svg.removeEventListener('mousewheel', mouse_scroll, false);
				gfx.svg.addEventListener('mousewheel', mouse_scroll, false);

				var end = new Date();
				document.getElementById("parse").innerHTML = 'Parse time: '+(end.getTime()-start.getTime())+"ms";

				var diff = rrdgraph.end - rrdgraph.start;
				for (var i=0; i < gfx.svg.stlen; i++) {
					if (gfx.svg.stime[i] >= diff)  break;
				}
				if (i === gfx.svg.stlen) gfx.svg.stidx = gfx.svg.stlen-1;
				else gfx.svg.stidx = i;

				var start = new Date();
				try {
					rrdgraph.graph_paint();
				} catch (e) {
					alert(e+"\n"+e.stack);
				}
				var end = new Date();
				document.getElementById("draw").innerHTML = 'Draw time: '+(end.getTime()-start.getTime())+"ms";
			}
		</script>
	</head>
	<body>
}


append ::_ {
<textarea id="cmdline" rows="10" cols="120">
--slope-mode
--start -120m
--title "Response time of openacs.org"
--lower-limit 0
--color FONT#666666
--color ARROW#CFD6F8
--height 175
--watermark "nx-rrd 0.1"
--font "DEFAULT:0:DejaVuSans,DejaVu Sans,DejaVu LGC Sans,Bitstream Vera Sans"
--font LEGEND:7:monospace
--font TITLE:12
--font AXIS:8
--font UNIT:8
--vertical-label Seconds
--base 1000
--width 400
"COMMENT: Cur Min Avg Max\l"
DEF:responsetimeavg=/var/www/openacs.org/www/rrd/localhost.localdomain_responsetime_responsetime-d.rrd:42:AVERAGE
DEF:responsetimemin=/var/www/openacs.org/www/rrd/localhost.localdomain_responsetime_responsetime-d.rrd:42:MIN
DEF:responsetimemax=/var/www/openacs.org/www/rrd/localhost.localdomain_responsetime_responsetime-d.rrd:42:MAX
CDEF:responsetimeavgscaled=responsetimeavg,1,*
CDEF:responsetimeminscaled=responsetimemin,1,*
CDEF:responsetimemaxscaled=responsetimemax,1,*
AREA:responsetimeavgscaled#c1ffc1:responsetime
GPRINT:responsetimecurscaled:LAST:%6.2lf%s
GPRINT:responsetimeminscaled:MIN:%6.2lf%s
GPRINT:responsetimeavgscaled:AVERAGE:%6.2lf%s
GPRINT:responsetimemaxscaled:MAX:%6.2lf%s\l
"COMMENT:Last update\: Wed Oct 28 11\:52\:34 +0100 2015\r"
</textarea>
<br>
<button name="submit" onclick="javascript:draw()" >draw</button>
<br>
<svg id="svg" xmlns="http://www.w3.org/2000/svg" version="1.1"></svg>
<br>
<span id="parse"></span>
<br>
<span id="draw"></span>
    
}

ns_return 200 text/html $::head$::_$