samba/stop.cgi

   1 #!/usr/local/bin/perl
   2 # restart.cgi
   3 # Kill all smbd and nmdb processes and re-start them
   4
   5 require './samba-lib.pl';
   6
   7 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
   8 &error("$text{'eacl_np'} $text{'eacl_papply'}") unless $access{'apply'};
   9
  10 if ($config{'stop_cmd'}) {
  11         &system_logged("$config{'stop_cmd'} >/dev/null 2>&1 </dev/null");
  12         }
  13 else {
  14         @smbpids = &find_byname("smbd");
  15         @nmbpids = &find_byname("nmbd");
  16         &kill_logged('TERM', @smbpids, @nmbpids);
  17         }
  18
  19 &webmin_log("stop");
  20 &redirect("");
  21