Viewing file:  create_symlink.cgi (1.25 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/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);
do($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());
|