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