#!/usr/local/bin/perl
# edit_host.cgi
# Show details of a managed host, and all the modules on it
require './cluster-usermin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'host_title'}, "");
@hosts = &list_usermin_hosts();
($host) = grep { $_->{'id'} eq $in{'id'} } @hosts;
$server = &foreign_call("servers", "get_server", $in{'id'});
@modules = @{$host->{'modules'}};
@themes = @{$host->{'themes'}};
@users = @{$host->{'users'}};
@groups = @{$host->{'groups'}};
# Show host details
print "\n";
print "
\n";
print " $text{'host_header'} |
\n";
print " \n";
print " $text{'host_name'} | \n";
if ($server->{'id'}) {
printf "%s | \n",
$server->{'desc'} ? $server->{'desc'} : $server->{'host'};
}
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_count'} | \n";
printf "%d | \n", scalar(@modules);
print "$text{'host_tcount'} | \n";
printf "%d | \n", scalar(@themes);
print " $text{'host_os'} | \n";
print "$host->{'real_os_type'} $host->{'real_os_version'} | \n";
print "$text{'host_version'} | \n";
printf "%s | \n", $host->{'version'};
print " |
\n";
# Show delete and refresh buttons
print "\n";
print "\n";
print "\n";
print "
\n";
# Show table of modules and themes
print "\n";
print " $text{'host_header_m'} |
\n";
print " \n";
$i = 0;
foreach $m (sort { $a->{'desc'} cmp $b->{'desc'} } @modules) {
print "\n" if ($i%3 == 0);
print "",$m->{'desc'}," | \n";
print " \n" if ($i%3 == 2);
$i++;
}
if (@themes) {
$i = 0;
print " |
\n";
print " $text{'host_header_t'} |
\n";
print " \n";
foreach $t (sort { $a->{'desc'} cmp $b->{'desc'} } @themes) {
print "\n" if ($i%3 == 0);
print "",$t->{'desc'}," | \n";
print " \n" if ($i%3 == 2);
$i++;
}
}
print " |
\n";
&ui_print_footer("", $text{'index_return'});