Index: ossp-pkg/snmpdx/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/snmpdx/ChangeLog,v
rcsdiff -q -kk '-r1.18' '-r1.19' -u '/v/ossp/cvs/ossp-pkg/snmpdx/ChangeLog,v' 2>/dev/null
--- ChangeLog	2007/03/01 10:52:38	1.18
+++ ChangeLog	2007/03/01 11:16:14	1.19
@@ -12,6 +12,12 @@
 
   Changes between 0.2.11 and 0.3.0 (2005-10-05 to 2007-03-01):
 
+   *) Add the four additional probe values swBindStatusRecClientsActive,
+      swBindStatusRecClientsMax, swBindStatusTcpClientsActive and
+      swBindStatusTcpClientsMax which correspond to the new information
+      returned from newer BIND 9 "rndc status".
+      [Ralf S. Engelschall]
+
    *) Upgrade build environment to GNU shtool 2.0.6 and GNU autoconf 2.60
       [Ralf S. Engelschall]
 
Index: ossp-pkg/snmpdx/snmpdx.d/swBind.pm
RCS File: /v/ossp/cvs/ossp-pkg/snmpdx/snmpdx.d/swBind.pm,v
rcsdiff -q -kk '-r1.3' '-r1.4' -u '/v/ossp/cvs/ossp-pkg/snmpdx/snmpdx.d/swBind.pm,v' 2>/dev/null
--- swBind.pm	2007/03/01 10:52:39	1.3
+++ swBind.pm	2007/03/01 11:16:15	1.4
@@ -40,17 +40,21 @@
     #   local workspace
     my $out; my $raw;
     my $rndc = "$openpkg/sbin/rndc";
-    my $file = "$openpkg/var/bind/named.stats"; #"statistics-file" setting in "option" section in named.conf
+    my $file = "$openpkg/var/bind/named.stats"; # "statistics-file" setting in "option" section in named.conf
 
-    ###   query status via rndc(8)
+    #   query status via rndc(8)
     $out = $self->{-ctx}->{-sys}->run("$rndc status 2>/dev/null", "1m");
     $raw = $out->{-stdout};
-    my $swBindStatusNumberOfZones = $1 if ($raw =~ m/number of zones: (\d+)/s        );
-    my $swBindStatusDebugLevel    = $1 if ($raw =~ m/debug level: (\d+)/s            );
-    my $swBindStatusXfersRunning  = $1 if ($raw =~ m/xfers running: (\d+)/s          );
-    my $swBindStatusXfersDeferred = $1 if ($raw =~ m/xfers deferred: (\d+)/s         );
-    my $swBindStatusSoaQueries    = $1 if ($raw =~ m/soa queries in progress: (\d+)/s);
-    my $swBindStatusQueryLogging  = $1 if ($raw =~ m/query logging is (^\n)+/s       );
+    my $swBindStatusNumberOfZones    = $1 if ($raw =~ m/number of zones: (\d+)/s         );
+    my $swBindStatusDebugLevel       = $1 if ($raw =~ m/debug level: (\d+)/s             );
+    my $swBindStatusXfersRunning     = $1 if ($raw =~ m/xfers running: (\d+)/s           );
+    my $swBindStatusXfersDeferred    = $1 if ($raw =~ m/xfers deferred: (\d+)/s          );
+    my $swBindStatusSoaQueries       = $1 if ($raw =~ m/soa queries in progress: (\d+)/s );
+    my $swBindStatusQueryLogging     = $1 if ($raw =~ m/query logging is (^\n)+/s        );
+    my $swBindStatusRecClientsActive = $1 if ($raw =~ m/recursive clients: (\d+)\/\d+/s  );
+    my $swBindStatusRecClientsMax    = $1 if ($raw =~ m/recursive clients: \d+\/(\d+)/s  );
+    my $swBindStatusTcpClientsActive = $1 if ($raw =~ m/tcp clients: (\d+)\/\d+/s        );
+    my $swBindStatusTcpClientsMax    = $1 if ($raw =~ m/tcp clients: \d+\/(\d+)/s        );
 
     ##   query stats via rndc(8)
     $self->{-ctx}->{-sys}->run("$rndc stats 2>/dev/null", "1m");
@@ -74,18 +78,22 @@
     my $swBindStatsFailure   = $1 if ($raw =~ m/failure (\d+)/s  );
 
     #   provide results
-    if    ($obj->{-name} =~ m|\.swBindStatusNumberOfZones$|) { $obj->{-value} = $swBindStatusNumberOfZones ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatusDebugLevel$|   ) { $obj->{-value} = $swBindStatusDebugLevel    ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatusXfersRunning$| ) { $obj->{-value} = $swBindStatusXfersRunning  ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatusXfersDeferred$|) { $obj->{-value} = $swBindStatusXfersDeferred ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatusSoaQueries$|   ) { $obj->{-value} = $swBindStatusSoaQueries    ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatusQueryLogging$| ) { $obj->{-value} = $swBindStatusQueryLogging  ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsSuccess$|       ) { $obj->{-value} = $swBindStatsSuccess        ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsReferral$|      ) { $obj->{-value} = $swBindStatsReferral       ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsNxrrset$|       ) { $obj->{-value} = $swBindStatsNxrrset        ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsNxdomain$|      ) { $obj->{-value} = $swBindStatsNxdomain       ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsRecursion$|     ) { $obj->{-value} = $swBindStatsRecursion      ; }
-    elsif ($obj->{-name} =~ m|\.swBindStatsFailure$|       ) { $obj->{-value} = $swBindStatsFailure        ; }
+    if    ($obj->{-name} =~ m|\.swBindStatusNumberOfZones$|   ) { $obj->{-value} = $swBindStatusNumberOfZones;    }
+    elsif ($obj->{-name} =~ m|\.swBindStatusDebugLevel$|      ) { $obj->{-value} = $swBindStatusDebugLevel;       }
+    elsif ($obj->{-name} =~ m|\.swBindStatusXfersRunning$|    ) { $obj->{-value} = $swBindStatusXfersRunning;     }
+    elsif ($obj->{-name} =~ m|\.swBindStatusXfersDeferred$|   ) { $obj->{-value} = $swBindStatusXfersDeferred;    }
+    elsif ($obj->{-name} =~ m|\.swBindStatusSoaQueries$|      ) { $obj->{-value} = $swBindStatusSoaQueries;       }
+    elsif ($obj->{-name} =~ m|\.swBindStatusQueryLogging$|    ) { $obj->{-value} = $swBindStatusQueryLogging;     }
+    elsif ($obj->{-name} =~ m|\.swBindStatusRecClientsActive$|) { $obj->{-value} = $swBindStatusRecClientsActive; }
+    elsif ($obj->{-name} =~ m|\.swBindStatusRecClientsMax$|   ) { $obj->{-value} = $swBindStatusRecClientsMax;    }
+    elsif ($obj->{-name} =~ m|\.swBindStatusTcpClientsActive$|) { $obj->{-value} = $swBindStatusTcpClientsActive; }
+    elsif ($obj->{-name} =~ m|\.swBindStatusTcpClientsMax$|   ) { $obj->{-value} = $swBindStatusTcpClientsMax;    }
+    elsif ($obj->{-name} =~ m|\.swBindStatsSuccess$|          ) { $obj->{-value} = $swBindStatsSuccess;           }
+    elsif ($obj->{-name} =~ m|\.swBindStatsReferral$|         ) { $obj->{-value} = $swBindStatsReferral;          }
+    elsif ($obj->{-name} =~ m|\.swBindStatsNxrrset$|          ) { $obj->{-value} = $swBindStatsNxrrset;           }
+    elsif ($obj->{-name} =~ m|\.swBindStatsNxdomain$|         ) { $obj->{-value} = $swBindStatsNxdomain;          }
+    elsif ($obj->{-name} =~ m|\.swBindStatsRecursion$|        ) { $obj->{-value} = $swBindStatsRecursion;         }
+    elsif ($obj->{-name} =~ m|\.swBindStatsFailure$|          ) { $obj->{-value} = $swBindStatsFailure;           }
     return;
 }
 
Index: ossp-pkg/snmpdx/snmpdx.mib/snmpdx.mib
RCS File: /v/ossp/cvs/ossp-pkg/snmpdx/snmpdx.mib/snmpdx.mib,v
rcsdiff -q -kk '-r1.17' '-r1.18' -u '/v/ossp/cvs/ossp-pkg/snmpdx/snmpdx.mib/snmpdx.mib,v' 2>/dev/null
--- snmpdx.mib	2007/03/01 10:52:40	1.17
+++ snmpdx.mib	2007/03/01 11:16:15	1.18
@@ -729,6 +729,34 @@
     DESCRIPTION "SOA query logging state"
     ::= { swBindStatus 6 }
 
+swBindStatusRecClientsActive OBJECT-TYPE
+    SYNTAX      Integer32
+    MAX-ACCESS  read-only
+    STATUS      current
+    DESCRIPTION "active recursive clients"
+    ::= { swBindStatus 7 }
+
+swBindStatusRecClientsMax OBJECT-TYPE
+    SYNTAX      Integer32
+    MAX-ACCESS  read-only
+    STATUS      current
+    DESCRIPTION "maximum recursive clients"
+    ::= { swBindStatus 8 }
+
+swBindStatusTcpClientsActive OBJECT-TYPE
+    SYNTAX      Integer32
+    MAX-ACCESS  read-only
+    STATUS      current
+    DESCRIPTION "active TCP clients"
+    ::= { swBindStatus 9 }
+
+swBindStatusTcpClientsMax OBJECT-TYPE
+    SYNTAX      Integer32
+    MAX-ACCESS  read-only
+    STATUS      current
+    DESCRIPTION "maximum TCP clients"
+    ::= { swBindStatus 10 }
+
 --
 --  BIND statistics ("rndc stats")
 --