#!/usr/bin/perl -w

use strict;
use lib qw( /usr/local/rrdtool-1.2.26/lib/perl );
use RRDs;

RRDs::graph "./example5.png",
    "--title=user_expavg_credit",
    "--start=-30d",
    "--lower-limit=0",
    "DEF:user_expavg0=szdg.lpds.sztaki.hu_szdg.rrd:expavg:LAST",
    "DEF:user_expavg1=www.primegrid.com.rrd:expavg:LAST",
    "LINE1:user_expavg0#FF0000:SZTAKI",
    "GPRINT:user_expavg0:LAST:%lf\\n",
    "LINE1:user_expavg1#FF00FF:PrimeGrid",
    "GPRINT:user_expavg1:LAST:%lf\\n";
if ( my $err = RRDs::error ) { print $err }
exit;
