File manager - Edit - /usr/share/webmin/authentic-theme/extensions/file-manager/paste.cgi
Back
#!/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, %request_uri, $cwd, $base, $path); require($ENV{'THEME_ROOT'}."/extensions/file-manager/file-manager-lib.pl"); open(my $fh, "<".&get_paste_buffer_file()) or die "Error: $!"; my @arr = <$fh>; close($fh); if (test_all_items_query()) { my @entries_list; my @entries_list_entries = get_entries_list(); push(@entries_list, $arr[0], $arr[1], @entries_list_entries); undef(@arr); @arr = @entries_list; } my $act = $arr[0]; my $dir = $arr[1]; chomp($act); chomp($dir); my $from = abs_path($base.$dir); my %errors; my $mv = ($act eq "copy" ? 0 : 1); my $fr = (length $request_uri{'ua'} ? 1 : 0); my $fo = ($request_uri{'ua'} eq '1' ? 1 : 0); my $dr = 0; if (!$from || !fm_path_is_allowed($from)) { $errors{$dir} = fm_not_allowed_error($dir, $from); } # Dry run first to check if targets already exist if (!$fr && !%errors) { for (my $i = 2 ; $i <= scalar(@arr) - 1 ; $i++) { chomp($arr[$i]); $arr[$i] = fm_normalize_path_name($arr[$i], $from); my $target = fm_checked_cwd_path($arr[$i]); if (!$target) { $errors{$arr[$i]} = fm_not_allowed_error($arr[$i]); set_response('err'); last; } if ((-e $target) && $cwd ne $from) { $dr++; set_response('ep'); last; } } } # Perform actual action if (!$dr && !%errors) { for (my $i = 2 ; $i <= scalar(@arr) - 1 ; $i++) { chomp($arr[$i]); $arr[$i] = fm_normalize_path_name($arr[$i], $from); my $source = fm_checked_path_under($from, $arr[$i]); my $target = fm_checked_cwd_path($arr[$i]); my $source_dir = $source; my $target_dir = $target; $source_dir =~ s/\/[^\/]*$// if ($source_dir); $target_dir =~ s/\/[^\/]*$// if ($target_dir); $source_dir ||= '/'; $target_dir ||= '/'; if (!$source || !$target || !can_move($source, $source_dir, $target_dir)) { $errors{"$arr[$i]"} = "$text{'error_move'}"; next; } my $err = paster("$cwd", "$arr[$i]", $source, $target, $fo, $mv, $in{'fownergroup'}); if ($err) { $errors{"$arr[$i]"} = $err; } } } if (%errors) { set_response('err'); redirect_local('list.cgi?path='. urlize($path). '&module=filemin'. '&error='. get_errors(\%errors). extra_query()); } else { set_response_count(scalar(@arr) - 2); redirect_local('list.cgi?path='. urlize($path). '&module=filemin'. '&error=1'. extra_query()); }
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.56 |
proxy
|
phpinfo
|
Settings