diff options
Diffstat (limited to 'net/scotty3/files/patch-ab')
| -rw-r--r-- | net/scotty3/files/patch-ab | 82 |
1 files changed, 14 insertions, 68 deletions
diff --git a/net/scotty3/files/patch-ab b/net/scotty3/files/patch-ab index 06393a6dc6db..fea4b9f9de78 100644 --- a/net/scotty3/files/patch-ab +++ b/net/scotty3/files/patch-ab @@ -1,69 +1,15 @@ ---- ../tkined/apps/ip_discover.tcl Thu Sep 12 22:01:03 1996 -+++ /usr/local/lib/tkined1.4.5/apps/ip_discover.tcl Tue Mar 4 23:05:50 1997 -@@ -30,6 +30,7 @@ - set columns 16 - set report true - set debug false -+set communities {public private} - - - ## -@@ -343,20 +344,22 @@ - } - - proc discover_snmp {} { -- global nodes address snmp -+ global nodes address snmp communities - global icmp_retries icmp_timeout - set start [clock seconds] - mib load rfc1213.mib -- foreach id [array names nodes] { -- set ip $address($id) -- if {[catch {snmp session -address $ip \ -- -retries $icmp_retries -timeout $icmp_timeout} s]} continue -- if {[catch { -- $s get sysObjectID.0 [list discover_snmp_callback $id "%S" "%E"] -- } msg]} { -- writeln "Oops: $ip get sysObjectID.0: $msg" -+ foreach com $communities { -+ foreach id [array names nodes] { -+ set ip $address($id) -+ if {[catch {snmp session -address $ip -community $com \ -+ -retries $icmp_retries -timeout $icmp_timeout} s]} continue -+ if {[catch { -+ $s get sysObjectID.0 [list discover_snmp_callback $id "%S" "%E"] -+ } msg]} { -+ writeln "Oops: $ip get sysObjectID.0: $msg" -+ } -+ update +--- ../tkined/apps/snmp_monitor.tcl Mon Sep 2 18:30:19 1996 ++++ ..//tkined/apps/snmp_monitor.tcl Mon Mar 3 14:43:52 1997 +@@ -482,8 +482,11 @@ + + set args $ip + set i 0 ++ set snmpconfig [ined attribute $id "SNMP:Config"] + foreach if $iflist { +- lappend args [CreateChart $id [expr 30+$i] [expr 30+$i]] ++ set nid [CreateChart $id [expr 30+$i] [expr 30+$i]] ++ lappend args $nid ++ ined -noupdate attribute $nid "SNMP:Config" $snmpconfig + lappend args $if + incr i } -- update - } - snmp wait - set count [llength [array names snmp]] -@@ -1276,6 +1279,7 @@ - global email_trace - global report - global debug -+ global communities - - set result [ined request "IP-Discover Parameter" \ - [list [list "# of ICMP retries:" $icmp_retries scale 1 10] \ -@@ -1287,7 +1291,8 @@ - [list "Nodes per row:" $columns scale 10 40] \ - [list "Email Discover Routes:" $email_trace radio true false] \ - [list "Write Report:" $report radio true false] \ -- [list "Debug Mode:" $debug radio true false] ] \ -+ [list "Debug Mode:" $debug radio true false] \ -+ [list "SNMP Communities:" $communities entry 10] ] \ - [list "set values" cancel] ] - - if {[lindex $result 0] == "cancel"} return -@@ -1302,6 +1307,7 @@ - set email_trace [lindex $result 8] - set report [lindex $result 9] - set debug [lindex $result 10] -+ set communities [lindex $result 11] - - icmp -retries $icmp_retries - icmp -timeout $icmp_timeout |