Szia!

Én így csináltam meg:
Ez a konfig a localhostra vonatkozik.
Az már opcionális hogy melyik eth-ra állítod, nekem ppp0-ra van.
mrtg.cftg

vms:/etc# cat mrtg.cfg
WorkDir: /var/www/mrtg/
Options[_]: growright,transparent,noborder,bits
WriteExpires: Yes
Language: hungarian
#Language: english
RunAsDaemon: No
Target[ppp0]: `/etc/mrtg.pl ppp0`
MaxBytes[ppp0]: 9900000
WithPeak[ppp0]: ym
XSize[ppp0]: 600
YSize[ppp0]: 240
Title[ppp0]: VMS ppp0 elemzése
YLegend[ppp0]: bit/sec
PageTop[ppp0]: VMS ppp0 forgalma

mrtg.pl

#!/usr/bin/perl
$file = „/proc/net/dev”;
$hostname = „akarmi.hu”;
#$dev = @ARGV[0] || „ppp0”;
$dev = @ARGV[0];
$P_sar = „/usr/bin/sar 1 1”;
$upfile = „/proc/uptime”;
open(upt, $upfile);
$upt = ;
@upt = split(” „,$upt);
close(upt);
($uptime) = @upt[0];
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($uptime);
if ($yday) { $part1 = „$yday nap, „; }
$ize = „$part1″.”$hour óra $min perc”;
if ($dev eq ‘cpu’) {
open(sar, „$P_sar |”);
while () {
if ($_ =~ /^Average:/) {
@in = split(” „, „$_”);
$in = @in[2];@user = split(„,”, „$in”);
$in = @user[0];
$out = @in[4]; @system = split(„,”, „$out”);
$out = @system[0];
}
}
close(sar);
} else {
open(FILE, $file);
while () {
chomp;
if ($_ =~ /^ *$dev/) {
@in = split(„:”, „$_”);
@ins = split(” „,@in[1]);
($in) = @ins[0];
($out) = @ins[8];
}
};
close(FILE);

print „$inn$outn$izen$hostnamen”;