PAL.C.T MINI SHELL
#!/usr/bin/perl
# upload2.cgi
# Rename a file that has already been uploaded
require './file-lib.pl';
$disallowed_buttons{'upload'} && &error($text{'ebutton'});
&header();
&ReadParse();
if ($in{'yes'}) {
# Put it in place, overwriting any other file
&webmin_log("upload", undef, $in{'path'});
&switch_acl_uid($running_as_root ? $in{'user'} : undef);
if ($access{'ro'} || !&can_access($in{'path'})) {
print "<p><b>",&text('upload_eperm', $in{'path'}),"</b><p>\n";
}
elsif (!&open_tempfile(FILE, ">".&unmake_chroot($in{'path'}), 1)) {
print "<p><b>",&text('upload_ewrite', $in{'path'}, $!),"</b><p>\n";
}
else {
open(TEMP, $in{'temp'});
©data(TEMP, FILE) ||
&error(&text('upload_ewrite', $in{'path'}, $!));
close(TEMP);
&close_tempfile(FILE);
&post_upload($in{'path'}, $in{'dir'}, $in{'zip'});
}
unlink($in{'temp'});
}
else {
# Just delete the temp file
&switch_acl_uid();
unlink($in{'temp'});
print "<script>\n";
print "close();\n";
print "</script>\n";
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`