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/delete.cgi (3692B)

#!/usr/bin/perl

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

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

use File::Copy;
use File::Path;

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

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

my %errors;
my @deleted_entries;

my @entries_list = get_entries_list();
my $fsid         = $in{'fsid'};
my $time         = strftime('%Y-%m-%d_%H:%M:%S', localtime());
my $tdirname     = '.Trash';
my $mkpath_      = sub {
    my ($dir) = @_;
    my $rs = mkpath($dir, { owner => int($in{'uid'}), group => int($in{'guid'}) });
    return $rs;
};
my $etrashed = 0;

foreach my $name (@entries_list) {
    my $name_ = $name;
    $name = simplify_path($name);
    if ($in{'etrash'}) {
        my $tdir = "$cwd/$tdirname/";
        if (!can_write($tdir)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
            next;    
        }
        if (!&unlink_file($tdir)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
        } else {
            push(@deleted_entries, $name);
        }
    } elsif ($in{'trash'}) {
        my $jdir = $in{'home'};
        $jdir = "$+{jhdir}"
          if ($jdir =~ /\/.(?<jhdir>\/.*?)$/);
        my $hdir =
          (-d $jdir             && -w $jdir)             ? $jdir :
          (-d $allowed_paths[0] && -w $allowed_paths[0]) ? $allowed_paths[0] :
          undef;
        my $tdir    = "$hdir/$tdirname/$cwd";
        my %mkpopts = { owner => int($in{'uid'}), group => int($in{'guid'}) };
        my $mkpathr = &$mkpath_($tdir);
        my $tfile;
        if (!$mkpathr && -f "$tdir/$name" && -r "$tdir/$name") {
            $tfile = "$tdir/$name-$time";
        } elsif (!$mkpathr && glob("\Q$tdir/$name\E/*")) {
            $tfile = "$tdir/$name-$time";
            &$mkpath_($tdir);
        }
        if (!move("$cwd/$name", $tfile || "$tdir/$name")) {

# Do not throw an error when moving .Trash inside the .Trash
            if (&is_under_directory("$cwd/$name", $tfile || "$tdir/$name")) {
                # If .Trash the only one in list, delete it
                if (scalar(@entries_list) == 1) {
                    if (!can_write("$cwd/$name")) {
                        $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
                    }
                    elsif (!&unlink_file("$cwd/$name")) {
                        $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
                    } else {
                        $etrashed = 1;
                        push(@deleted_entries, $name);
                    }
                }
            } else {
                $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
            }
        } else {
            push(@deleted_entries, $name);
        }
    } else {
        if (!can_write($cwd . '/' . $name)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
        }
        elsif (!&unlink_file($cwd . '/' . $name)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
        } else {
            push(@deleted_entries, $name);
        }
    }
}

if ($fsid) {
    cache_search_delete($fsid, \@deleted_entries);
}

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

#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev # Copyright Alexandr Bezenkov (https://github.com/real-gecko/filemin) # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; use lib ($ENV{'LIBROOT'} . "/vendor_perl"); use File::Copy; use File::Path; our (%in, %text, $cwd, $path, @allowed_paths); require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl"); my %errors; my @deleted_entries; my @entries_list = get_entries_list(); my $fsid = $in{'fsid'}; my $time = strftime('%Y-%m-%d_%H:%M:%S', localtime()); my $tdirname = '.Trash'; my $mkpath_ = sub { my ($dir) = @_; my $rs = mkpath($dir, { owner => int($in{'uid'}), group => int($in{'guid'}) }); return $rs; }; my $etrashed = 0; foreach my $name (@entries_list) { my $name_ = $name; $name = simplify_path($name); if ($in{'etrash'}) { my $tdir = "$cwd/$tdirname/"; if (!can_write($tdir)) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}")); next; } if (!&unlink_file($tdir)) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $!")); } else { push(@deleted_entries, $name); } } elsif ($in{'trash'}) { my $jdir = $in{'home'}; $jdir = "$+{jhdir}" if ($jdir =~ /\/.(?\/.*?)$/); my $hdir = (-d $jdir && -w $jdir) ? $jdir : (-d $allowed_paths[0] && -w $allowed_paths[0]) ? $allowed_paths[0] : undef; my $tdir = "$hdir/$tdirname/$cwd"; my %mkpopts = { owner => int($in{'uid'}), group => int($in{'guid'}) }; my $mkpathr = &$mkpath_($tdir); my $tfile; if (!$mkpathr && -f "$tdir/$name" && -r "$tdir/$name") { $tfile = "$tdir/$name-$time"; } elsif (!$mkpathr && glob("\Q$tdir/$name\E/*")) { $tfile = "$tdir/$name-$time"; &$mkpath_($tdir); } if (!move("$cwd/$name", $tfile || "$tdir/$name")) { # Do not throw an error when moving .Trash inside the .Trash if (&is_under_directory("$cwd/$name", $tfile || "$tdir/$name")) { # If .Trash the only one in list, delete it if (scalar(@entries_list) == 1) { if (!can_write("$cwd/$name")) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}")); } elsif (!&unlink_file("$cwd/$name")) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $!")); } else { $etrashed = 1; push(@deleted_entries, $name); } } } else { $errors{$name_} = lc($text{'error_delete'} . lc(" - $!")); } } else { push(@deleted_entries, $name); } } else { if (!can_write($cwd . '/' . $name)) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}")); } elsif (!&unlink_file($cwd . '/' . $name)) { $errors{$name_} = lc($text{'error_delete'} . lc(" - $!")); } else { push(@deleted_entries, $name); } } } if ($fsid) { cache_search_delete($fsid, \@deleted_entries); } redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . '&etrashed=' . $etrashed . '&error=' . get_errors(\%errors) . extra_query());