%PDF- %PDF-
Direktori : /usr/share/webmin/authentic-theme/extensions/file-manager/ |
Current File : //usr/share/webmin/authentic-theme/extensions/file-manager/tree.cgi |
#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev <programming@rostovtsev.io> # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; use File::Basename; use File::Find; our (%in, %text, @allowed_paths, $cwd, $base, $path); require(dirname(__FILE__) . '/file-manager-lib.pm'); kill_previous($0, $$); no warnings 'once'; unless (opendir(DIR, $cwd)) { fatal_errors("$text{'theme_xhred_global_error'}: [tt]`$cwd`[/tt]- $!."); exit; } my $tpath = ($in{'cpt'} ? $in{'cpt'} : $allowed_paths[0]); print_json(get_tree($tpath, $in{'d'}, $in{'e'}));