[hobbit] R: [hobbit] question on disable until ok
I think the patch didn't got in .... Here it's the patch --- bb-xsnmp.pl.1_79 2006-09-14 16:18:55.000000000 +0200 +++ bb-xsnmp.pl 2006-05-14 00:10:48.000000000 +0200 @@ -1,6 +1,6 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # Monolithic SNMP gatherer for BigBrother. # Ported to work with Hobbit which doesn't have bb-combo.sh # Added support for quering the hobbit server to see if a conn test is red @@ -14,12 +14,12 @@ use strict; use Carp; use FileHandle; use FindBin qw($Bin $Script); -#use lib $ENV{'BBHOME'}."/ext/perl/"; -use lib qw(/local/packages/IT/HOBBIT/hobbit/server/ext/perl/); +use lib $ENV{'BBHOME'}."/ext/perl/"; +#use lib qw(/local/packages/IT/HOBBIT/hobbit/server/ext/perl/); use Net::SNMP qw(:snmp); use vars qw($VERSION); ( $VERSION ) = '$Revision: 1.79 $' =~ /\$Revision:\s+([^\s]+)/; my $debug = $ENV{'DEBUG'}; @@ -28,14 +28,14 @@ # I was not called by BigBrother. # In this case, I assume I'm testing and # print to stdout instead of # sending to BB. -my $defbbtmp = '/var/BB/bb/tmp'; -my $defbbhome = '/var/BB/bb'; +my $defbbtmp = '/home/hobbit/server/tmp'; +my $defbbhome = '/home/hobbit/server'; my $defbb = "$defbbhome/bin/bb"; -my $defbbdisp = 'enterprise.tigr.org'; +my $defbbdisp = 'itromlx10'; my $defmachine = 'localhost'; # For SNMP my $defretries = 3; my $deftimeout = 5; @@ -331,10 +331,14 @@ 529 => 'ascend', 789 => 'netapp', 1991 => 'foundry', 2021 => 'ucdavis', 3224 => 'netscreen', + 5624 => 'vhswitch', + 629 => 'mrswitch', + 52 => 'vhswitch', + 97 => 'cabletron', ); my %snmpsyntaxdb = ( # .1.3.6.1.2.1.2.2.1.8 'ifOperStatus' => { @@ -721,11 +725,11 @@ my $compaq_pct_temp_panic = 90; # For disk checks my $diskthreshdb_ref = undef; my $disk_defyellow = exists($ENV{'DFWARN'}) ? $ENV{'DFWARN'} : 90; -my $disk_defred = exists($ENV{'DFWARN'}) ? $ENV{'DFWARN'} : 90; +my $disk_defred = exists($ENV{'DFPANIC'}) ? $ENV{'DFPANIC'} : 90; # Turn on or off depending on whether or not you have more servers defined # than BB can display in one page. TODO: Automate this decision. # bindtree is the minimum necessary. my $l4_show_realservers = 0; @@ -806,12 +810,12 @@ } # Get a list of disabled hosts my @disabled; print "$ENV{'BBVAR'}/disabled\n" if $debug; -# opendir(DISABLED,"$ENV{'BBVAR'}/disabled") - opendir(DISABLED,"/local/packages/IT/HOBBIT/hobbit/data/disabled") + opendir(DISABLED,"$ENV{'BBVAR'}/disabled") +# opendir(DISABLED,"/local/packages/IT/HOBBIT/hobbit/data/disabled") || warn "Could not open the disabled hosts directory: $!\n"; while (my $dhost = readdir(DISABLED)) { if ($dhost =~ /^\.*$/) { next; } $dhost =~ s/\..*$//; $dhost =~ s/,/\./g; @@ -821,34 +825,41 @@ closedir(DISABLED) || warn "Could not close the DISABLED directory handle: $!\n"; SNMP: while (my($host,$community) = each(%$commdb_ref)) { # Make only one session + + my($snmpsession,$snmperror) = Net::SNMP->session( -hostname => $host, -community => $community, -debug => $debug, -retries => $defretries, -timeout => $deftimeout, -translate => [ -timeticks => 0x0 ], ); # Net::SNMP->session - +# +# check if host is down Butch Deal +# if(grep(/$host/, at disabled) >= 1) { print "$host is disabled. Skipping.\n"; next SNMP; } -# -# check if host is down Butch Deal -# + if ( $HOBBIT ) { my $string = "query ".$host.".conn"; - my $hoststat = `$ENV{'BB'} $ENV{'BBDISP'} "$string"`; - if ($hoststat =~ "red") { + my $hoststat = `$ENV{'BB'} $ENV{'BBDISP'} "$string" `; + if ( length($hoststat) == 0 ) { + print "$host is not in bbhost file. Skipping.\n"; + next SNMP; + } + if ($hoststat !~ "green") { print "$host is down. Skipping.\n"; next SNMP; } } + if (! defined($snmpsession)) { print((caller(0))[3].": SNMP session failed for '$host': $snmperror\n"); next SNMP; } @@ -868,15 +879,16 @@ (my $brandnum = substr($objectid,length($snmpoids{'enterprises'})+1)) =~ s/\..*$//; if (exists($enterprisenumbers{$brandnum})) { $enterprise = $enterprisenumbers{$brandnum}; } else { print("Unknown enterprise number '$brandnum' in ObjectID '$objectid'\n"); + print("Unknown enterprise number '$brandnum' in ObjectID '$objectid'\n"); next; } } else { print((caller(0))[3].": SNMP get request failed for '$host': ".$snmpsession->error()."\n"); - return; + next SNMP; } # Determine what OS version the machine is. my $version = undef; unless ($version = &detect_version($host,$snmpsession,$enterprise)) { @@ -2882,11 +2894,11 @@ $powercolors{$index} = 'red'; } } # while (my($index,$state) = each(%statedb)) # find worst color - my $worstcolor = &color_compare(values(%statedb)); + my $worstcolor = &color_compare(values(%powercolors)); # compose message $message = "status $commahost.$test $worstcolor ".scalar(localtime)."\n\n"; my @indices = sort { $a <=> $b } keys(%statedb); foreach my $index (@indices) { @@ -3356,11 +3368,11 @@ # Get disk names, skip over "snapshots" and aggregates # Skip trailing slashes to make it more like Unix if (my $result = $snmpsession->get_table(-baseoid => $snmpoids{'dfFileSys'})) { while (my($key,$value) = each(%$result)) { - next if $value =~ /\.snapshot$|^aggr/; + next if $value =~ /\/\.\.$|\.snapshot$|^aggr/; (my $index = $key) =~ s/^.*\.//; $value =~ s/\/$//; $disknamedb{$index} = $value; } # while (($key,$value) = each(%$result)) } else { @@ -3479,12 +3491,12 @@ my $worstcolor = 'green'; # This is where I insert any messages about specific partitions going over their limits my @indices = sort { $a <=> $b } keys(%disknamedb); foreach my $index (@indices) { - my $yellowlimit = $ENV{'DFWARN'}; - my $redlimit = $ENV{'DFPANIC'}; + my $yellowlimit = $disk_defyellow; + my $redlimit = $disk_defred; if ((exists($diskthreshdb_ref->{$host})) && (defined($diskthreshdb_ref->{$host})) && (exists($diskthreshdb_ref->{$host}{$diskmntdb{$index}})) && (defined($diskthreshdb_ref->{$host}{$diskmntdb{$index}}))) { $redlimit = $diskthreshdb_ref->{$host}{$diskmntdb{$index}}{'red'}; @@ -3557,12 +3569,12 @@ my $worstcolor = 'green'; # This is where I insert any messages about specific partitions going over their limits my @indices = sort { $a <=> $b } keys(%disknamedb); foreach my $index (@indices) { - my $yellowlimit = $ENV{'DFWARN'}; - my $redlimit = $ENV{'DFPANIC'}; + my $yellowlimit = $disk_defyellow; + my $redlimit = $disk_defred; if ((exists($diskthreshdb_ref->{$host})) && (defined($diskthreshdb_ref->{$host})) && (exists($diskthreshdb_ref->{$host}{$diskmntdb{$index}})) && (defined($diskthreshdb_ref->{$host}{$diskmntdb{$index}}))) { $redlimit = $diskthreshdb_ref->{$host}{$diskmntdb{$index}}{'red'};
-----Original Message----- From: Francesco Duranti [mailto:fduranti at q8.it] Sent: Thursday, September 14, 2006 4:30 PM To: hobbit at hswn.dk Subject: [hobbit] R: [hobbit] question on disable until ok
If you use the last bb-xsnmp it also check with hobbit query command to see if a host is alive but it check only if the host is "red" so it will not get disabled. I got some problem with it because if it get a error in snmp response it exit and don't continue to check other hosts... I've modified it to continue to check.. Attached is a patch with the 1.79 version available on deadcat that check if a host exist in the bbhost file and if it's "conn" state is not "green" (so if you've disabled the conn test it will not check for snmp.
________________________________
Da: Marco Avvisano [mailto:marco.avvisano at regione.toscana.it] Inviato: gio 14/09/2006 14.53 A: hobbit at hswn.dk Oggetto: Re: [hobbit] question on disable until ok
Please DO NOT remove the hobbitd_filestore. We have quite a few lot custom scripts that use this "old
BB-style file
interface"
Yes there are many scripts that using these files ... for example bb-xsnmp if not find these files stop to make check.. so if it's possible not only to remove from the new version, but add it also a in 'disable until'
best regards
Marco
To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk
thanks a lot Francesco Marco ----- Original Message ----- From: "Francesco Duranti" <fduranti at q8.it> To: <hobbit at hswn.dk> Sent: Thursday, September 14, 2006 4:46 PM Subject: RE: [hobbit] R: [hobbit] question on disable until ok
I think the patch didn't got in .... Here it's the patch
--- bb-xsnmp.pl.1_79 2006-09-14 16:18:55.000000000 +0200 +++ bb-xsnmp.pl 2006-05-14 00:10:48.000000000 +0200 @@ -1,6 +1,6 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl
# Monolithic SNMP gatherer for BigBrother.
# Ported to work with Hobbit which doesn't have bb-combo.sh # Added support for quering the hobbit server to see if a conn test is red @@ -14,12 +14,12 @@
use strict; use Carp; use FileHandle; use FindBin qw($Bin $Script); -#use lib $ENV{'BBHOME'}."/ext/perl/"; -use lib qw(/local/packages/IT/HOBBIT/hobbit/server/ext/perl/); +use lib $ENV{'BBHOME'}."/ext/perl/"; +#use lib qw(/local/packages/IT/HOBBIT/hobbit/server/ext/perl/); use Net::SNMP qw(:snmp); use vars qw($VERSION); ( $VERSION ) = '$Revision: 1.79 $' =~ /\$Revision:\s+([^\s]+)/;
my $debug = $ENV{'DEBUG'}; @@ -28,14 +28,14 @@ # I was not called by BigBrother. # In this case, I assume I'm testing and # print to stdout instead of # sending to BB.
-my $defbbtmp = '/var/BB/bb/tmp'; -my $defbbhome = '/var/BB/bb'; +my $defbbtmp = '/home/hobbit/server/tmp'; +my $defbbhome = '/home/hobbit/server'; my $defbb = "$defbbhome/bin/bb"; -my $defbbdisp = 'enterprise.tigr.org'; +my $defbbdisp = 'itromlx10'; my $defmachine = 'localhost';
# For SNMP my $defretries = 3; my $deftimeout = 5; @@ -331,10 +331,14 @@ 529 => 'ascend', 789 => 'netapp', 1991 => 'foundry', 2021 => 'ucdavis', 3224 => 'netscreen', + 5624 => 'vhswitch', + 629 => 'mrswitch', + 52 => 'vhswitch', + 97 => 'cabletron', );
my %snmpsyntaxdb = ( # .1.3.6.1.2.1.2.2.1.8 'ifOperStatus' => { @@ -721,11 +725,11 @@ my $compaq_pct_temp_panic = 90;
# For disk checks my $diskthreshdb_ref = undef; my $disk_defyellow = exists($ENV{'DFWARN'}) ? $ENV{'DFWARN'} : 90; -my $disk_defred = exists($ENV{'DFWARN'}) ? $ENV{'DFWARN'} : 90; +my $disk_defred = exists($ENV{'DFPANIC'}) ? $ENV{'DFPANIC'} : 90;
# Turn on or off depending on whether or not you have more servers defined # than BB can display in one page. TODO: Automate this decision. # bindtree is the minimum necessary. my $l4_show_realservers = 0; @@ -806,12 +810,12 @@ }
# Get a list of disabled hosts my @disabled; print "$ENV{'BBVAR'}/disabled\n" if $debug; -# opendir(DISABLED,"$ENV{'BBVAR'}/disabled") - opendir(DISABLED,"/local/packages/IT/HOBBIT/hobbit/data/disabled") + opendir(DISABLED,"$ENV{'BBVAR'}/disabled") +# opendir(DISABLED,"/local/packages/IT/HOBBIT/hobbit/data/disabled") || warn "Could not open the disabled hosts directory: $!\n"; while (my $dhost = readdir(DISABLED)) { if ($dhost =~ /^\.*$/) { next; } $dhost =~ s/\..*$//; $dhost =~ s/,/\./g; @@ -821,34 +825,41 @@ closedir(DISABLED) || warn "Could not close the DISABLED directory handle: $!\n";
SNMP: while (my($host,$community) = each(%$commdb_ref)) { # Make only one session + + my($snmpsession,$snmperror) = Net::SNMP->session( -hostname => $host, -community => $community, -debug => $debug, -retries => $defretries, -timeout => $deftimeout, -translate => [ -timeticks => 0x0 ], ); # Net::SNMP->session - +# +# check if host is down Butch Deal +# if(grep(/$host/, at disabled) >= 1) { print "$host is disabled. Skipping.\n"; next SNMP; } -# -# check if host is down Butch Deal -# + if ( $HOBBIT ) { my $string = "query ".$host.".conn"; - my $hoststat = `$ENV{'BB'} $ENV{'BBDISP'} "$string"`; - if ($hoststat =~ "red") { + my $hoststat = `$ENV{'BB'} $ENV{'BBDISP'} "$string" `; + if ( length($hoststat) == 0 ) { + print "$host is not in bbhost file. Skipping.\n"; + next SNMP; + } + if ($hoststat !~ "green") { print "$host is down. Skipping.\n"; next SNMP; } } +
if (! defined($snmpsession)) { print((caller(0))[3].": SNMP session failed for '$host': $snmperror\n"); next SNMP; } @@ -868,15 +879,16 @@ (my $brandnum = substr($objectid,length($snmpoids{'enterprises'})+1)) =~ s/\..*$//; if (exists($enterprisenumbers{$brandnum})) { $enterprise = $enterprisenumbers{$brandnum}; } else { print("Unknown enterprise number '$brandnum' in ObjectID '$objectid'\n"); + print("Unknown enterprise number '$brandnum' in ObjectID '$objectid'\n"); next; } } else { print((caller(0))[3].": SNMP get request failed for '$host': ".$snmpsession->error()."\n"); - return; + next SNMP; }
# Determine what OS version the machine is. my $version = undef; unless ($version = &detect_version($host,$snmpsession,$enterprise)) { @@ -2882,11 +2894,11 @@ $powercolors{$index} = 'red'; } } # while (my($index,$state) = each(%statedb))
# find worst color - my $worstcolor = &color_compare(values(%statedb)); + my $worstcolor = &color_compare(values(%powercolors));
# compose message $message = "status $commahost.$test $worstcolor ".scalar(localtime)."\n\n"; my @indices = sort { $a <=> $b } keys(%statedb); foreach my $index (@indices) { @@ -3356,11 +3368,11 @@
# Get disk names, skip over "snapshots" and aggregates # Skip trailing slashes to make it more like Unix if (my $result = $snmpsession->get_table(-baseoid => $snmpoids{'dfFileSys'})) { while (my($key,$value) = each(%$result)) { - next if $value =~ /\.snapshot$|^aggr/; + next if $value =~ /\/\.\.$|\.snapshot$|^aggr/; (my $index = $key) =~ s/^.*\.//; $value =~ s/\/$//; $disknamedb{$index} = $value; } # while (($key,$value) = each(%$result)) } else { @@ -3479,12 +3491,12 @@
my $worstcolor = 'green'; # This is where I insert any messages about specific partitions going over their limits my @indices = sort { $a <=> $b } keys(%disknamedb); foreach my $index (@indices) { - my $yellowlimit = $ENV{'DFWARN'}; - my $redlimit = $ENV{'DFPANIC'}; + my $yellowlimit = $disk_defyellow; + my $redlimit = $disk_defred; if ((exists($diskthreshdb_ref->{$host})) && (defined($diskthreshdb_ref->{$host})) && (exists($diskthreshdb_ref->{$host}{$diskmntdb{$index}})) && (defined($diskthreshdb_ref->{$host}{$diskmntdb{$index}}))) { $redlimit = $diskthreshdb_ref->{$host}{$diskmntdb{$index}}{'red'}; @@ -3557,12 +3569,12 @@ my $worstcolor = 'green';
# This is where I insert any messages about specific partitions going over their limits my @indices = sort { $a <=> $b } keys(%disknamedb); foreach my $index (@indices) { - my $yellowlimit = $ENV{'DFWARN'}; - my $redlimit = $ENV{'DFPANIC'}; + my $yellowlimit = $disk_defyellow; + my $redlimit = $disk_defred; if ((exists($diskthreshdb_ref->{$host})) && (defined($diskthreshdb_ref->{$host})) && (exists($diskthreshdb_ref->{$host}{$diskmntdb{$index}})) && (defined($diskthreshdb_ref->{$host}{$diskmntdb{$index}}))) { $redlimit = $diskthreshdb_ref->{$host}{$diskmntdb{$index}}{'red'};
-----Original Message----- From: Francesco Duranti [mailto:fduranti at q8.it] Sent: Thursday, September 14, 2006 4:30 PM To: hobbit at hswn.dk Subject: [hobbit] R: [hobbit] question on disable until ok
If you use the last bb-xsnmp it also check with hobbit query command to see if a host is alive but it check only if the host is "red" so it will not get disabled. I got some problem with it because if it get a error in snmp response it exit and don't continue to check other hosts... I've modified it to continue to check.. Attached is a patch with the 1.79 version available on deadcat that check if a host exist in the bbhost file and if it's "conn" state is not "green" (so if you've disabled the conn test it will not check for snmp.
________________________________
Da: Marco Avvisano [mailto:marco.avvisano at regione.toscana.it] Inviato: gio 14/09/2006 14.53 A: hobbit at hswn.dk Oggetto: Re: [hobbit] question on disable until ok
Please DO NOT remove the hobbitd_filestore. We have quite a few lot custom scripts that use this "old
BB-style file
interface"
Yes there are many scripts that using these files ... for example bb-xsnmp if not find these files stop to make check.. so if it's possible not only to remove from the new version, but add it also a in 'disable until'
best regards
Marco
To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk
To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk
participants (2)
-
fduranti＠q8.it
-
marco.avvisano＠regione.toscana.it