# Site script to delete device[s] 
sub web_delete_device
{
   my $device_names;
   my @device_to_be_deleted;

   $device_names = cgi_param ("device_names");
   @device_to_be_deleted = split(',', $device_names);

   if (scalar (@device_to_be_deleted) > 0 ) {
      config_delete_device (@device_to_be_deleted);
   }
}