mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
119 lines
3.3 KiB
Perl
119 lines
3.3 KiB
Perl
#!/usr/local/bin/perl
|
|
# edit_host.cgi
|
|
# Show details of a managed host, and all the packages on it
|
|
|
|
require './cluster-software-lib.pl';
|
|
&foreign_require("servers", "servers-lib.pl");
|
|
&ReadParse();
|
|
&header($text{'host_title'}, "");
|
|
print "<hr>\n";
|
|
|
|
@hosts = &list_software_hosts();
|
|
($host) = grep { $_->{'id'} eq $in{'id'} } @hosts;
|
|
$server = &foreign_call("servers", "get_server", $in{'id'});
|
|
@packages = @{$host->{'packages'}};
|
|
|
|
# Show host details
|
|
print "<form action=delete_host.cgi>\n";
|
|
print "<input type=hidden name=id value=$in{'id'}>\n";
|
|
print "<table border width=100%>\n";
|
|
print "<tr $tb> <td><b>$text{'host_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table width=100%>\n";
|
|
|
|
print "<tr> <td><b>$text{'host_name'}</b></td>\n";
|
|
if ($server->{'id'}) {
|
|
printf "<td><a href='/servers/link.cgi/%s/'>%s</a></td>\n",
|
|
$server->{'id'}, $server->{'desc'} ? "$server->{'desc'} ($server->{'host'}:$server->{'port'})" : "$server->{'host'}:$server->{'port'}";
|
|
}
|
|
else {
|
|
print "<td><a href=/>$text{'this_server'}</a></td>\n";
|
|
}
|
|
|
|
if ($server->{'id'}) {
|
|
print "<td><b>$text{'host_type'}</b></td> <td>\n";
|
|
foreach $t (@servers::server_types) {
|
|
print $t->[1] if ($t->[0] eq $server->{'type'});
|
|
}
|
|
print "</td>\n";
|
|
}
|
|
print "</tr>\n";
|
|
|
|
print "<tr> <td><b>$text{'host_count'}</b></td>\n";
|
|
printf "<td>%d</td>\n", scalar(@packages);
|
|
|
|
print "<td><b>$text{'host_os'}</b></td>\n";
|
|
print "<td>$host->{'real_os_type'} $host->{'real_os_version'}</td> </tr>\n";
|
|
|
|
print "</table></td></tr></table>\n";
|
|
print "<input type=submit value='$text{'host_delete'}'></form>\n";
|
|
|
|
# Show tree of packages
|
|
$heir{""} = "";
|
|
foreach $c (sort { $a cmp $b } &unique(map { $_->{'class'} } @packages)) {
|
|
if (!$c) { next; }
|
|
@w = split(/\//, $c);
|
|
$p = join('/', @w[0..$#w-1]);
|
|
if (!defined($heir{$p})) {
|
|
$pp = join('/', @w[0..$#w-2]);
|
|
$heir{$pp} .= "$p\0";
|
|
}
|
|
$heir{$p} .= "$c\0";
|
|
$hasclasses++;
|
|
}
|
|
|
|
# get the current open list
|
|
open(HEIROPEN, "$module_config_directory/heiropen.$in{'id'}");
|
|
while(<HEIROPEN>) {
|
|
chop;
|
|
$heiropen{$_}++;
|
|
}
|
|
close(HEIROPEN);
|
|
$heiropen{""}++;
|
|
|
|
# traverse the heirarchy
|
|
$spacer = " "x3;
|
|
print "<hr>\n";
|
|
print "<h3>$text{'host_installed'}</h3>\n";
|
|
print "<table width=100%>\n";
|
|
&traverse("", 0);
|
|
print "</table>\n";
|
|
if ($hasclasses) {
|
|
print "<a href='closeall.cgi?id=$in{'id'}'>$text{'host_close'}</a> $spacer\n";
|
|
print "<a href='openall.cgi?id=$in{'id'}'>$text{'host_open'}</a><p>\n";
|
|
}
|
|
|
|
print "<hr>\n";
|
|
&footer("", $text{'index_return'});
|
|
|
|
sub traverse
|
|
{
|
|
local($s, $act, $i);
|
|
print "<tr> <td>", $spacer x $_[1];
|
|
if ($_[0]) {
|
|
print "<a name=\"$_[0]\"></a>\n";
|
|
$act = $heiropen{$_[0]} ? "close" : "open";
|
|
print "<a href=\"$act.cgi?id=$in{'id'}&what=",&urlize($_[0]),"\">";
|
|
$_[0] =~ /([^\/]+)$/;
|
|
print "<img border=0 src=images/$act.gif></a> $1</td>\n",
|
|
}
|
|
else { print "<img src=images/close.gif> <i>$text{'host_all'}</i></td>\n"; }
|
|
print "<td><br></td> </tr>\n";
|
|
if ($heiropen{$_[0]}) {
|
|
# print sub-folders followed by packages
|
|
foreach $i (@packages) {
|
|
if ($i->{'class'} eq $_[0]) {
|
|
print "<tr> <td>", $spacer x ($_[1]+1);
|
|
print "<img border=0 src=images/pack.gif></a> \n";
|
|
print "<a href=\"edit_pack.cgi?package=",
|
|
&urlize($i->{'name'}),"\">$i->{'name'}</a></td>\n";
|
|
print "<td>$i->{'desc'}</td>\n";
|
|
print "</tr>\n";
|
|
}
|
|
}
|
|
foreach $s (&unique(split(/\0+/, $heir{$_[0]}))) {
|
|
&traverse($s, $_[1]+1);
|
|
}
|
|
}
|
|
}
|
|
|