FM / file-manager

/usr/share/usermin/authentic-theme/extensions/file-manager/

/usr/share/usermin/authentic-theme/extensions/file-manager

Name	Size	Mode	Actions
acls.cgi	2337	0755	edit dl rm
bookmark.cgi	953	0755	edit dl rm
chattr.cgi	1218	0755	edit dl rm
chcon.cgi	1082	0755	edit dl rm
chmod.cgi	3305	0755	edit dl rm
chown.cgi	1540	0755	edit dl rm
compress.cgi	4799	0755	edit dl rm
copy.cgi	618	0755	edit dl rm
create_file.cgi	1438	0755	edit dl rm
create_folder.cgi	1429	0755	edit dl rm
create_symlink.cgi	1280	0755	edit dl rm
cut.cgi	617	0755	edit dl rm
delete.cgi	3692	0755	edit dl rm
download.cgi	3612	0755	edit dl rm
extract.cgi	7858	0755	edit dl rm
fetcher.cgi	1311	0755	edit dl rm
file-manager-lib.pl	49270	0644	edit dl rm
file-manager-reinit.min.js	1628	0644	edit dl rm
file-manager-reinit.min.js.gz	805	0644	edit dl rm
file-manager.min.js	235219	0644	edit dl rm
file-manager.min.js.gz	50325	0644	edit dl rm
gpg.cgi	3969	0755	edit dl rm
http_download.cgi	1584	0755	edit dl rm
list-images.cgi	7681	0755	edit dl rm
list.cgi	345	0755	edit dl rm
paste.cgi	2096	0755	edit dl rm
purge_trash.cgi	1489	0755	edit dl rm
rename.cgi	1519	0755	edit dl rm
search.cgi	345	0755	edit dl rm
tree.cgi	610	0755	edit dl rm

Edit: /usr/share/usermin/authentic-theme/extensions/file-manager/acls.cgi (2337B)

#!/usr/bin/perl

#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;

use lib ($ENV{'LIBROOT'} . "/vendor_perl");

our (%in, %text, $cwd, $path, @allowed_paths);

require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl");

my %errors;

# Files to work on (arr)
my @files = get_entries_list();

# Action
my $action = $in{'action'};

# Permission
my $perms = $in{'perms'};

# User
my $user = $in{'user'};

# Group
my $group = $in{'group'};

# Recursive
my $recursive = $in{'recursive'} ? " -R" : "";

# Manual
my $extra = $in{'manual'};

# Apply to (arr)
my @apply_to = split(/\0/, $in{'apply_to'});

# Delete doesn't allow perms
$perms = "" if ($action eq '-x');

# Build params
my @types;
foreach my $type (@apply_to) {
    if ($user && $type eq 'u') {
        push(@types, "u:${user}:${perms}");
    }
    if ($group && $type eq 'g') {
        push(@types, "g:${group}:${perms}");
    }
    if ($type =~ /^m|o$/) {
        push(@types, "${type}::${perms}");
    }
}
my $cmd = &has_command('setfacl');
if (!$cmd) {
    $errors{ $text{'error'} } = "$text{'acls_error'}";

} else {
    my $types;
    # Params are not accepted in clear mode
    if ($action ne '-b' && $action ne '-k') {
        $types = quotemeta(join(',', @types)) if (@types);
        if ($extra) {
            my @extra = split(/\s/, $extra);
            @extra = map {quotemeta($_)} @extra;
            $types .= " " . join(' ', @extra);
        }
    }
    my $args = quotemeta($action) . " " . $types . " " . $recursive;
    $args =~ s/\s+/ /g;
    $args = &trim($args);

foreach my $file (@files) {
        my $qfile = quotemeta("$cwd/$file");
        next if (!-r "$cwd/$file");
        my $fullcmd = "$cmd $args $qfile";
        my $out     = &backquote_logged("$fullcmd 2>&1 >/dev/null </dev/null");
        if ($?) {
            $out =~ s/\s+Usage:\ssetfacl.*//g;
            $out =~ s/\s+Try\s`.*//g;
            $out =~ s/.*setfacl.*?:\s+//g;
            $errors{$file} = "\[tt\]$cmd $args $cwd/$file\[/tt\] : $out";
        }
    }
}

redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . '&error=' . get_errors(\%errors) . extra_query());

#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; use lib ($ENV{'LIBROOT'} . "/vendor_perl"); our (%in, %text, $cwd, $path, @allowed_paths); require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl"); my %errors; # Files to work on (arr) my @files = get_entries_list(); # Action my $action = $in{'action'}; # Permission my $perms = $in{'perms'}; # User my $user = $in{'user'}; # Group my $group = $in{'group'}; # Recursive my $recursive = $in{'recursive'} ? " -R" : ""; # Manual my $extra = $in{'manual'}; # Apply to (arr) my @apply_to = split(/\0/, $in{'apply_to'}); # Delete doesn't allow perms $perms = "" if ($action eq '-x'); # Build params my @types; foreach my $type (@apply_to) { if ($user && $type eq 'u') { push(@types, "u:${user}:${perms}"); } if ($group && $type eq 'g') { push(@types, "g:${group}:${perms}"); } if ($type =~ /^m|o$/) { push(@types, "${type}::${perms}"); } } my $cmd = &has_command('setfacl'); if (!$cmd) { $errors{ $text{'error'} } = "$text{'acls_error'}"; } else { my $types; # Params are not accepted in clear mode if ($action ne '-b' && $action ne '-k') { $types = quotemeta(join(',', @types)) if (@types); if ($extra) { my @extra = split(/\s/, $extra); @extra = map {quotemeta($_)} @extra; $types .= " " . join(' ', @extra); } } my $args = quotemeta($action) . " " . $types . " " . $recursive; $args =~ s/\s+/ /g; $args = &trim($args); foreach my $file (@files) { my $qfile = quotemeta("$cwd/$file"); next if (!-r "$cwd/$file"); my $fullcmd = "$cmd $args $qfile"; my $out = &backquote_logged("$fullcmd 2>&1 >/dev/null