samba/edit_sync.cgi

   1 #!/usr/local/bin/perl
   2 # edit_sync.cgi
   3 # Allow the user to edit auto updating of Samba accounts by useradmin
   4
   5 require './samba-lib.pl';
   6 # check acls
   7
   8 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
   9 &error("$text{'eacl_np'} $text{'eacl_pmsync'}")
  10         unless $access{'maint_sync'};
  11 # display
  12 &ui_print_header(undef, $text{'esync_title'}, "");
  13
  14 &check_user_enabled($text{'esync_cannot'});
  15
  16 print $text{'esync_msg'}, "<p>\n";
  17
  18 print "<form action=save_sync.cgi>\n";
  19 printf "<input type=checkbox name=add value=1 %s>\n",
  20         $config{'sync_add'} ? "checked" : "";
  21 print "$text{'esync_add'}<p>\n";
  22
  23 printf "<input type=checkbox name=change value=1 %s>\n",
  24         $config{'sync_change'} ? "checked" : "";
  25 print "$text{'esync_chg'}<p>\n";
  26
  27 printf "<input type=checkbox name=delete value=1 %s>\n",
  28         $config{'sync_delete'} ? "checked" : "";
  29 print "$text{'esync_del'}<p>\n";
  30
  31 printf "<input type=checkbox name=delete_profile value=1 %s>\n",
  32         $config{'sync_delete_profile'} ? "checked" : "";
  33 print "$text{'esync_del_profile'}<p>\n";
  34
  35 printf "<input type=checkbox name=change_profile value=1 %s>\n",
  36         $config{'sync_change_profile'} ? "checked" : "";
  37 print "$text{'esync_chg_profile'}<p>\n";
  38
  39 print "$text{'esync_gid'}\n",
  40       &ui_opt_textbox("gid", $config{'sync_gid'}, 10, $text{'default'}),"<p>\n";
  41
  42 print "<input type=submit value=\"", $text{'esync_apply'}, "\"></form>\n";
  43
  44 &ui_print_footer("", $text{'index_sharelist'});
  45