| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/authentic-theme/extensions/file-manager/ |
Upload File : |
#!/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 (%access, @remote_user_info, %in, %text, $path);
require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl");
my %errors;
my $tdirname = '.Trash';
my $trashall = $in{'trash_all'};
# Delete all trashes if allowed
if ($trashall &&
$access{'work_as_root'} &&
!$access{'work_as_user'})
{
&foreign_require("useradmin");
my %uaconfig = %useradmin::config;
my %uaaccess = %useradmin::access;
my @uaallulist = &useradmin::list_users();
my @uaulist = &useradmin::list_allowed_users(\%uaaccess, \@uaallulist);
return if (!$uaconfig{'home_base'} || $uaconfig{'base_uid'} !~ /^\d+$/);
my @uahomeulist =
grep {$_->{'home'} =~ /^\Q$uaconfig{'home_base'}\E/ && $_->{'uid'} >= $uaconfig{'base_uid'}} @uaulist;
foreach my $uhome (@uahomeulist) {
my $tdir = "$uhome->{'home'}/$tdirname";
&unlink_file($tdir) if (-w $tdir);
}
}
# Delete for the current user
elsif (-w $remote_user_info[7]) {
my $tdir = "$remote_user_info[7]/$tdirname";
&unlink_file($tdir) if (-w $tdir);
}
redirect_local(
'list.cgi?path=' . urlize($path) . '&module=filemin' . '&error=' . get_errors(\%errors) . extra_query());