mirror of
https://github.com/webmin/webmin.git
synced 2025-07-25 01:23:45 +00:00
55 lines
1.4 KiB
Perl
Executable File
55 lines
1.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# upform.cgi
|
|
# Display the upload form
|
|
|
|
$trust_unknown_referers = 1;
|
|
require './file-lib.pl';
|
|
$disallowed_buttons{'upload'} && &error($text{'ebutton'});
|
|
&ReadParse(undef, undef, 1);
|
|
&popup_header($text{'upload_title'});
|
|
$upid = time().$$;
|
|
$args = ($in{'extra'} ? $in{'extra'}."&" : "?")."id=$upid";
|
|
|
|
print &ui_form_start("upload.cgi$args", "form-data", undef,
|
|
&read_parse_mime_javascript($upid, [ "file" ]));
|
|
print &ui_table_start($text{'upload_title'}, "width=100%", 2);
|
|
|
|
print &ui_table_row($text{'upload_file'},
|
|
&ui_upload("file", 20));
|
|
|
|
print &ui_table_row($text{'upload_dir'},
|
|
&ui_textbox("dir", $in{'dir'}, 20)."\n".
|
|
&ui_submit($text{'upload_ok'}));
|
|
|
|
if ($dostounix == 1) {
|
|
# Do DOS conversion?
|
|
print &ui_table_row($text{'upload_conv'},
|
|
&ui_yesno_radio("dos", 0));
|
|
}
|
|
|
|
if ($unarchive == 1) {
|
|
# Unzip file?
|
|
print &ui_table_row($text{'upload_zip'},
|
|
&ui_radio("zip", int($config{'defzip'}),
|
|
[ [ 2, $text{'upload_yes'} ],
|
|
[ 1, $text{'yes'} ],
|
|
[ 0, $text{'no'} ] ]));
|
|
}
|
|
|
|
if ($running_as_root) {
|
|
# Upload as user
|
|
$user = $config{'defuser'} || "root";
|
|
if ($user eq "*") {
|
|
# Get from parent directory
|
|
local @st = stat(&unmake_chroot($in{'dir'}));
|
|
$user = getpwuid($st[4]);
|
|
}
|
|
print &ui_table_row($text{'upload_user'},
|
|
&ui_user_textbox("user", $user));
|
|
}
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end();
|
|
&popup_footer();
|
|
|