/usr/share/doc/bacula-common/examples/conf/fileset_convert.pl is in bacula-common 7.0.5+dfsg-4build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | #!/usr/bin/perl
#
# A nice little script written by Matt Howard that will
# convert old style Bacula FileSets into the new style.
#
# fileset_convert.pl bacula-dir.conf >output-file
#
use warnings;
use strict;
my $in;
$in .= $_ while (<>);
sub options {
return "Options { ".join('; ',split(/\s+/, shift)) . " } ";
}
sub file_lines {
return join($/, map {" File = $_"} split(/\n\s*/, shift));
}
$in =~ s/Include\s*=\s*((?:\w+=\w+\s+)*){\s*((?:.*?\n)+?)\s*}/
"Include { " .
( $1 ? options($1) : '' ) . "\n" .
file_lines($2) .
"\n }" /eg;
$in =~ s/Exclude\s*=\s*{\s*}/
"Exclude { }"/eg;
$in =~ s/Exclude\s*=\s*{\s*((?:.*?\n)+?)\s*}/
"Exclude {\n" . file_lines($1) . "\n }"/eg;
print $in;
|