#!/usr/local/bin/perl
# edit_host.cgi
# Display users and groups on some host
require './cluster-useradmin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'host_title'}, "");
@hosts = &list_useradmin_hosts();
($host) = grep { $_->{'id'} == $in{'id'} } @hosts;
$server = &foreign_call("servers", "get_server", $in{'id'});
@packages = @{$host->{'packages'}};
# Show host details
print "
\n";
print " $text{'host_header'} |
\n";
print " \n";
print " $text{'host_name'} | \n";
if ($server->{'id'}) {
printf "%s | \n",
$server->{'id'}, $server->{'desc'} ? "$server->{'desc'} ($server->{'host'}:$server->{'port'})" : "$server->{'host'}:$server->{'port'}";
}
else {
print "$text{'this_server'} | \n";
}
if ($server->{'id'}) {
print "$text{'host_type'} | \n";
foreach $t (@servers::server_types) {
print $t->[1] if ($t->[0] eq $server->{'type'});
}
print " | \n";
}
print " \n";
print " $text{'host_users'} | \n";
printf "%d | \n", scalar(@{$host->{'users'}});
print "$text{'host_groups'} | \n";
printf "%d | \n", scalar(@{$host->{'groups'}});
print " |
\n";
# Show delete and refresh buttons
print "\n";
print "\n";
print "\n";
print "
\n";
# Show users and groups
print &ui_hr();
print &ui_subheading($text{'host_ulist'});
print "\n";
print " $text{'index_users'} |
\n";
print " |
\n";
print &ui_subheading($text{'host_glist'});
print "\n";
print " $text{'index_groups'} |
\n";
print " |
\n";
&ui_print_footer("", $text{'index_return'});