#!/usr/local/bin/perl # edit_netgroup.cgi # Edit a NIS netgroup table entry require './nis-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'netgroup_title'}, ""); ($t, $lnums, $netgroup) = &table_edit_setup($in{'table'}, $in{'line'}, '\s+'); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'netgroup_header'}
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'netgroup_name'}
$text{'netgroup_members'}\n"; print " ", " ", "\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 "\n", $v->[1] eq "x" ? "" : $v->[1]; } print "\n"; $i++; } print "
$text{'netgroup_host'}$text{'netgroup_user'}$text{'netgroup_domain'}
[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"; if (defined($in{'line'})) { print "\n"; print "\n"; } else { print "\n"; } print "
\n"; &ui_print_footer("edit_tables.cgi?table=$in{'table'}", $text{'tables_return'}, "", $text{'index_return'});