\n";
$lock = &find("lock", \@opts);
print " $text{'options_lock'} | \n";
printf " %s\n",
$lock ? "checked" : "", $text{'yes'};
printf " %s | \n",
$lock ? "" : "checked", $text{'no'};
$proxy = &find("proxyarp", \@opts);
print "$text{'options_proxyarp'} | \n";
printf " %s\n",
$proxy ? "checked" : "", $text{'yes'};
printf " %s | \n",
$proxy ? "" : "checked", $text{'no'};
$mtu = &find("mtu", \@opts);
printf " $text{'options_mtu'} | \n";
printf " %s\n",
$mtu ? "" : "checked", $text{'default'};
printf "\n",
$mtu ? "checked" : "";
print " bytes | \n";
$mru = &find("mru", \@opts);
printf "$text{'options_mru'} | \n";
printf " %s\n",
$mru ? "" : "checked", $text{'default'};
printf "\n",
$mru ? "checked" : "";
print " bytes | \n";
print "
| \n";
$auth = &find("auth", \@opts);
$noauth = &find("noauth", \@opts);
print " $text{'options_auth'} | \n";
printf " %s\n",
$noauth || $auth ? "" : "checked", $text{'options_auth0'};
printf " %s\n",
$noauth ? "checked" : "", $text{'options_auth1'};
printf " %s | \n",
$auth ? "checked" : "", $text{'options_auth2'};
&auth_input("pap");
&auth_input("chap");
$login = &find("login", \@opts);
print " $text{'options_login'} | \n";
printf " %s\n",
$login ? "checked" : "", $text{'yes'};
printf " %s | \n",
$login ? "" : "checked", $text{'no'};
$name = &find("name", \@opts);
printf " $text{'options_name'} | \n";
printf " %s (%s)\n",
$name ? "" : "checked", $text{'options_hn'}, &get_system_hostname();
printf "\n",
$name ? "checked" : "";
print " | \n";
print "
| \n";
print " $text{'options_msdesc'} | \n";
&foreign_require("pptp-client", "pptp-client-lib.pl");
if (&pptp_client::mppe_support() == 1) {
# Show new-style MS-CHAP options
&auth_input("mschap");
&auth_input("mschap-v2");
}
else {
# Show old-style MS-CHAP option
&auth_input("chapms");
&auth_input("chapms-v2");
}
# Show general MPPE options
&pptp_client::mppe_options_form(\@opts);
print " |