#!/usr/local/bin/perl # edit_group.cgi # Display a form for editing an existing group require './cluster-useradmin-lib.pl'; &ReadParse(); @hosts = &list_useradmin_hosts(); @servers = &list_servers(); if ($in{'host'} ne '') { ($host) = grep { $_->{'id'} == $in{'host'} } @hosts; local ($g) = grep { $_->{'group'} eq $in{'group'} } @{$host->{'groups'}}; %ginfo = %$g; } else { foreach $h (@hosts) { local ($g) = grep { $_->{'group'} eq $in{'group'} } @{$h->{'groups'}}; if ($g) { $host = $h; %ginfo = %$g; last; } } } ($serv) = grep { $_->{'id'} == $host->{'id'} } @servers; $desc = &text('gedit_host', $serv->{'desc'} ? $serv->{'desc'} : $serv->{'host'}); &ui_print_header($desc, $text{'gedit_title'}, ""); print "