#!/usr/bin/perl # Copyright Martin Pot 2002-2003 # http://martybugs.net/linux/rrdtool/traffic.cgi # define the network interface my $iface = 'eth0'; # define the network inteface description my $descr = 'local ethernet'; # get the server name (or you could hard code some description here) my $svrname = $ENV{'SERVER_NAME'}; print "Content-type: text/html;\n\n"; print < $svrname stats for $iface :: $descr $svrname stats for $iface :: $descr

Daily Graph (5 minute averages)

Weekly Graph (30 minute averages)

Monthly Graph (2 hour averages)

Yearly Graph (12 hour averages)
END ; print <
END ;