#!/usr/local/bin/perl

use strict;
use warnings;

use RRDs;

my $RRD   = 'graph.rrd';
my $PNG   = 'graph.png';
my $START = 1214661600;
my $STEP  = 300;

if (-f $RRD) {
    unlink $RRD;
}

RRDs::create(
    $RRD,
    '--start', $START, '-s', $STEP,
    'DS:ds:COUNTER:600:0:U',
    'RRA:AVERAGE:0.5:1:600',
    'RRA:AVERAGE:0.5:6:700',
    'RRA:AVERAGE:0.5:24:775',
    'RRA:AVERAGE:0.5:288:797',
    'RRA:MAX:0.5:1:600',
    'RRA:MAX:0.5:6:700',
    'RRA:MAX:0.5:24:775',
    'RRA:MAX:0.5:288:797',
);

for my $i (0..10) {
    RRDs::update($RRD, sprintf '%d:%d', $START + $i * 300, $i * 1000);
}

my @rv = RRDs::graph(
    $PNG,
    '-t', 'Demo',
    '-z',
    '-l', 0,
    '-a', 'PNG',
    "DEF:a=$RRD:ds:AVERAGE",
    'AREA:a#00cc00:Value',
);

print "xsize = $rv[1]\n";
print "ysize = $rv[2]\n";