sub web_discover_device { my @ipaddr = cgi_param ('ipaddr'); my $snmp_param = cgi_param ('snmp_param'); # optional my $discover_lock; return if (scalar @ipaddr == 0); # Get a lock on the discover $discover_lock = process_lock ($DISCOVER_LOCK, LOCK_EX) or EXIT_FATAL ("Failed to get a lock"); if (discover_scan ($snmp_param, @ipaddr) > 0) { discover_config (); } process_unlock ($discover_lock); }