1#!/usr/local/bin/perl 2# Delete multiple filesets 3 4require './bacula-backup-lib.pl'; 5&ReadParse(); 6$conf = &get_director_config(); 7$parent = &get_director_config_parent(); 8@filesets = &find("FileSet", $conf); 9 10&error_setup($text{'filesets_derr'}); 11@d = split(/\0/, $in{'d'}); 12@d || &error($text{'filesets_ednone'}); 13 14&lock_file($parent->{'file'}); 15foreach $d (@d) { 16 $fileset = &find_by("Name", $d, \@filesets); 17 if ($fileset) { 18 $child = &find_dependency("FileSet", $d, [ "Job", "JobDefs" ], $conf); 19 $child && &error(&text('fileset_echild', $child)); 20 &save_directive($conf, $parent, $fileset, undef, 0); 21 } 22 } 23&flush_file_lines($parent->{'file'}); 24&unlock_file($parent->{'file'}); 25&webmin_log("delete", "filesets", scalar(@d)); 26&redirect("list_filesets.cgi"); 27 28