pptp-server/start.cgi

   1 #!/usr/local/bin/perl
   2 # start.cgi
   3 # Start up the PPTP server
   4
   5 require './pptp-server-lib.pl';
   6 &error_setup($text{'start_err'});
   7 $access{'apply'} || &error($text{'start_ecannot'});
   8 $cmd = $config{'start_cmd'} || $config{'pptpd'};
   9 $temp = &transname();
  10 $rv = &system_logged("$cmd >$temp 2>&1 </dev/null");
  11 $out = `cat $temp`;
  12 unlink($temp);
  13 if ($rv) {
  14         &error("<pre>$out</pre>");
  15         }
  16 &webmin_log("start");
  17 &redirect("");
  18