2 # Delete multiple cluster copies
4 require './cluster-copy-lib.pl';
6 &error_setup($text{'delete_err'});
7 @d = split(/\0/, $in{'d'});
8 @d || &error($text{'delete_enone'});
11 $copy = &get_copy($d);
13 $job = &find_cron_job($copy);
16 &lock_file(&cron::cron_file($job));
17 &cron::delete_cron_job($job);
18 &unlock_file(&cron::cron_file($job));
22 &webmin_log("deletes", undef, scalar(@d));