samba/edit_fname.cgi

   1 #!/usr/local/bin/perl
   2 # edit_fname.cgi
   3 # Edit file naming 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_pvfname'}")
  11         unless &can('rn', \%access, $in{'share'});
  12 # display
  13 $s = $in{'share'};
  14 if ($s eq "global") {
  15         &ui_print_header(undef, $text{'fname_title1'}, "");
  16         }
  17 else {
  18         &ui_print_header(undef, $text{'fname_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_fname.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{'fname_option'}</b></td> </tr>\n";
  27 print "<tr $cb> <td><table width=100%>\n";
  28
  29 print "<tr> <td align=right><b>$text{'fname_manglecase'}</b></td>\n";
  30 print "<td>",&yesno_input("mangle case"),"</td>\n";
  31
  32 print "<td align=right><b>$text{'fname_case'}</b></td>\n";
  33 print "<td>",&yesno_input("case sensitive"),"</td> </tr>\n";
  34
  35 print "<tr> <td align=right><b>$text{'fname_defaultcase'}</b></td>\n";
  36 printf "<td><input type=radio name=default_case value=lower %s> $text{'fname_lower'}\n",
  37         &getval("default case") =~ /lower/i ? "checked" : "";
  38 printf "<input type=radio name=default_case value=upper %s> $text{'fname_upper'}</td>\n",
  39         &getval("default case") =~ /upper/i ? "checked" : "";
  40
  41 print "<td align=right><b>$text{'fname_preserve'}</b></td>\n";
  42 print "<td>",&yesno_input("preserve case"),"</td> </tr>\n";
  43
  44 print "<tr> <td align=right><b>$text{'fname_shortpreserve'}</b></td>\n";
  45 print "<td>",&yesno_input("short preserve case"),"</td>\n";
  46
  47 print "<td align=right><b>$text{'fname_hide'}</b></td>\n";
  48 print "<td>",&yesno_input("hide dot files"),"</td> </tr>\n";
  49
  50 print "<tr> <td align=right><b>$text{'fname_archive'}</b></td>\n";
  51 print "<td>",&yesno_input("map archive"),"</td>\n";
  52
  53 print "<td align=right><b>$text{'fname_hidden'}</b></td>\n";
  54 print "<td>",&yesno_input("map hidden"),"</td> </tr>\n";
  55
  56 print "<tr> <td align=right><b>$text{'fname_system'}</b></td>\n";
  57 print "<td>",&yesno_input("map system"),"</td>\n";
  58
  59 print "</table> </td></tr></table><p>\n";
  60 print "<input type=submit value=$text{'save'}>"
  61         if &can('wN', \%access, $in{'share'});
  62 print "</form>\n";
  63
  64 &ui_print_footer("edit_fshare.cgi?share=".&urlize($s), $text{'index_fileshare'},
  65         "", $text{'index_sharelist'});
  66