samba/edit_fperm.cgi

   1 #!/usr/local/bin/perl
   2 # edit_fperm.cgi
   3 # Edit file permissions options
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7 # check acls
   8
   9 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  10 &error("$text{'eacl_np'} $text{'eacl_pvperm'}")
  11         unless &can('rp', \%access, $in{'share'});
  12 # display
  13 $s = $in{'share'};
  14 if ($s eq "global") {
  15         &ui_print_header(undef, $text{'fperm_title1'}, "");
  16         }
  17 else {
  18         &ui_print_header(undef, $text{'fperm_title2'}, "");
  19         print "<center><font size=+1>", &text('fmisc_for', $s), "</font></center>\n";
  20         }
  21 &get_share($s);
  22
  23 print "<form action=save_fperm.cgi>\n";
  24 print "<input type=hidden name=old_name value=\"$s\">\n";
  25 print "<table border width=100%>\n";
  26 print "<tr $tb> <td><b>$text{'fperm_option'}</b></td> </tr>\n";
  27 print "<tr $cb> <td><table width=100%>\n";
  28
  29 print "<tr> <td align=right><b>$text{'fperm_filemode'}</b></td>\n";
  30 printf "<td><input name=create_mode size=5 value=\"%s\"></td>\n",
  31         &getval("create mode");
  32
  33 print "<td align=right><b>$text{'fperm_dirmode'}</b></td>\n";
  34 printf "<td><input name=directory_mode size=5 value=\"%s\"></td> </tr>\n",
  35         &getval("directory mode");
  36
  37 print "<tr> <td align=right><b>$text{'fperm_notlist'}</b></td>\n";
  38 printf "<td colspan=3><input name=dont_descend size=40 value=\"%s\"></td>\n",
  39         &getval("dont descend");
  40 print "</tr>\n";
  41
  42 print "<tr> <td align=right><b>$text{'fperm_forceuser'}</b></td>\n";
  43 &username_input("force user", "None");
  44
  45 print "<td align=right><b>$text{'fperm_forcegrp'}</b></td>\n";
  46 &groupname_input("force group", "None");
  47
  48 print "<tr> <td align=right><b>$text{'fperm_link'}</b></td>\n";
  49 print "<td>",&yesno_input("wide links"),"</td>\n";
  50
  51 print "<td align=right><b>$text{'fperm_delro'}</b></td>\n";
  52 print "<td>",&yesno_input("delete readonly"),"</td> </tr>\n";
  53
  54 print "<tr> <td align=right><b>$text{'fperm_forcefile'}</b></td>\n";
  55 printf "<td><input name=force_create_mode size=5 value=\"%s\"></td>\n",
  56         &getval("force create mode");
  57
  58 print "<td align=right><b>$text{'fperm_forcedir'}</b></td>\n";
  59 printf "<td><input name=force_directory_mode size=5 value=\"%s\"></td> </tr>\n",
  60         &getval("force directory mode");
  61
  62 print "</table> </td></tr></table><p>\n";
  63 print "<input type=submit value=$text{'save'}>"
  64         if &can('wP', \%access, $in{'share'});
  65 print "</form>\n";
  66
  67 &ui_print_footer("edit_fshare.cgi?share=".&urlize($s), $text{'index_fileshare'},
  68         "", $text{'index_sharelist'});
  69