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;