samba/restart.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 &error_setup($text{'restart_err'});
  11
  12 if ($config{'stop_cmd'}) {
  13         &system_logged("$config{'stop_cmd'} >/dev/null 2>&1 </dev/null");
  14         }
  15 else {
  16         @smbpids = &find_byname("smbd");
  17         @nmbpids = &find_byname("nmbd");
  18         &kill_logged('TERM', @smbpids, @nmbpids);
  19         }
  20
  21 if ($config{'start_cmd'}) {
  22         $rv = &system_logged("$config{'start_cmd'} >/dev/null 2>&1 </dev/null");
  23         if ($rv) { &error(&text('start_fail', $config{'start_cmd'})); }
  24         }
  25 else {
  26         $rv = &system_logged("$config{samba_server} -D >/dev/null 2>&1 </dev/null");
  27         if ($rv) { &error(&text('start_fail', $config{samba_server})); }
  28         $rv = &system_logged("$config{name_server} -D >/dev/null 2>&1 </dev/null");
  29         if ($rv) { &error(&text('start_fail', $config{samba_server})); }
  30         }
  31
  32 &webmin_log("apply");
  33 &redirect("");
  34