nagios is still sending emails to that wired addess, saying this host is down, or that host is back up etc....
as for your grep request:(there was more, but this is all that i was able to copy and paste
Code: Select all
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $line (@lines) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($colorsub >= scalar @{$Config{colors}}) { $colorsub = 0; }
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($h, $s, $v) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($val, $sep, $commasplit) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @data = split /,/, $ii;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: #dumper(DBDEB, 'listtodict: hostservvar data', \@data);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @data = split /,/, $ii;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: #dumper(DBDEB, 'listtodict: commasplit data', \@data);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($str, $delim) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @rval;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @rval, $i;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@rval;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @files = readdir DIR;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return (scalar @files > 2) ? 0 : 1;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($filename, $hashref, $debug) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($rrdstate) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($err && @{$err}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($app, $logid, $cfgfn) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cfg) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($user) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($user) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($user) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($v) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($v) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($user, $str) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($lang) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($line) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @db = split /&db=/, $line;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $i (0 .. @db - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@db, \%labels;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $data) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @db;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @db = @{$data->{$host}{$service}};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@db;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $dblist, $data) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @actualdb;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @dbs = @{$data->{$host}{$service}};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $x (@{$dblist}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $i (0 .. @dbs-1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @known = @{$dbs[$i]};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $i (1 .. @known-1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @actualdb, $x;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @actualdb, $x;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@actualdb;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($line) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ginfo;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: next if scalar @{$db} == 0;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: next if scalar @{$x} == 0;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ginfo, \%info;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @services = sortnaturally(keys %{$hsdata{$host}});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $service (@services) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: $info{db} = \@{$hsdata{$host}{$service}};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ginfo, \%info;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'readhostdb: graphinfos', \@ginfo);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@ginfo;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($service, $dblist) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: ($dblist ? join ', ', @{$dblist} : q()) . ')');
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @allhosts;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @validhosts;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @allhosts, split /\s*,\s*/, $1;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $host (@allhosts) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($db && scalar @{$db} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @validhosts, $host;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @{$x} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @validhosts, $host;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @allhosts = sortnaturally(keys %hsdata);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $host (@allhosts) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: && scalar @{$hsdata{$host}{$service}} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @validhosts, $host;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'readservdb: all hosts', \@allhosts);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'readservdb: validated hosts', \@validhosts);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@validhosts;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($g) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ginfo;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: next if scalar @{$db} == 0;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: next if scalar @{$x} == 0;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ginfo, \%info;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $o (@{$objs}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $m (@{$members}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ginfo, \%info;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @gnames = sortnaturally(keys %gnames);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'groups', \@gnames);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'graphinfos', \@ginfo);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@gnames, \@ginfo;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $serv) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @files;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @files, unescape($1);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'dbfilelist: files', \@files);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@files;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($file) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $db) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @rrd, # the returned list of hashes
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($db && scalar @{$db} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $dd (@{$db}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($dbname, @lines) = split /,/, $dd; # db filename, data sources
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ll (@lines) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . join ', ', map { $_->{file} } @rrd);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @rrd = map {{ file=>$_ }}
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @{dbfilelist($host, $service)};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . join ', ', map { $_->{file} } @rrd);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $rrd ( @rrd ) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'graphinfo: rrd', \@rrd);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@rrd;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key, $dflt, $host, $service, $db, $ds) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key, $dflt, $host, $service, $db) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key, $val, $host, $service, $db) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($pri, $key, $dflt, $host, $service, $db, $ds) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $item (@{$Config{$key . 'list'}}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key, $str, $priority, $host, $service, $db, $ds) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host,$service,$db,$ds) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @values = split /,/, $tuple;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $value (@values) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($dbname, $dsname) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($s, $maxlen) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $db, $ds) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($config, $geom) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $serv, $dbname, $dsname, $file, $label, $maxlen) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "DEF:$id=$file:$dsname:MAX"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "DEF:$id=$file:$dsname:MIN"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "DEF:${id}=$file:$dsname:$t";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "CDEF:${id}_neg=${id},-1,*"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "$linestyle:${id}#$linecolor:$legend$sdef";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($serv, $dbname, $dsname, $file, $dur, $fmt) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "DEF:${id}_max=${file}_max:$dsname:MAX"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "DEF:${id}_min=${file}_min:$dsname:MIN"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "CDEF:${id}_maxif=${id}_max,UN"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "GPRINT:$id:MAX:Max\\:$format";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "GPRINT:$id:AVERAGE:Avg\\:$format";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "CDEF:${id}_minif=${id}_min,UN"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "GPRINT:$id:MIN:Min\\:$format\\n"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, "GPRINT:$id:MAX:Max\\:$format"
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($params) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @{$graphinfo} == 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($db) { $errmsg .= ' db=' . join q(,), @{$db}; }
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ii (@{$graphinfo}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @lines = keys %{$ii->{line}};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @lines == 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@ds, $errmsg;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $k (@{$params->{label}}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, q(-);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-a', 'PNG';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-s', "now-$s";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-e', "now-$offset";
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (@{$graphinfo}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (@{$graphinfo}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, setlabels($host, $serv, $dbname, $dsname,
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, setdata($serv, $dbname, $dsname, "$fn", $duration, $fmt);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-w', $w;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-h', $h;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, $opt;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, $ii;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, '-X', '0';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, addopt($ii->[0], $service, $rrdopts, $ii->[1]);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@ds, q();
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($conf, $service, $rrdopts, $rrdopt) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, $rrdopt;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($a, $b) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @{$hsdata{$host}{unescape($service)}} = (unescape($db));
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @{$hsdata{$host}{unescape($service)}}, unescape($db);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @{$hsdata{$host}{unescape($service)}} = (unescape($db));
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @{$hsdata{$host}{unescape($service)}}, unescape($db);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my($userid) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @hosts;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @hosts, $ii;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ii (@hosts) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @services = sortnaturally(keys %{$hsdata{$ii}});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $jj (@services) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $kk (@{$hsdata{$ii}{$jj}}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @dataitems =
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @{$hostserv{$ii}{$jj}}, [$kk, @dataitems];
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: #dumper(DBDEB, 'hosts', \@hosts);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return ( host => [@hosts], hostserv => \%hostserv );
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ii (@JSLABELS) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($hosts, $lookup) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (0 .. @{$hosts} - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @services = sortnaturally(keys %{$hsdata{$hosts->[$ii]}});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: #dumper(DBDEB, 'printmenudatascript: keys', \@services);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $jj (@services) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $kk (@{$lookup->{$hosts->[$ii]}{$jj}}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $x (@{$kk}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, $x;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: $dsstr{$name} = '["' . $name . '","' . join('","', sortnaturally(@ds)) . '"]';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($dsref) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @keys = keys %dsdata;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (0 .. @keys - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ds (@{$dsdata{$keys[$ii]}}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $expanded_periods) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cgi, $opts) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @geom = (DEFAULT, split /,/, $Config{geometries});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $i (@geom) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $i (@PERIOD_KEYS) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @groups = (q(-), @{$opts->{grouplist}});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: -values => [@groups],
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: $cgi->td($cgi->popup_menu(-name => 'period', -values => [@PERIOD_KEYS], -labels => \%period_labels, -size => PERIODLISTROWS, -multiple => 1)), "\n",
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: $cgi->td($cgi->popup_menu(-name => 'geom', -values => [@geom], -labels => \%geom_labels)), "\n",
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cgi, $params, $period, $title) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($params->{db} && scalar @{$params->{db}} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ii (sortnaturally(@{$params->{db}})) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ($params->{db} && scalar @{$params->{db}} > 0) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: foreach my $ii (sortnaturally(@{$params->{db}})) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my($cgi, $params, $period, $now, $content) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my (@navstr) = getperiodctrls($cgi, $params->{offset}, $period, $now);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my($cgi, $opts) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cgi, $opts) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cgi,$sts,$ets) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @unsorted;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @unsorted, $PERIOD_DATA{$ii};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (not @unsorted) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @unsorted, $PERIOD_DATA{$ii};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @rval = sort {$a->[1] <=> $b->[1]} @unsorted;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @rval;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($cgi, $offset, $period, $now) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my($now, $offset, $period, $res) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($t, $key) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($fn) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @lines;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @lines;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @lines, $_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @lines;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (not @lines) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: debug(DBINF, 'read ' . scalar @lines . ' lines from perflog');
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @lines;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($host, $service, $dbname, $xff, $rows, $steps, $choice) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: RRDs::create(@{$ds});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($ds, $directory, $filenames) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @{$ds} == 3 and scalar @{$filenames} == 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($dsname) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($start, $host, $service, $labels) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: @filenames); # rrd file name(s)
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my $db = shift @{$labels};
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @rows = split / /, $rstr;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @rows != 4) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . scalar @rows . ')';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @steps = split / /, $sstr;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if (scalar @steps != 4) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . scalar @steps . ')';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . ' resolutions=' . join q( ), @rows
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: . ' steps=' . join q( ), @steps);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @ds = ("$directory/$filenames[0]",
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @dsmin = ("$directory/$filenames[0]_min",
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @dsmax = ("$directory/$filenames[0]_max",
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @datasets = [];
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (0 .. @{$labels} - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @filenames, $fn;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @datasets, [$ii];
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: getrras($host,$service,$db,$xff,\@rows,\@steps)]);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: getrras($host,$service,$db,$xff,\@rows,\@steps,'MIN')]);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: getrras($host,$service,$db,$xff,\@rows,\@steps,'MAX')]);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, $ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @{$datasets[0]}, $ii;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @dsmin, $ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @dsmax, $ds;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: checkdatasources(\@ds, $directory, \@filenames)) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @ds, getrras($host, $service, $db, $xff, \@rows, \@steps);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: runcreate(\@ds);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: createminmax('min', \@dsmin, \@filenames,
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: xff => $xff, rows => \@rows, steps => \@steps });
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: createminmax('max', \@dsmax, \@filenames,
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: xff => $xff, rows => \@rows, steps => \@steps });
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'createrrd: filenames', \@filenames);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'createrrd: datasets', \@datasets);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return \@filenames, \@datasets;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($conf, $service, $directory, $filename) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($conf, $ds, $filenames, $opts) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @{$ds}, getrras($opts->{host}, $opts->{service}, $opts->{db},
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: RRDs::update(@{$dataset});
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($file, $time, $host, $service, $ds, $values) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @dataset;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @dataset, "$directory/$file", $time;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (0 .. @{$values} - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for (@{$ds}) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: runupdate(\@dataset);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: runupdate(\@dataset);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: runupdate(\@dataset);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @rules;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: push @rules, $_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: ' my ($d, @s) = ($_);' .
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: join(q(), @rules) .
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: ' return @s; }';
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my (@lines) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $line (@lines) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @data = split /\|\|/, $line;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: dumper(DBDEB, 'processdata: data', \@data);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my @x = evalrules($dstr);
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: if ( ! @x || $#x < 0 ) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $s ( @x ) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: for my $ii (0 .. @{$rrds} - 1) {
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($key) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my ($name) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: my(@list) = @_;
/usr/local/nagios/etc/nagiosgraph/ngshared.pm: return @list[
/usr/local/nagios/etc/nagiosgraph/ngshared.pm:Alan Brenner - alan.brenner@ithaka.org; I've updated this from the version at http://nagiosgraph.wiki.sourceforge.net/ by moving some subroutines into this shared file (ngshared.pm) for use by insert.pl and the show*.cgi files.
/usr/local/nagios/etc/nagiosgraph/map:# expected in @s. The general format is:
/usr/local/nagios/etc/nagiosgraph/map:# and push @s, [ <databasename>,
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'udp',
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'ntp',
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'ntp',
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'days',
/usr/local/nagios/etc/nagiosgraph/map: and push @s, [ 'days',
/usr/local/nagios/etc/nagiosgraph/map: and push @s, [ 'days',
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'zombies',
/usr/local/nagios/etc/nagiosgraph/map:and push @s, [ 'procs',
/usr/local/nagios/etc/nagiosgraph/map:# @10:20 >= 10 and <= 20
/usr/local/nagios/etc/nagiosgraph/map:(! @s || $#s < 0) and /perfdata:(.+)/ and do {
/usr/local/nagios/etc/nagiosgraph/map: my @x;
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'data', $t, $v ] if defined $v && $v ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'warn', $t, $w ] if defined $w && $w ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'crit', $t, $c ] if defined $c && $c ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'min', $t, $min ] if defined $min && $min ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'max', $t, $max ] if defined $max && $max ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'warn_lo', $t, $wlo ] if defined $wlo && $wlo ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'warn_hi', $t, $whi ] if defined $whi && $whi ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'crit_lo', $t, $clo ] if defined $clo && $clo ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @x, [ 'crit_hi', $t, $chi ] if defined $chi && $chi ne q();
/usr/local/nagios/etc/nagiosgraph/map: push @s, [ $n, @x ] if @x;
[root@g1vpnag01 libexec]#