RootForum Community

Code: Select all

com2sec  world    default            public

group ROworld    v1     world 
group ROworld    v2c    world 
group ROworld    usm    world 

view system included  system  fe 

access ROworld    ""       any    noauth  exact  system   none   none

Code: Select all

wert1
wert2
uptime
hostname

Code: Select all

#!/usr/bin/perl
#
# net2mrtg.pl
#
#
$host = qx<hostname>;
$device = shift || "eth0";
$net_states = qx<cat /proc/net/dev |grep $device>;

# -----------------

$net_states =~ s/^ +//g;
$net_states =~ s/:/ /;
$net_states =~ s/ +/ /g;

chomp $host;

@stats = split (/ /, $net_states);

$upload = $stats[1];
$download = $stats[9];

# Uptime ermitteln:
open(UPTIMEOUTPUT,"/usr/bin/uptime |");
$_ = <UPTIMEOUTPUT>;
$_ =~ /ups*(.*),s*d*s*user[s]?,s*load average[s]?:s*[0-9.]*,s*([0-9.]*),/;
$uptime = $1;
close(UPTIMEOUTPUT);

print "$uploadn$downloadn$uptimen$hostn";