samba/stop_wb.cgi

   1 #!/usr/local/bin/perl
   2 # Kill all winbindd processes
   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 if ($config{'stop_cmd_wb'}) {
  10         &system_logged("$config{'stop_cmd_wb'} >/dev/null 2>&1 </dev/null");
  11         }
  12 else {
  13         @wbpids = &find_byname("winbindd");
  14         &kill_logged('TERM', @wbpids);
  15         }
  16
  17 &webmin_log("stop_wb");
  18 &redirect("");
  19