| $text{'netgroup_members'} | \n";
print "\n";
print " | $text{'netgroup_host'} | ",
"$text{'netgroup_user'} | ",
"$text{'netgroup_domain'} | \n";
$i = 0;
foreach $h (@$netgroup[1 .. @$netgroup-1], "(x,,)", "(x,,)") {
$h =~ /^\((\S*),(\S*),(\S*)\)$/ || next;
print "\n";
foreach $v (['host',$1],['user',$2],['dom',$3]) {
printf "| [0]_def_$i value=1 %s>%s\n",
$v->[1] ? '' : 'checked', $text{'netgroup_any'};
printf "[0]_def_$i value=2 %s>%s\n",
$v->[1] eq 'x' ? 'checked' : '', $text{'netgroup_none'}
if ($v->[0] eq 'host');
printf "[0]_def_$i value=0 %s>\n",
$v->[1] && $v->[1] ne 'x' ? 'checked' : '';
printf "[0]_$i size=15 value='%s'> | \n",
$v->[1] eq "x" ? "" : $v->[1];
}
print " \n";
$i++;
}
print " |
\n";
print "