samba/edit_fmisc.cgi

   1 #!/usr/local/bin/perl
   2 # edit_fmisc.cgi
   3 # Edit misc file 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_pvfmisc'}")
  11                 unless &can('ro', \%access, $in{'share'});
  12 # display
  13 $s = $in{'share'};
  14 if ($s eq "global") {
  15         &ui_print_header(undef, $text{'fmisc_title'}, "");
  16         }
  17 else {
  18         &ui_print_header(undef, $text{'fmisc_title'}, "");
  19         print "<center><font size=+1>", &text('fmisc_for', $s),"</font></center>\n";
  20         }
  21 &get_share($s);
  22
  23 print "<form action=save_fmisc.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{'misc_title'}</b></td> </tr>\n";
  27 print "<tr $cb> <td><table width=100%>\n";
  28
  29 print "<tr> <td align=right><b>$text{'fmisc_lockfile'}</b></td>\n";
  30 print "<td>",&yesno_input("locking"),"</td>\n";
  31
  32 print "<td align=right><b>$text{'fmisc_maxconn'}</b></td>\n";
  33 printf "<td><input type=radio name=max_connections_def value=1 %s> $text{'smb_unlimited'}\n",
  34         &getval("max connections") == 0 ? "checked" : "";
  35 printf "<input type=radio name=max_connections_def value=0 %s>\n",
  36         &getval("max connections") > 0 ? "checked" : "";
  37 printf "<input size=6 name=max_connections value=\"%s\"></td> </tr>\n",
  38         &getval("max connections") > 0 ? &getval("max connections") : "";
  39
  40 print "<tr> <td align=right><b>$text{'fmisc_oplocks'}</b></td>\n";
  41 print "<td>",&yesno_input("oplocks"),"</td>\n";
  42
  43 print "<td align=right><b>$text{'fmisc_level2'}</b></td>\n";
  44 print "<td>",&yesno_input("level2 oplocks"),"</td> </tr>\n";
  45
  46 print "<tr> <td align=right><b>$text{'fmisc_fake'}</b></td>\n";
  47 print "<td>",&yesno_input("fake oplocks"),"</td>\n";
  48
  49 print "<td align=right><b>$text{'fmisc_sharemode'}</b></td>\n";
  50 print "<td>",&yesno_input("share modes"),"</td> </tr>\n";
  51
  52 print "<tr> <td align=right><b>$text{'fmisc_strict'}</b></td>\n";
  53 print "<td>",&yesno_input("strict locking"),"</td>\n";
  54
  55 print "<td align=right><b>$text{'fmisc_sync'}</b></td>\n";
  56 print "<td>",&yesno_input("sync always"),"</td> </tr>\n";
  57
  58 print "<tr> <td align=right><b>$text{'fmisc_volume'}</b></td>\n";
  59 printf "<td colspan=3><input type=radio name=volume_def value=1 %s> $text{'fmisc_sameas'}\n",
  60         &getval("volume") eq "" ? "checked" : "";
  61 printf "<input type=radio name=volume_def value=0 %s>\n",
  62         &getval("volume") eq "" ? "" : "checked";
  63 printf "<input size=25 name=volume value=\"%s\"></td> </tr>\n",
  64         &getval("volume");
  65
  66 print "</table><table>\n";
  67
  68 print "<tr> <td align=right><b>$text{'fmisc_unixdos'}</b></td>\n";
  69 printf"<td><input name=mangled_map size=40 value=\"%s\"></td></tr>\n",
  70         &getval("mangled map");
  71
  72 print "<tr> <td align=right><b>$text{'fmisc_conncmd'}</b></td>\n";
  73 printf "<td><input name=preexec size=40 value=\"%s\"></td> </tr>\n",
  74         &getval("preexec");
  75
  76 print "<tr> <td align=right><b>$text{'fmisc_disconncmd'}</b></td>\n";
  77 printf "<td><input name=postexec size=40 value=\"%s\"></td> </tr>\n",
  78         &getval("postexec");
  79
  80 print "<tr> <td align=right><b>$text{'fmisc_rootconn'}</b></td>\n";
  81 printf "<td><input name=root_preexec size=40 value=\"%s\"></td> </tr>\n",
  82         &getval("root preexec");
  83
  84 print "<tr> <td align=right><b>$text{'fmisc_rootdisconn'}</b></td>\n";
  85 printf "<td><input name=root_postexec size=40 value=\"%s\"></td> </tr>\n",
  86         &getval("root postexec");
  87
  88 print "</table> </td></tr></table><p>\n";
  89 print "<input type=submit value=$text{'save'}>"
  90         if &can('wO', \%access, $in{'share'});
  91 print "</form>\n";
  92
  93 &ui_print_footer("edit_fshare.cgi?share=".&urlize($s), $text{'index_fileshare'},
  94         "", $text{'index_sharelist'});
  95