| files >> /usr/libexec/webmin/filemin/ |
| files >> //usr/libexec/webmin/filemin/cut.cgi |
#!/usr/bin/perl
require './filemin-lib.pl';
&ReadParse();
get_paths();
open(my $fh, ">", &get_paste_buffer_file()) or die "Error: $!";
print $fh "cut\n";
print $fh "$path\n";
#$info = "Copied ".scalar(@list)." files to buffer";
foreach $name (split(/\0/, $in{'name'})) {
print $fh "$name\n";
}
close($fh);
&redirect("index.cgi?path=".&urlize($path));
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`