%PDF- %PDF-
Direktori : /usr/share/webmin/authentic-theme/extensions/file-manager/ |
Current File : //usr/share/webmin/authentic-theme/extensions/file-manager/create_folder.cgi |
#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev <programming@rostovtsev.io> # 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 File::Basename; our (%in, %text, $cwd, $path); require(dirname(__FILE__) . '/file-manager-lib.pm'); my $path_urlized = urlize($path); if (!$in{'name'}) { redirect_local(("list.cgi?path=$path_urlized&module=$in{'module'}" . extra_query())); } my $type; if (-d "$cwd/$in{'name'}") { $type = 'directory'; } else { $type = 'file'; } if (-f "$cwd/$in{'name'}" || -d "$cwd/$in{'name'}") { print_error( ( text('filemanager_create_object_exists', html_escape($in{'name'}), html_escape($path), $text{ 'theme_xhred_global_' . $type . '' } ) )); } else { if (mkdir("$cwd/$in{'name'}", oct(755))) { redirect_local(("list.cgi?path=$path_urlized&module=$in{'module'}" . extra_query())); } else { print_error( ( text('filemanager_create_object_denied', html_escape($in{'name'}), html_escape($path), $text{'theme_xhred_global_directory'} ) )); } }