#!/usr/bin/perl -w

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

RRDs::graph "./example7.png",
    "--title=user_total_credit",
    "--start=-180d",
    "--lower-limit=0",
    "--color=BACK#7fff00",
    "--color=CANVAS#7f00ff",
    "--color=AXIS#ff007f",
    "--color=FONT#ff7f00",
    "--color=MGRID#ffff00",
    "--color=GRID#ff007f",
    "--color=SHADEA#007fff",
    "--color=SHADEB#00ffff",
    "--color=ARROW#ff0000",

    "DEF:user_total_credit=www.primegrid.com.rrd:total:LAST",
    "AREA:user_total_credit#000000:Total",
    "GPRINT:user_total_credit:LAST:%lf%s\\n";
if ( my $err = RRDs::error ) { print $err }
exit;