#!/usr/bin/perl
# start.cgi
# Start up the PPTP server

require './pptp-server-lib.pl';
&error_setup($text{'start_err'});
$access{'apply'} || &error($text{'start_ecannot'});
$cmd = $config{'start_cmd'} || $config{'pptpd'};
$temp = &transname();
$rv = &system_logged("$cmd >$temp 2>&1 </dev/null");
$out = `cat $temp`;
unlink($temp);
if ($rv) {
	&error("<pre>$out</pre>");
	}
&webmin_log("start");
&redirect("");