openslp/stop.cgi

   1 #!/usr/local/bin/perl
   2 # stop.cgi
   3 # Stop OpenSLP
   4
   5 require './slp-lib.pl';
   6 if ($config{'stop_cmd'}) {
   7         $out = &backquote_logged("$config{'stop_cmd'} 2>&1");
   8         &error_setup($text{'stop_err'});
   9         if ($?) {
  10                 &error("<pre>$?\n$out</pre>");
  11                 }
  12         }
  13 else {
  14         $pid = &slpd_is_running();
  15         kill('TERM', $pid);
  16         }
  17 &webmin_log("stop");
  18 &redirect("");
  19