#!/usr/local/bin/perl # search_group.cgi # Search the list of groups across all servers, and display the results require './cluster-useradmin-lib.pl'; &ReadParse(); $m = $in{'match'}; $w = $in{'what'}; @hosts = &list_useradmin_hosts(); @servers = &list_servers(); foreach $h (@hosts) { ($s) = grep { $_->{'id'} == $h->{'id'} } @servers; foreach $g (@{$h->{'groups'}}) { $f = $g->{$in{'field'}}; if ($m == 0 && $f eq $w || $m == 1 && eval { $f =~ /$w/i } || $m == 4 && index($f, $w) >= 0 || $m == 2 && $f ne $w || $m == 3 && eval { $f !~ /$w/i } || $m == 5 && index($f, $w) < 0) { push(@{$hosts{$g->{'group'}}}, $s->{'desc'} ? $s->{'desc'} : $s->{'host'}); push(@match, $g) if (!$found{$g->{'group'}}++); } } } if (@match == 1) { &redirect("edit_group.cgi?group=".$match[0]->{'group'}); } else { &ui_print_header(undef, $text{'search_title'}, ""); if (@match == 0) { print "
$text{'search_gnotfound'}.
\n"; } else { print "
$text{'gedit_group'} | \n"; print "$text{'gedit_gid'} | \n"; print "$text{'gedit_members'} | \n"; print "$text{'search_hosts'} |
{'group'}\">$m->{'group'} | \n"; print "$m->{'gid'} | \n"; print "$members | \n"; @h = @{$hosts{$m->{'group'}}}; @h = @h[0 .. 10], ".." if (@h > 10); print "",join(", ", @h)," | \n"; print "
\n"; } &ui_print_footer("", $text{'index_return'}); }