\n";
print " $text{'user_name'} \n";
print " \n";
print "$text{'user_group'} \n";
print "\n";
print "$text{'user_nogroup'} \n";
foreach $g (@wgroups) {
print "$g->{'name'} \n";
}
print " \n";
print " $text{'user_pass'} \n";
print "\n";
print "$text{'user_set'} .. \n";
print "$text{'user_unix'} \n";
print "$text{'user_lock'} \n";
print "$text{'user_extauth'} \n";
print " \n";
print " $text{'user_lang'} \n";
print "\n";
print "$text{'user_default'} \n";
foreach $l (&list_languages()) {
printf "%s \n",
$l->{'lang'},
$l->{'desc'};
}
print " \n";
print "$text{'user_theme'} \n";
print "\n";
print "$text{'user_default'} \n";
foreach $t ( { 'desc' => $text{'user_themedef'} }, @themes) {
printf "%s \n", $t->{'dir'}, $t->{'desc'};
}
print " \n";
print " $text{'user_ips'} \n";
print " \n";
$mp = int((scalar(@mods)+2)/3);
print " $text{'user_mods'} ",
"$text{'user_groupmods'} \n";
print "\n";
for($i=0; $i<$mp; $i++) {
print "{'dir'}>$mods[$i]->{'desc'} \n";
}
print " \n";
print "\n";
for($i=$mp; $i<$mp*2; $i++) {
print "{'dir'}>$mods[$i]->{'desc'} \n";
}
print " \n";
print "\n";
for($i=$mp*2; $i<@mods; $i++) {
print "{'dir'}>$mods[$i]->{'desc'} \n";
}
print " \n";
print " \n";
print "$text{'user_sall'} \n";
print "$text{'user_snone'} \n";
print "$text{'user_sinvert'} \n";
print " \n";
&create_on_input($text{'user_servers'}, 0, 1, undef, 3);
print "