← Back
Editing: copy.cgi
#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev <ilia@virtualmin.com> # Copyright Alexandr Bezenkov (https://github.com/real-gecko/filemin) # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; our (%in, $path); require($ENV{'THEME_ROOT'}."/extensions/file-manager/file-manager-lib.pl"); my @entries_list = get_entries_list(); open(my $fh, ">", &get_paste_buffer_file()) or die "Error: $!"; print $fh "copy\n"; print $fh "$path\n"; foreach my $name (@entries_list) { print $fh "$name\n"; } close($fh); head();
Save File
Cancel