| 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
# index.cgi
# Display the current PPTP configuration
require './pptp-server-lib.pl';
# Check if it is installed
if (!&has_command($config{'pptpd'}) ||
!($vers = &get_pptpd_version(\$out))) {
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
print "<p>",&text('index_epptpd', "<tt>$config{'pptpd'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
if ($out) {
print &text('index_ver', "$config{'pptpd'} -v"),"\n";
print "<pre>$out</pre>\n";
}
}
else {
# Show the title and version
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
&help_search_link("pptp", "man", "doc"), undef, undef,
&text('index_version', $vers));
if (!-r $config{'file'}) {
# Check for the config file
print "<p>",&text('index_econfig', "<tt>$config{'file'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
}
elsif (!&has_command("pppd")) {
# Check for PPPd
print "<p>",&text('index_epppd', "<tt>pppd</tt>"),"<p>\n";
}
else {
# Show table of options
if ($access{'conf'}) {
push(@links, "edit_conf.cgi");
push(@images, "images/conf.gif");
push(@titles, $text{'conf_title'});
}
if ($access{'options'}) {
push(@links, "edit_options.cgi");
push(@images, "images/options.gif");
push(@titles, $text{'options_title'});
}
if ($access{'secrets'}) {
push(@links, "list_secrets.cgi");
push(@images, "images/secrets.gif");
push(@titles, $text{'secrets_title'});
}
if ($access{'conns'}) {
push(@links, "list_conns.cgi");
push(@images, "images/conns.gif");
push(@titles, $text{'conns_title'});
}
&icons_table(\@links, \@titles, \@images);
# Start or stop/apply buttons
print &ui_hr();
print &ui_buttons_start();
$pid = &get_pptpd_pid();
if ($access{'apply'}) {
if ($pid && kill(0, $pid)) {
print &ui_buttons_row("apply.cgi",
$text{'index_apply'},
$text{'index_applydesc'});
if ($access{'stop'}) {
print &ui_buttons_row("stop.cgi",
$text{'index_stop'},
$text{'index_stopdesc'});
}
}
else {
print &ui_buttons_row("start.cgi",
$text{'index_start'},
$text{'index_startdesc'});
}
}
print &ui_buttons_end();
}
}
&ui_print_footer("/", $text{'index'});
sub ip_table
{
local @ips = split(/,/, &find($_[0], $conf));
print "<tr> <td valign=top><b>",$text{'index_'.$_[0]},
"</b></td> <td colspan=3>\n";
print "<textarea name=$_[0] rows=3 cols=50>",
join("\n", @ips),"</textarea>\n";
print "</td> </tr>\n";
}