Index: noc/nagios/cnagios.help =================================================================== --- noc/nagios/cnagios.help (revision 1093) +++ noc/nagios/cnagios.help (revision 1093) @@ -0,0 +1,23 @@ + + Cnagios Commands + ---------------- + u display all host objects + d display UNKNOWN and DOWN hosts + o display all service objects + w display UNKNOWN, PENDING, WARNING and CRITICAL services + c display CRITICAL services + t toggle between sort-by-age and sort-by-name (also s) + space intelligent scroll + > go to next page (also ^f) + < go to previous page (also ^b) + 0 go to first page + G go to last page + = set a text filter (also g) (use \n to clear) + ! set a negative text filter (also v) (use \n to clear) + a set an age filter (use \n to clear) + A set an age filter for UP/OK objects only (use \n to clear) + x clear all filters + r reread the status.log and refresh display (also ^l) + h display (this) help screen (also ?) + q quit (also ^d) + Index: noc/nagios/cnagios.pl =================================================================== --- noc/nagios/cnagios.pl (revision 1093) +++ noc/nagios/cnagios.pl (revision 1093) @@ -0,0 +1,220 @@ +# +# the current cnagios.pl for UW-HEP +# + +use strict; + +#------------------------------------------------------------------ + +sub host_plugin_hook { + local($_) = $_[0]; + + s/\(Host assumed to be up\)/assumed up/; + s/\(Host check timed out\)/timed out/; + s/\(Not enough data to determine host status yet\)/none/; + s/\(No Information Returned From Host Check\)/none/; + s/Ping .*? - (\d+)% packet loss.*/$1% pkt loss/; + + return $_; +} + +#------------------------------------------------------------------ + +sub service_plugin_hook { + local($_) = $_[0]; + + # generic... + s/Plugin timed out after \d+ seconds/timed out/; + + # check_pingwithperl... + s/.* (\d+)% packet loss, \d+.\d+ ms ave rtt/$1% pkt loss/; + + # check_tcp... + s/.* (\d+\.\d+) second[s]? response time.*/$1 sec response/; + s/.* (\d+) second[s]? response time.*/$1 sec response/; + s/.* (\d+\.\d+) sec[s]? response time.*/$1 sec response/; + + # check_ftp + s/.*Invalid response from host/bad response/; + + # chech_ssh... + s/.* (.*?OpenSSH.*?) .*/$1/; + s/.*OpenSSH_3.5p1.*/OpenSSH_3.5p1/; + s/.*Connection refused.*/connection refused/i; + + # check_netsnmp_disk & check_netsnmp_bigdisk... + # also works for check_dcache_usage... + while ( $_ =~ /(\d+\.\d+) TB/ ) { + my $tb = $1; + # WARNING: will fail for > 9999 GB... + my $gb = sprintf("%4.4s",int($tb *1024)); + $_ =~ s/$tb TB/$gb GB/; + } + while ( $_ =~ /(\d+\.\d+) GB/ ) { + my $gb = $1; + # WARNING: will fail for > 9999 GB... + my $gb_new = sprintf("%4.4s",int($gb)); + $_ =~ s/$gb GB/$gb_new GB/; + } + s/.*?(\d+ GB total,).*?,(\s*\d+ GB avail)/$1$2/; + + # check_netsnmp_loadave... + s/.* load average: (\d+\.\d+).*/$1 loadave/; + + # check_ntp... + s/.* Offset ([-]*\d+\.\d+) secs.*/$1 sec offset/; + s/.* stratum (\d+), offset ([-]*\d+\.\d+).*/stratum $1, $2 sec offset/; + s/.*Jitter\s+too high.*/jittering/; + s/.*desynchronized peer server.*/desynchronized peer server/i; + s/.*probably down.*/down/; + + # check_dhcp et al... + s/.* Received \d+ DHCPOFFER.*max lease time = (\d+) sec.*/$1 sec lease time/; + s/.* \d+ in use, (\d+) free/$1 free leases/; + if ( s/DHCP problem: (.*)/$1/ ) { $_ = lc($_); } + + # check_afs_*... + s/File Server Performance/Performance/; + s/.* (\d+ blocked) connections/$1/; + s/(.*?) AFS (\/.*)/$1 $2/; + s/(.*?) AFS Volume Quotas/$1 AFS Volumes/; + s/(\d+) processes running normally/$1 ok processes/; + s/one process running normally/one ok process/; + s/% used/%/g; + s/user.(.*?)/$1/g; + s/(\d+) volumes under quota/$1 ok volumes/; + s/db version (\d+.\d+)/db $1/; + + # check_condor_client... + s/.* vm1 = .*?\/(\S+), vm2 = .*?\/(\S+),.*/$1\/$2/; + s/.* vm1 = .*?\/(\S+), vm2 = .*?\/(\S+).*/$1\/$2/; + s/.* cpu = (\S+)/$1/; + s/CondorQueue.*?(\d+ job[s]?, \d+ running).*/$1/; + s/.*?No condor status.*/no condor status/; + + # check_condor_pool... + s/.*?(\d+) nodes.*/$1 nodes/; + + # check_condor_queue... + s/.*?(\d+ idle, \d+ held)/$1/; + + # check_nsr... + s/.*?(\d+\.\d+ GB), (\d+ saves) since.*/$1, $2/; + s/.*?(\d+ GB), (\d+ saves) since.*/$1, $2/; + s/(\d+ GB avail)able, \d+ GB total/$1/; + + # check_hpjd... + s/.*? - \(\".*\"\)/printer okay/; + if ( s/(.*)\s+\(\".*\"\)/$1/ ) { $_ = lc($_); } + + # check_LPRng_queue... + s/(\d+) active job[s]?/$1 active/; + s/(\d+) stalled job[s]?/$1 stalled/; + s/(\d+) spooled job[s]?/$1 spooled/; + s/(\d+) incoming job[s]?/$1 incoming/; + s/(\d+) incoming job[s]?/$1 incoming/; + + # check_jug_*... + s/(\d+) JugRPC processes.*/$1 processes/; + s/.*JugJobs.*?(\d+) running.*/$1 running/; + s/.*Jug Storage.*?(\d+) unassigned.*/$1 unassigned/; + + # check_dcache*... + s/.*no status available.*/not found/; + s/.*not found in the cellInfo.*/not found/; + s/service is (.*)/$1/; + s/.*(\d+) ms ave ping time/$1 ms ping time/; + s/.*(\d+) ms ping time/$1 ms ping time/; + + # (my) check_traffic & check_ifHighSpeed_traffic... + # makes columnized XXX.XX Mbps output... + s/.*? (.*) Traffic/$1 Traffic/; + s/Internet Traffic/Traffic/; + if ( $_ =~ /(\d+\.\d+) Gbps in/ ) { + my $rate = $1; + my $gbps = sprintf("%6.6s",$rate); + $_ =~ s/$rate Gbps in/$gbps Gbps in/; + } + if ( $_ =~ /(\d+\.\d+) Gbps out/ ) { + my $rate = $1; + my $gbps = sprintf("%6.6s",$rate); + $_ =~ s/$rate Gbps out/$gbps Gbps out/; + } + if ( $_ =~ /(\d+\.\d+) Mbps in/ ) { + my $rate = $1; + my $mbps = sprintf("%6.6s",$rate); + $_ =~ s/$rate Mbps in/$mbps Mbps in/; + } + if ( $_ =~ /(\d+\.\d+) Mbps out/ ) { + my $rate = $1; + my $mbps = sprintf("%6.6s",$rate); + $_ =~ s/$rate Mbps out/$mbps Mbps out/; + } + while ( $_ =~ /(\d+\.\d+) Kbps/ ) { + my $rate = $1; + my $mbps = sprintf("%.2f",$rate/1000); + $mbps = sprintf("%6.6s",$mbps); + $_ =~ s/$rate Kbps/$mbps Mbps/; + } + s/\d+\.\d+ bps/ 0.00 Mbps/g; + + # check_airport... + s/(.*? AirPort) Usage/$1/; + s/no connected clients/no clients/; + s/(\d+) connected clients/$1 clients/; + + # check_netsnmp_raid... + s/.*connect failed.*/connect failed/; + s/.*degraded.*/degraded/; + s/.*degraded/degraded/; + s/.*rebuilding.*/rebuilding/; + s/.*rebuilding/rebuilding/; + s/.*built.*/building/; + s/.*built/building/; + s/.*optimal.*/optimal/; + s/.*optimal/optimal/; + + # check_ip_routing_with_mtr + s/\S+ to \S+ hop not found, first hop out is (\S+)/hop is $1/i; + + # check_phedex + s/.*(\d+ UP agents).*/$1/; + + # plugin generic... + s/.*no response.*/connection timed out/i; + s/.*no route to host.*/no route to host/i; + s/Socket timeout.*/socket timed out/; + + # nagios generic... + s/\(Service Check Timed Out\)/check timed out/; + s/\(No output returned from plugin\)/no output from plugin/; + s/Service check scheduled for.*/none/; + s/No data yet.*/no data yet/; + s/\.$//; + + # generic generic... + s/.*?OK - //i; + s/.*?WARNING - //i; + s/.*?CRITICAL - //i; + s/.*?UNKNOWN - //i; + + return $_; + +} + +#------------------------------------------------------------------ + +# this sub is used for host/service/plugin-output +# filtering... it should not change... + +sub regex_hook { + my($str,$regex,$mode) = @_; + if ( $mode == 0 ) { + if ( $str =~ /$regex/ ) { return 0 } else { return 1 } + } + if ( $mode == 1 ) { + if ( $str !~ /$regex/ ) { return 0 } else { return 1 } + } + return 2; +} + Index: noc/nagios/cnagiosrc =================================================================== --- noc/nagios/cnagiosrc (revision 1093) +++ noc/nagios/cnagiosrc (revision 1093) @@ -0,0 +1,21 @@ + +# add a site name to the upper left hand corner... +default site_name = sipb-nagios + +## display OKAY services... +#default level = OKAY + +## sort by age... +#default sort_order = by_name + +# don't display hosts/services/plugin output that +# matches our compute node names... eg g12n01... +#default text !~ /^g\d+n\d+/ + +# only display OKAY services that have changed +# states within the last eight hours... +#default okay_age = 8h + +# the "F1" key sets a /Ping/ filter... +#f1 text =~ /Ping/ + Index: noc/nagios/status-user/finger.sh =================================================================== --- noc/nagios/status-user/finger.sh (revision 1093) +++ noc/nagios/status-user/finger.sh (revision 1093) @@ -0,0 +1,30 @@ +#!/bin/bash + +docnagios() { + echo q | env TERM=ansi LINES=1000 COLS=80 /usr/local/nagios/bin/cnagios -b "$@" | sed 's/ +\[B/\n/g; s/ +/\n/g' | perl -pe ' +s/^.*(?=sipb-nagios)//; # remove garbage at beginning +s/(.)\\[(\d+)b/$1x($2+1)/ge; # (\d+)b means repeat previous character n times +s/\\[(\d+)d//g; # absolute go to line; ignored +s/\\[(\d+)G/" "x($1-$-[0]-1)/ge; # go to absolute horizontal position +s/\\[\d+;(\d+)H/" "x($1-$-[0]-1)/ge; # go to absolute position; line ignored +' +} + +read line +case "$line" in + status*) + docnagios + ;; + broken*) + docnagios -l w + ;; + *) + echo "Unknown user" + ;; +esac +#s/\\[\d*[a-zA-Z]//g' +#perl -pe 's/^.*?\[H //s; s/.\[\d+;1H/\n/g; s/^\s+//mg;' + +# s/^\s+$//mg; s/Command: .*//s; s/$/\/'