Toto je default script. Ja som tam len zmenil IP 111.111.111.111 na localhost
Kód: Vybrat vše
#! /usr/bin/perl
use lib qw( /rrdtool/perl-shared/blib/lib /rrdtool/perl-shared/blib/arch );
use lib qw( /usr/local/rrdtool-1.0.33/lib/perl /rrdtool/lib/perl );
use RRDs;
my $start=time;
my $rrd= "/home/httpd/rrdtool.domena.sk-443/html/host.rrd";
my $name = "/home/httpd/rrdtool.domena.sk-443/html/host.png";
if (not -f $rrd){
RRDs::create ($rrd, "--start",$start-1, "--step",60,
"DS:in:COUNTER:180:U:U",
"DS:out:COUNTER:180:U:U",
"RRA:AVERAGE:0.5:1:3600",
"RRA:MIN:0.5:1:3600",
"RRA:MAX:0.5:1:3600",
);
};
my $ERROR = RRDs::error;
die "$0: unable to create `$rrd': $ERROR\n" if $ERROR;
$in=`snmpget -Pe -Oq 111.111.111.111 public .iso.3.6.1.2.1.2.2.1.10.1|
awk '{printf \$2}'`+0;
$out=`snmpget -Pe -Oq 111.111.111.111 public .iso.3.6.1.2.1.2.2.1.16.1|
awk '{printf \$2}'`+0;
$date=`date`;
print "$start:$in:$out";
RRDs::update $rrd,"$start:$in:$out";
my $ERROR = RRDs::error;
die "$0: unable to create `$rrd': $ERROR\n" if $ERROR;
$in=int($in/1024/1024);
$out=int($out/1024/1024);
RRDs::graph "$name",
"--title", "Prehlad SNMP trafficu",
"--start", "now-1d",
"--end", "now",
"--imgformat","PNG",
"--width=600",
"--height=150",
"--step=300",
"DEF:in=$rrd:in:AVERAGE",
"DEF:out=$rrd:out:AVERAGE",
"CDEF:gout=0,out,-",
"CDEF:grin=in,8,*",
"CDEF:grout=gout,8,*",
"AREA:grin#d60000:Traffic in total\\: $in MB\\r",
"AREA:grout#00d600:Traffic out total\\: $out MB\\r",
"COMMENT:Generovane $date ",
;
if ($ERROR = RRDs::error) {
print "ERROR: $ERROR\n";
};
