mirror of
https://github.com/webmin/webmin.git
synced 2026-04-16 22:20:26 +01:00
39 lines
817 B
Perl
39 lines
817 B
Perl
#!/usr/local/bin/perl
|
|
|
|
require './filemin-lib.pl';
|
|
|
|
&ReadParse();
|
|
|
|
get_paths();
|
|
|
|
my $recursive;
|
|
|
|
if($in{'recursive'} eq 'true') { $recursive = '-R'; } else { $recursive = ''; }
|
|
|
|
my @errors;
|
|
|
|
if(!$in{'label'}) {
|
|
push @errors, "$text{'context_label_error'}";
|
|
}
|
|
|
|
if (scalar(@errors) > 0) {
|
|
print_errors(@errors);
|
|
} else {
|
|
foreach my $file (split(/\0/, $in{'name'})) {
|
|
$file =~ s/\.\.//g;
|
|
&simplify_path($file);
|
|
if(
|
|
system_logged(
|
|
"chcon $recursive " . quotemeta($in{'label'}) . " " . quotemeta("$cwd/$file")
|
|
) != 0) {
|
|
push @errors, "$file - $text{'context_label_error_proc'}: $?";
|
|
}
|
|
}
|
|
|
|
if (scalar(@errors) > 0) {
|
|
print_errors(@errors);
|
|
} else {
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
}
|