openslp/start.cgi

   1 #!/usr/local/bin/perl
   2 # start.cgi
   3 # Start OpenSLP
   4
   5 require './slp-lib.pl';
   6 &error_setup($text{'start_err'});
   7 $temp = &transname();
   8 if ($config{'start_cmd'}) {
   9         $rv = &system_logged("($config{'start_cmd'}) >$temp 2>&1");
  10         }
  11 else {
  12         $rv = &system_logged("($config{'slpd'}) >$temp 2>&1");
  13         }
  14 $out = `cat $temp`; unlink($temp);
  15 if ($rv) {
  16         &error("<pre>$out</pre>");
  17         }
  18 sleep(2);
  19 &webmin_log("start");
  20 &redirect("");
  21