PAL.C.T MINI SHELL
#!/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("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`