samba/save_fname.cgi

   1 #!/usr/local/bin/perl
   2 # save_fname.cgi
   3 # Save file naming options
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7 &lock_file($config{'smb_conf'});
   8 &get_share($in{old_name});
   9
  10 # check acls
  11
  12 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  13 &error("$text{'eacl_np'} $text{'eacl_pufname'}")
  14             unless &can('rwnN', \%access, $in{old_name});
  15 # save
  16 &error_setup($text{'error_savename'});
  17 # File nameing options
  18 &setval("mangle case", $in{mangle_case});
  19 &setval("case sensitive", $in{case_sensitive});
  20 &setval("default case", $in{default_case}, "lower");
  21 &setval("preserve case", $in{preserve_case});
  22 &setval("short preserve case", $in{short_preserve_case});
  23 &setval("hide dot files", $in{hide_dot_files});
  24 &setval("map archive", $in{map_archive});
  25 &setval("map hidden", $in{map_hidden});
  26 &setval("map system", $in{map_system});
  27
  28 &modify_share($in{old_name}, $in{old_name});
  29 &unlock_file($config{'smb_conf'});
  30 &webmin_log("save", "fname", $in{old_name}, \%in);
  31 &redirect("edit_fshare.cgi?share=".&urlize($in{old_name}));
  32