file/upform.cgi

   1 #!/usr/local/bin/perl
   2 # upform.cgi
   3 # Display the upload form
   4
   5 $trust_unknown_referers = 1;
   6 require './file-lib.pl';
   7 $disallowed_buttons{'upload'} && &error($text{'ebutton'});
   8 &ReadParse(undef, undef, 1);
   9 &popup_header($text{'upload_title'});
  10 $upid = time().$$;
  11 $args = ($in{'extra'} ? $in{'extra'}."&" : "?")."id=$upid";
  12
  13 print &ui_form_start("upload.cgi$args", "form-data", undef,
  14                      &read_parse_mime_javascript($upid, [ "file" ]));
  15 print &ui_table_start($text{'upload_title'}, "width=100%", 2);
  16
  17 print &ui_table_row($text{'upload_file'},
  18                     &ui_upload("file", 20));
  19
  20 print &ui_table_row($text{'upload_dir'},
  21                     &ui_textbox("dir", $in{'dir'}, 20)."\n".
  22                     &ui_submit($text{'upload_ok'}));
  23
  24 if ($dostounix == 1) {
  25         # Do DOS conversion?
  26         print &ui_table_row($text{'upload_conv'},
  27                             &ui_yesno_radio("dos", 0));
  28         }
  29
  30 if ($unarchive == 1) {
  31         # Unzip file?
  32         print &ui_table_row($text{'upload_zip'},
  33                             &ui_radio("zip", int($config{'defzip'}),
  34                                 [ [ 2, $text{'upload_yes'} ],
  35                                   [ 1, $text{'yes'} ],
  36                                   [ 0, $text{'no'} ] ]));
  37         }
  38
  39 if ($running_as_root) {
  40         # Upload as user
  41         $user = $config{'defuser'} || "root";
  42         if ($user eq "*") {
  43                 # Get from parent directory
  44                 local @st = stat(&unmake_chroot($in{'dir'}));
  45                 $user = getpwuid($st[4]);
  46                 }
  47         print &ui_table_row($text{'upload_user'},
  48                             &ui_user_textbox("user", $user));
  49         }
  50
  51 print &ui_table_end();
  52 print &ui_form_end();
  53 &popup_footer();
  54