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