examples/piped-demo.pl.in

   1 #! @PERL@
   2
   3 use lib qw( @prefix@/lib/perl );
   4
   5 use RRDp;
   6
   7 # this simpulates a standard mrtg-2.x setup ... we can use this to
   8 # compare performance ...
   9
  10 $main::DEBUG=0;
  11 $STEP = 300;
  12 $RUNS = 12*24*30*6;
  13 $GRUNS = 20;
  14 $RRD = "piped-demo.rrd";
  15 $SVG = "piped-demo.svg";
  16 $PNG = "piped-demo.png";
  17
  18 # some magic to find the correct rrdtol executable
  19 if ( -x "@exec_prefix@/bin/rrdtool") {
  20    RRDp::start "@exec_prefix@/bin/rrdtool";
  21 } elsif ( -x "../bin/rrdtool") {
  22    RRDp::start "../bin/rrdtool";
  23 } else {
  24    RRDp::start "../src/rrdtool";
  25 }
  26
  27 print "* Creating RRD with properties equivalent to mrtg-2.x logfile\n\n";
  28
  29 $START = time()-$RUNS*$STEP;
  30
  31 RRDp::cmd "create $RRD -b $START -s $STEP
  32         DS:in:GAUGE:400:U:U
  33         DS:out:GAUGE:400:U:U
  34         RRA:AVERAGE:0.5:1:600
  35         RRA:AVERAGE:0.5:6:600
  36         RRA:MAX:0.5:6:600
  37         RRA:AVERAGE:0.5:24:600
  38         RRA:MAX:0.5:24:600
  39         RRA:AVERAGE:0.5:144:600
  40         RRA:MAX:0.5:144:600";
  41
  42 $answer = RRDp::read;
  43 ($user,$sys,$real) =  ($RRDp::user,$RRDp::sys,$RRDp::real);
  44
  45 print "* Filling RRD with $RUNS Values. One moment please ...\n";
  46 print "  If you are running over NFS this will take *MUCH* longer\n\n";
  47
  48 for ($i=$START+1;
  49      $i<$START+$STEP*$RUNS;
  50      $i+=$STEP+int((rand()-0.5)*7)){
  51
  52   $line = "update $RRD $i:".int(rand(100000)).":".int(rand(100000));
  53   RRDp::cmd $line;
  54   $answer = RRDp::read;
  55 }
  56
  57 ($user1,$sys1,$real1) =  ($RRDp::user,$RRDp::sys,$RRDp::real);
  58
  59 printf "-- performance analysis Update test\n".
  60        "   usr/upd: %1.5fs sys/upd: %1.5fs real/upd: %1.5fs upd/sec: %1.0f\n",
  61   ($user1-$user)/($RUNS), ($sys1-$sys)/($RUNS),
  62   ($real1-$real)/($RUNS), ($RUNS)/($real1-$real);
  63 print "\n";
  64 # creating some graphs
  65
  66 print "* Creating $GRUNS SVG graphs: $SVG\n\n";
  67 $now = time;
  68 $localtime = scalar localtime(time);
  69 $localtime = s/:/\\:/g;
  70 for ($i=0;$i<$GRUNS;$i++) {
  71 RRDp::cmd "graph $SVG ", "--title 'Test GRAPH' ",
  72         "--imgformat SVG --height 150 --vertical-label 'Dummy Units' ".
  73         "--start now".(-$RUNS*$STEP),
  74         "--color ARROW#bfbfbf",
  75         "DEF:alpha=$RRD:in:AVERAGE",
  76         "DEF:beta=$RRD:out:AVERAGE",
  77         "CDEF:calc=alpha,beta,+,1.5,/",
  78         "AREA:alpha#0022e9:Alpha",
  79         "STACK:beta#00b871:Beta",
  80         "STACK:calc#ff0091:Calc\\j",
  81         "PRINT:alpha:AVERAGE:'Average Alpha\\: %1.2lf %S'",
  82         "PRINT:alpha:MIN:'Min Alpha\\: %1.2lf %S'",
  83         "PRINT:alpha:MAX:'Max Alpha\\: %1.2lf %S'",
  84         "GPRINT:calc:AVERAGE:'Average calc\\: %1.2lf %S\\r'",
  85         "GPRINT:calc:MIN:'Min calc\\: %1.2lf %S'",
  86         "GPRINT:calc:MAX:'Max calc\\: %1.2lf %S'",
  87         "VRULE:".($now-3600)."#008877:'60 Minutes ago'",
  88         "COMMENT:'\\s'",
  89         "COMMENT:'Graph created on\\: ".$localtime."\\c'";
  90
  91 $answer = RRDp::read;
  92 }
  93 ($user2,$sys2,$real2) =  ($RRDp::user,$RRDp::sys,$RRDp::real);
  94
  95 print "ANSWER:\n$$answer";
  96
  97 printf "\n-- average Time for one Graph\n".
  98        "   usr/grf: %1.5fs sys/grf: %1.5fs real/grf: %1.5fs   graphs/sec: %1.2f\n",
  99   ($user2-$user1)/$GRUNS,
 100   ($sys2-$sys1)/$GRUNS,
 101   ($real2-$real1)/$GRUNS,
 102   $GRUNS/($real2-$real1);
 103
 104 print "\n\n* Creating $GRUNS PNG graphs: $PNG\n\n";
 105
 106 $now = time;
 107 ($user1,$sys1,$real1) =  ($RRDp::user,$RRDp::sys,$RRDp::real);
 108 my $local = "".localtime(time());
 109 $local =~ s/:/\\:/g;
 110
 111 for ($i=0;$i<$GRUNS;$i++) {
 112 RRDp::cmd "graph $PNG ", "--title 'Test GRAPH' ",
 113         "--imgformat PNG --height 150 --vertical-label 'Dummy Units' ".
 114         "--start now".(-$RUNS*$STEP),
 115         "--color ARROW#bfbfbf",
 116         "DEF:alpha=$RRD:in:AVERAGE",
 117         "DEF:beta=$RRD:out:AVERAGE",
 118         "CDEF:calc=alpha,beta,+,1.5,/",
 119         "AREA:alpha#0022e9:Alpha",
 120         "STACK:beta#00b871:Beta",
 121         "STACK:calc#ff0091:Calc\\j",
 122         "PRINT:alpha:AVERAGE:'Average Alpha\\: %1.2lf %S'",
 123         "PRINT:alpha:MIN:'Min Alpha\\: %1.2lf %S'",
 124         "PRINT:alpha:MAX:'Max Alpha\\: %1.2lf %S'",
 125         "GPRINT:calc:AVERAGE:'Average calc\\: %1.2lf %S\\r'",
 126         "GPRINT:calc:MIN:'Min calc\\: %1.2lf %S'",
 127         "GPRINT:calc:MAX:'Max calc\\: %1.2lf %S'",
 128         "VRULE:".($now-3600)."#008877:'60 Minutes ago'",
 129         "COMMENT:'\\s'",
 130         "COMMENT:'Graph created on\\: $local\\c'";
 131
 132 $answer = RRDp::read;
 133 }
 134 ($user2,$sys2,$real2) =  ($RRDp::user,$RRDp::sys,$RRDp::real);
 135
 136 print "ANSWER:\n$$answer";
 137
 138 printf "\n-- average Time for one PNG Graph\n".
 139        "   usr/grf: %1.5fs sys/grf: %1.5fs real/grf: %1.5fs".
 140        "  graphs/sec: %1.2f\n\n",
 141   ($user2-$user1)/$GRUNS,
 142   ($sys2-$sys1)/$GRUNS,
 143   ($real2-$real1)/$GRUNS,
 144   $GRUNS/($real2-$real1);
 145
 146 RRDp::end;