In article <9c6mn3$c88$1@news.inet.tele.dk>, "Steffen Poulsen"
<steffenpoulsen@[removethis]usa.net> wrote:
> I øvrigt:
>
> Hvis der er nogen der ved en nem måde at måle den aktuelle belastning på
> et interface i kb/s på kunne det også være rigtigt interessant, måske
> bare et lille script der læser en /proc tæller med et minuts mellemrum
> el. lign?
>
> // Steffen
jowda .. jeg fik selv fat på en lille ting:
#!/usr/bin/perl
my $iface = $ARGV[0];
$in = 0;
$out = 0;
open(FIL, "/proc/net/dev");
while (<FIL>) {
chomp;
@line = split(/:/);
$line[1] =~ s/^\s+//;
@line2 = split(/\s+/,$line[1]);
if (substr($line[0],2,4) eq "$iface") {
$in += $line2[0];
$out += $line2[8];
}
}
close(FIL);
open(UPTIME,"cat /proc/uptime|") || die("Couldnt read from /proc/up\time");
$uptime = <UPTIME>;
close(UPTIME);
chomp($uptime);
my @uptimeparts = split /\./,$uptime;
# Convert to days/hours/minuts
# is there a simpler way to do this?
my $days = int($uptimeparts[0]/86400)." dage,";
my $leftover = ($uptimeparts[0] % 86400);
my $hours = '';
if (($leftover / 3600) > 1) {
$hours = int($leftover/3600)." timer,";
$leftover = ($leftover % 3600);
}
my $minutes = int($leftover/60)." minutter";
$uptime = "$days $hours $minutes";
print "$in\n$out\n$uptime\n\n";
---------
kaldes med : my-stats.pl [if]
den tilhørende mrtg.cfg:
WorkDir: /home/rene/public_html/mrtg_tmp
Target[eth0]: `/dir/til/my-stats.pl eth0`
Options[eth0]: growright
PageTop[eth0]: <H1>eth0 på [host]</H1>
<b>eth0 på [host]</b>
<br>
<br>
<TABLE>
<TR><TD>System:</TD><TD>yaddayadda</TD></TR>
<TR><TD>Maintainer:</TD><TD>[maintainer]</TD></TR>
<TR><TD>Interface:</TD><TD>eth0</TD></TR>
<TR><TD>IP:</TD><TD>[ip]</TD></TR>
</TABLE>
MaxBytes[eth0]: 1250000
Title[eth0]: eth0 usage
Target[eth1]: `/sti/til/my-stats.pl eth1`
Options[eth1]: growright
PageTop[eth1]: <H1>eth1 på [host]</H1>
<b>eth1 på [host]</b>
<br>
<br>
<TABLE>
<TR><TD>System:</TD><TD>[host]</TD></TR>
<TR><TD>Maintainer:</TD><TD>yaddayadda</TD></TR>
<TR><TD>Interface:</TD><TD>eth1</TD></TR>
<TR><TD>IP:</TD><TD>[ip]</TD></TR>
</TABLE>
MaxBytes[eth1]: 1250000
Title[eth1]: eth1 usage
-----------------
i cron:
*/5 * * * * /usr/local/mrtg-2/bin/mrtg /sti/til/mrtg.cfg
/René