sub web_rewalk_device { my $device = cgi_param ('device'); my $ipaddr = cgi_param ('ipaddr'); 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"); discover_device_rewalk ({ device => $device, ipaddr => $ipaddr }); process_unlock ($discover_lock); }