]>
git.zerfleddert.de Git - upsgraph/blob - mvrrd.pl
7 print("usage: mvrrd.pl src.rrd dst.rrd start end\n");
10 usage
() if scalar(@ARGV) != 4;
24 push @arg, "$time:$val";
26 my $error = RRDs
::error
;
27 die "RRD error: $error\n" if $error;
33 push @arg, "--start", $start;
34 push @arg, "--end", $end;
36 my ($dataStart,$step,$names,$data) = RRDs
::fetch
(@arg);
37 my $error = RRDs
::error
;
38 die "RRD error: $error\n" if $error;
39 print "Start: ", scalar localtime($dataStart), " ($dataStart)\n";
40 print "Step size: $step seconds\n";
41 print "DS names: ", join (", ", @
$names)."\n";
42 print "Data points: ", $#$data + 1, "\n";
44 for my $line (@
$data) {
45 # print " ", scalar localtime($dataStart), " ($dataStart) ";
46 my ($sec, $min, $hour, $mday, $mon, $year) = localtime($dataStart);
47 my $isoDate = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);
48 for my $val (@
$line) {
50 $val = 'U' if !defined $val;
51 # print "val: $val @ time $isoDate";
52 # print " ... Updating dst";
53 RRDupdate
($dataStart, $val);