samba/start.cgi

   1 #!/usr/local/bin/perl
   2 # start.cgi
   3 # Attempt to start the smbd and nmbd processes
   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{'start_err'});
  11
  12 if ($config{'start_cmd'}) {
  13         $rv = &system_logged("$config{'start_cmd'} >/dev/null 2>&1 </dev/null");
  14         if ($rv) { &error(&text('start_fail', $config{'start_cmd'})); }
  15         }
  16 else {
  17         chdir("/");
  18         $rv = &system_logged("$config{samba_server} -D </dev/null");
  19         if ($rv) { &error(&text('start_fail', $config{samba_server})); }
  20         $rv = &system_logged("$config{name_server} -D </dev/null");
  21         if ($rv) { &error(&text('start_fail', $config{name_server})); }
  22         }
  23 &webmin_log("start");
  24 &redirect("");
  25