\n";
print " $text{'sec_writable'} | \n";
print "",&yesno_input("writeable")," | \n";
print "$text{'sec_guest'} | \n";
printf " $text{'config_none'}\n",
&istrue("public") ? "" : "checked";
printf " $text{'yes'}\n",
&istrue("public") && !&istrue("guest only") ? "checked" : "";
printf " $text{'sec_guestonly'} | \n",
&istrue("public") && &istrue("guest only") ? "checked" : "";
print " $text{'sec_guestaccount'} | \n";
&username_input("guest account", "Default");
print "$text{'sec_limit'} | \n";
print "",&yesno_input("only user")," | \n";
print " $text{'sec_allowhost'} | \n";
printf " $text{'config_all'}\n",
&getval("allow hosts") eq "" ? "checked" : "";
print " \n";
printf " $text{'sec_onlyallow'}:\n",
&getval("allow hosts") eq "" ? "" : "checked";
printf " | \n",
&getval("allow hosts");
print " $text{'sec_denyhost'} | \n";
printf " $text{'config_none'}\n",
&getval("deny hosts") eq "" ? "checked" : "";
print " \n";
printf " $text{'sec_onlydeny'}:\n",
&getval("deny hosts") eq "" ? "" : "checked";
printf " | \n",
&getval("deny hosts");
print " $text{'sec_revalidate'} | \n";
print "",&yesno_input("revalidate")," | \n";
@valid_users = &split_users(&getval("valid users"));
print " $text{'sec_validuser'} | \n";
printf " %s | \n",
join(' ', grep { !/^@/ } @valid_users),
&user_chooser_button("valid_users_u", 1);
print " $text{'sec_validgroup'} | \n";
printf " %s | \n",
join(' ', map { s/@//;$_ } grep { /^@/ } @valid_users),
&group_chooser_button("valid_users_g", 1);
@invalid_users = &split_users(&getval("invalid users"));
print " $text{'sec_invaliduser'} | \n";
printf " %s | \n",
join(' ', grep { !/^@/ } @invalid_users),
&user_chooser_button("invalid_users_u", 1);
print " $text{'sec_invalidgroup'} | \n";
printf " %s | \n",
join(' ', map { s/@//;$_ } grep { /^@/ } @invalid_users),
&group_chooser_button("invalid_users_g", 1);
print "
| \n";
@user = &split_users(&getval("user"));
print " $text{'sec_possibleuser'} | \n";
printf " %s | \n",
join(' ', grep { !/^@/ } @user),
&user_chooser_button("user_u", 1);
print "$text{'sec_possiblegroup'} | \n";
printf " %s | \n",
join(' ', map { s/@//;$_ } grep { /^@/ } @user),
&group_chooser_button("user_g", 1);
@read_list = &split_users(&getval("read list"));
print " $text{'sec_rouser'} | \n";
printf " %s | \n",
join(' ', grep { !/^@/ } @read_list),
&user_chooser_button("read_list_u", 1);
print "$text{'sec_rogroup'} | \n";
printf " %s | \n",
join(' ', map { s/@//;$_ } grep { /^@/ } @read_list),
&group_chooser_button("read_list_g", 1);
@write_list = &split_users(&getval("write list"));
print " $text{'sec_rwuser'} | \n";
printf " %s | \n",
join(' ', grep { !/^@/ } @write_list),
&user_chooser_button("write_list_u", 1);
print "$text{'sec_rwgroup'} | \n";
printf " %s | \n",
join(' ', map { s/@//;$_ } grep { /^@/ } @write_list),
&group_chooser_button("write_list_g", 1);
print " |