file/mkdir.cgi

   1 #!/usr/local/bin/perl
   2 # mkdir.cgi
   3 # Create a directory
   4
   5 require './file-lib.pl';
   6 $disallowed_buttons{'mkdir'} && &error($text{'ebutton'});
   7 &ReadParse();
   8 &webmin_log("mkdir", undef, $in{'dir'}, \%in);
   9 &switch_acl_uid_and_chroot();
  10 print "Content-type: text/plain\n\n";
  11 &lock_file($in{'dir'});
  12 if ($access{'ro'} || !&can_access($in{'dir'})) {
  13         print &text('mkdir_eaccess', $in{'dir'}),"\n";
  14         }
  15 elsif (!mkdir($in{'dir'}, 0777)) {
  16         print "$!\n";
  17         }
  18 else {
  19         print "\n";
  20         print &file_info_line($in{'dir'}),"\n";
  21         &unlock_file($in{'dir'});
  22         }
  23
  24