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
|
$NetBSD: patch-an,v 1.1.1.1 1999/11/17 17:34:39 wennmach Exp $
--- examples/piped-demo.pl.in.orig Sun Nov 14 13:09:23 1999
+++ examples/piped-demo.pl.in Sun Nov 14 13:10:27 1999
@@ -16,7 +16,6 @@
$RUNS = 12*24*30*6;
$GRUNS = 20;
$RRD = "piped-demo.rrd";
-$GIF = "piped-demo.gif";
$PNG = "piped-demo.png";
# some magic to find the correct rrdtol executable
@@ -66,42 +65,6 @@
($real1-$real)/($RUNS), ($RUNS)/($real1-$real);
print "\n";
# creating some graphs
-
-print "* Creating $GRUNS GIF graphs: $GIF\n\n";
-$now = time;
-for ($i=0;$i<$GRUNS;$i++) {
-RRDp::cmd "graph $GIF ", "--title 'Test GRAPH' ",
- "--height 150 --vertical-label 'Dummy Units' ".
- "--start now".(-$RUNS*$STEP),
- "--color ARROW#bfbfbf",
- "DEF:alpha=$RRD:in:AVERAGE",
- "DEF:beta=$RRD:out:AVERAGE",
- "CDEF:calc=alpha,beta,+,1.5,/",
- "AREA:alpha#0022e9:Alpha",
- "STACK:beta#00b871:Beta",
- "STACK:calc#ff0091:Calc\\j",
- "PRINT:alpha:AVERAGE:'Average Alpha\\: %1.2f %S'",
- "PRINT:alpha:MIN:'Min Alpha\\: %1.2f %S'",
- "PRINT:alpha:MAX:'Max Alpha\\: %1.2f %S'",
- "GPRINT:calc:AVERAGE:'Average calc\\: %1.2f %S\\r'",
- "GPRINT:calc:MIN:'Min calc\\: %1.2f %S'",
- "GPRINT:calc:MAX:'Max calc\\: %1.2f %S'",
- "VRULE:".($now-3600)."#008877:'60 Minutes ago'",
- "COMMENT:'\\s'",
- "COMMENT:'Graph created on: ".localtime(time())."\\c'";
-
-$answer = RRDp::read;
-}
-($user2,$sys2,$real2) = ($RRDp::user,$RRDp::sys,$RRDp::real);
-
-print "ANSWER:\n$$answer";
-
-printf "\n-- average Time for one Graph\n".
- " usr/grf: %1.5fs sys/grf: %1.5fs real/grf: %1.5fs graphs/sec: %1.2f\n",
- ($user2-$user1)/$GRUNS,
- ($sys2-$sys1)/$GRUNS,
- ($real2-$real1)/$GRUNS,
- $GRUNS/($real2-$real1);
print "\n\n* Creating $GRUNS PNG graphs: $PNG\n\n";
|
