samba/start_wb.cgi

   1 #!/usr/local/bin/perl
   2 # Attempt to start the 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 &error_setup($text{'start_err_wb'});
  10
  11 if ($config{'start_cmd_wb'}) {
  12         $rv = &system_logged("$config{'start_cmd_wb'} >/dev/null 2>&1 </dev/null");
  13         if ($rv) { &error(&text('start_fail', $config{'start_cmd_wb'})); }
  14         }
  15 else {
  16         chdir("/");
  17         $rv = &system_logged("$config{winbind_server} </dev/null");
  18         if ($rv) { &error(&text('start_fail', $config{winbind_server})); }
  19         }
  20 &webmin_log("start_wb");
  21 &redirect("");
  22