samba/restart_wb.cgi

   1 #!/usr/local/bin/perl
   2 # Kill all winbindd processes and re-start them
   3
   4 require './samba-lib.pl';
   5
   6 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
   7 &error("$text{'eacl_np'} $text{'eacl_papply'}") unless $access{'apply'};
   8
   9 &error_setup($text{'restart_err_wb'});
  10
  11 if ($config{'stop_cmd_wb'}) {
  12         &system_logged("$config{'stop_cmd_wb'} >/dev/null 2>&1 </dev/null");
  13         }
  14 else {
  15         @wbpids = &find_byname("winbindd");
  16         &kill_logged('TERM', @wbpids);
  17         }
  18
  19 if ($config{'start_cmd_wb'}) {
  20         $rv = &system_logged("$config{'start_cmd_wb'} >/dev/null 2>&1 </dev/null");
  21         if ($rv) { &error(&text('start_fail', $config{'start_cmd_wb'})); }
  22         }
  23 else {
  24         $rv = &system_logged("$config{winbind_server} >/dev/null 2>&1 </dev/null");
  25         if ($rv) { &error(&text('start_fail', $config{winbind_server})); }
  26         }
  27
  28 &webmin_log("apply_wb");
  29 &redirect("");
  30