#!/usr/bin/perl

$now = time();

open (UPT, '< /proc/stat') or die "monitorDevice.pl: can't open /proc/uptime";
$_=<UPT>;
/.*\s+([0-9]+)[0-9]{2}\s*$/;
$upt=$1;
close UPT;

open (PROC, '< /proc/net/dev') or die "monitorDevice.pl: can't open /proc/net/dev";
$_=<PROC>;
$_=<PROC>;
while (<PROC>) {
	$ligne=$_;
	$ligne=~/\s*([^:]*)\s*:\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)/s;
	$itf = $1;
	$recv = $2;
	$sent = $10;
	open (LOG, ">>/usr/local/share/monitor/$itf.csv") or die "monitorDevice.pl: can't open /usr/local/share/monitor/$itf.csv";
	print LOG "$now;$upt;$recv;$sent\n";
	close LOG;
}