sub custom_discover { my $discover_lock; # Get a lock on the discover $discover_lock = process_lock ($DISCOVER_LOCK, LOCK_EX) or EXIT_FATAL ("Failed to get a lock"); # Open discover log file discover_log ("discover-script.log"); # Full discovery using Ping Ranges and SNMP Parameters # under Admin > Discover > Discover/Rewalk #if (discover_scan () > 0) { # discover_config (); #} # Single device discovery using specified SNMP parameters #if (discover_scan ("version 2 community public", "10.1.2.3") > 0) { # discover_config (); #} # Scan IP address ranges using SNMP Parameters # under Admin > Discover > Discover/Rewalk #if (discover_scan (undef, "10.1.2.0/24", "10.1.3.0/24") > 0) { # discover_config (); #} # Close discover log file stdout_log_close (); process_unlock ($discover_lock); }