",&text('index_epptpd', "$config{'pptpd'}", "@{[&get_webprefix()]}/config.cgi?$module_name"),"
\n"; if ($out) { print &text('index_ver', "$config{'pptpd'} -v"),"\n"; print "
$out
",&text('index_econfig', "$config{'file'}", "@{[&get_webprefix()]}/config.cgi?$module_name"),"
\n"; } elsif (!&has_command("pppd")) { # Check for PPPd print "
",&text('index_epppd', "pppd"),"
\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 "