#!/usr/bin/perl
#

use RRDs;

my $network = "/proc/net/dev";
my $rrd = "/home/system-rrd/rrds/network-eth0.rrd";

# sleep 30;

my $now = time;
my $last4hours = $now - (4*60*60);
my $lastday = $now - (24*60*60);
my $lastweek = $now - (7*24*60*60);
my $lastyear = $now - (364*24*60*60);

RRDs::graph ("/home/system-rrd/graphs/network-eth0.png",
             "-a", "PNG",
	     "--start", "$last4hours",
	     "--title", "Basic Network Stats - Past 4 Hours",
             "DEF:Transmit=$rrd:tran:AVERAGE",
             "DEF:Receive=$rrd:recv:AVERAGE",
	     "LINE2:Transmit#00ff00:Transmit Bytes",
	     "LINE2:Receive#ff0000:Received Bytes"
	     );

RRDs::graph ("/home/system-rrd/graphs/network-eth0-errs.png",
             "-a", "PNG",
	     "--start", "$last4hours",
	     "--title", "Basic Network Stats - Past 4 Hours",
             "DEF:TransmitErr=$rrd:tranerrs:AVERAGE",
             "DEF:ReceiveErr=$rrd:recverrs:AVERAGE",
             "DEF:TransmitColl=$rrd:trancoll:AVERAGE",
	     "LINE1:TransmitErr#00ff00:Transmit Errors",
	     "LINE1:ReceiveErr#ff0000:Received Errors",
	     "AREA:TransmitColl#ff8080:Transmit Collisions"
	     );
