contrib/rrdjig/test-data.pl

   1 #!/usr/bin/perl -w
   2 require 5.008;
   3 use lib qw(/scratch/rrd-1.4.3-test2/lib/perl);
   4 use RRDs;
   5 my $start = time - 6*15*60;
   6 $start -= $start % 60;
   7 RRDs::create(qw(
   8     --step=60
   9     src.rrd
  10     DS:in:COUNTER:65:0:1000
  11     DS:out:COUNTER:65:0:1000
  12     DS:xyz:GAUGE:65:0:1000
  13     RRA:AVERAGE:0.5:1:10
  14     RRA:MIN:0.5:1:10
  15     RRA:MAX:0.5:2:10
  16     RRA:AVERAGE:0.5:3:10
  17     RRA:MIN:0.99:4:20
  18     RRA:MAX:0.5:3:10
  19     RRA:AVERAGE:0.5:5:10
  20     RRA:MIN:0.99:6:15
  21     RRA:MAX:0.5:4:15
  22 ),'--start',$start);
  23 die RRDs::error if RRDs::error;
  24 RRDs::create(qw(
  25     --step=60
  26     dst.rrd
  27     DS:newin:COUNTER:65:0:1000
  28     DS:newout:COUNTER:65:0:1000
  29     RRA:AVERAGE:0.5:1:10
  30     RRA:MIN:0.5:1:10
  31     RRA:MAX:0.5:2:10
  32     RRA:AVERAGE:0.5:3:10
  33     RRA:MIN:0.99:4:20
  34     RRA:MAX:0.5:3:10
  35     RRA:AVERAGE:0.5:5:10
  36     RRA:MIN:0.99:6:15
  37     RRA:MAX:0.5:4:15
  38 ),'--start',$start);
  39 die RRDs::error if RRDs::error;
  40 my $a = 0;
  41 for (my $i=$start;$i<=time;$i+=60){
  42     $a++;
  43     my $up = "$i:".($a*$a).":".$a.":".$a;
  44     RRDs::update('src.rrd',$up);
  45 }
  46 die RRDs::error if RRDs::error;
  47
  48
  49