#! /usr/bin/perl -wT
use lib qw( /usr/local/rrdtool-1.2.11/lib/perl );

use RRDs;
use DBI;
use Crypt::PasswdMD5 qw(unix_md5_crypt);

my $start=time;
my $rrd="/usr/bin/test.rrd";

my $values = "/usr/bin/access.log";
#$start-=$start%300;
RRDs::create ($rrd, "--start",$start, "--step",300,
	       "DS:d1:DERIVE:600:0:12500000",
		   "RRA:AVERAGE:0.5:1:100",


);
my $ERROR = RRDs::error;
die "$0: unable to create `$rrd': $ERROR\n" if $ERROR;

#$start+=300;
#$t=$start;
open (MYFILE, "$values");
 while (<MYFILE>) {
 	chomp; my @a=$_;
 	my ($time,$band) =split(/\s+/,$_);
	#$t+=300;
	RRDs::update $rrd, "$time:".($band);
	#RRDs::update $rrd, "$t:".($a);
	if ($ERROR = RRDs::error) {
				die "$0: unable to update `$rrd': $ERROR\n";
	}

 }
 close (MYFILE);