| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/pptp-server/ |
Upload File : |
#!/usr/bin/perl
# save_conf.cgi
# Save PPTP server settings
require './pptp-server-lib.pl';
$access{'conf'} || &error($text{'conf_ecannot'});
&ReadParse();
&error_setup($text{'conf_err'});
# Validate and store inputs
&lock_file($config{'file'});
$conf = &get_config();
if ($in{'speed_def'}) {
&save_directive($conf, "speed");
}
else {
$in{'speed'} =~ /^\d+$/ || &error($text{'conf_espeed'});
&save_directive($conf, "speed", $in{'speed'});
}
if ($in{'listen_def'}) {
&save_directive($conf, "listen");
}
else {
&check_ipaddress($in{'listen'}) || &error($text{'conf_elisten'});
&save_directive($conf, "listen", $in{'listen'});
}
if ($in{'mode'} == 0) {
&save_directive($conf, "option");
}
elsif ($in{'mode'} == 1) {
&save_directive($conf, "option", $options_pptp);
}
else {
$in{'option'} =~ /^\/\S+$/ || &error($text{'conf_eoption'});
&save_directive($conf, "option", $in{'option'});
}
&save_ip_table("localip");
&save_ip_table("remoteip");
if ($in{'ipxnets_def'}) {
&save_directive($conf, "ipxnets");
}
else {
$in{'from'} =~ /^[A-F0-9]+$/ || &error($text{'conf_efrom'});
$in{'to'} =~ /^[A-F0-9]+$/ || &error($text{'conf_eto'});
&save_directive($conf, "ipxnets", $in{'from'}."-".$in{'to'});
}
&flush_file_lines();
&unlock_file($config{'file'});
&webmin_log("conf");
&redirect("");
# save_ip_table(name)
sub save_ip_table
{
local @ips = split(/\s+/, $in{$_[0]});
foreach $i (@ips) {
&check_ipaddress($i) || $i =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/ ||
&error(&text('conf_e'.$_[0], $i));
}
&save_directive($conf, $_[0], @ips ? join(",", @ips) : undef);
}