| 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;
our (%in, %text, $cwd, $path);
require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl");
my @entries_list = get_entries_list();
my $path_urlized = urlize($path);
my $error;
if (!@entries_list) {
redirect_local(("list.cgi?path=$path_urlized&module=filemin" . extra_query()));
}
foreach my $name (@entries_list) {
my $name_ = $name;
$name = simplify_path($name);
my $symlink = "$cwd/${name}--symlink";
# If symlink exists add a numerable suffix
if (-e $symlink) {
my $__ = 1;
for (;;) {
my $necwd = "$symlink(" . $__++ . ")";
if (!-e $necwd) {
$symlink = $necwd;
last;
}
}
}
if (symlink_file("$cwd/$name", $symlink) == 0) {
$error .= "<br>" if ($error);
$error .= text('filemanager_symlink_exists', html_escape("${name_}_symlink"), html_escape($cwd));
}
}
redirect_local('list.cgi?path=' . $path_urlized . '&module=filemin' . '&error=' . $error . extra_query());