Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.05 KB	-rw-r--r--
add.cgi	2.48 KB	-rwxr-xr-x
cluster-webmin-lib.pl	7.29 KB	-rwxr-xr-x
config	25 B	-rw-r--r--
config.info	108 B	-rw-r--r--
config.info.ca	135 B	-rw-r--r--
config.info.ca.UTF-8	137 B	-rw-r--r--
config.info.cz	71 B	-rw-r--r--
config.info.cz.UTF-8	79 B	-rw-r--r--
config.info.de	129 B	-rw-r--r--
config.info.de.UTF-8	129 B	-rw-r--r--
config.info.es	87 B	-rw-r--r--
config.info.es.UTF-8	87 B	-rw-r--r--
config.info.fr	75 B	-rw-r--r--
config.info.fr.UTF-8	77 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms_MY	131 B	-rw-r--r--
config.info.ms_MY.UTF-8	131 B	-rw-r--r--
config.info.nl	131 B	-rw-r--r--
config.info.nl.UTF-8	131 B	-rw-r--r--
config.info.no	131 B	-rw-r--r--
config.info.no.UTF-8	131 B	-rw-r--r--
config.info.pl	119 B	-rw-r--r--
config.info.pl.UTF-8	122 B	-rw-r--r--
create_group.cgi	3.11 KB	-rwxr-xr-x
create_user.cgi	3.95 KB	-rwxr-xr-x
delete_group.cgi	3.22 KB	-rwxr-xr-x
delete_host.cgi	248 B	-rwxr-xr-x
delete_mod.cgi	4.17 KB	-rwxr-xr-x
delete_user.cgi	2.15 KB	-rwxr-xr-x
edit_acl.cgi	3.94 KB	-rwxr-xr-x
edit_config.cgi	2.13 KB	-rwxr-xr-x
edit_group.cgi	6.35 KB	-rwxr-xr-x
edit_host.cgi	4.46 KB	-rwxr-xr-x
edit_mod.cgi	7 KB	-rwxr-xr-x
edit_user.cgi	8.96 KB	-rwxr-xr-x
group_form.cgi	2.98 KB	-rwxr-xr-x
index.cgi	9.46 KB	-rwxr-xr-x
install.cgi	7.67 KB	-rwxr-xr-x
module.info	227 B	-rw-r--r--
module.info.ca	171 B	-rw-r--r--
module.info.ca.UTF-8	190 B	-rw-r--r--
module.info.cz	33 B	-rw-r--r--
module.info.cz.UTF-8	39 B	-rw-r--r--
module.info.de	160 B	-rw-r--r--
module.info.de.UTF-8	172 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.UTF-8	42 B	-rw-r--r--
module.info.fr	35 B	-rw-r--r--
module.info.fr.UTF-8	41 B	-rw-r--r--
module.info.hu	33 B	-rw-r--r--
module.info.hu.UTF-8	39 B	-rw-r--r--
module.info.ms_MY	157 B	-rw-r--r--
module.info.ms_MY.UTF-8	169 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.UTF-8	39 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.UTF-8	38 B	-rw-r--r--
module.info.pl	163 B	-rw-r--r--
module.info.pl.UTF-8	180 B	-rw-r--r--
refresh.cgi	4.08 KB	-rwxr-xr-x
save_acl.cgi	3.33 KB	-rwxr-xr-x
save_config.cgi	1.33 KB	-rwxr-xr-x
save_group.cgi	4.54 KB	-rwxr-xr-x
save_user.cgi	5.24 KB	-rwxr-xr-x
sync.cgi	4 KB	-rwxr-xr-x
sync_form.cgi	1.8 KB	-rwxr-xr-x
update.cgi	4.1 KB	-rwxr-xr-x
upgrade.cgi	15.25 KB	-rwxr-xr-x
user_form.cgi	4.52 KB	-rwxr-xr-x

Code Editor : edit_host.cgi

#!/usr/bin/perl
# edit_host.cgi
# Show details of a managed host, and all the modules on it

require './cluster-webmin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'host_title'}, "");

@hosts = &list_webmin_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 "<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(@modules);

print "<td><b>$text{'host_tcount'}</b></td>\n";
printf "<td>%d</td> </tr>\n", scalar(@themes);

print "<tr> <td><b>$text{'host_os'}</b></td>\n";
print "<td>$host->{'real_os_type'} $host->{'real_os_version'}</td>\n";

print "<td><b>$text{'host_version'}</b></td>\n";
printf "<td>%s</td> </tr>\n", $host->{'version'};

print "</table></td></tr></table>\n";

# Show delete and refresh buttons
print "<p></p><table width=100%><tr>\n";

print "<td><form action=delete_host.cgi>\n";
print "<input type=hidden name=id value=$in{'id'}>\n";
print "<input type=submit value='$text{'host_delete'}'>\n";
print "</form></td>\n";

print "<td align=right><form action=refresh.cgi>\n";
print "<input type=hidden name=id value=$in{'id'}>\n";
print "<input type=submit value='$text{'host_refresh'}'>\n";
print "</form></td>\n";

print "</tr></table>\n";

# Show table of modules and themes
print "<p></p><table border width=100%>\n";
print "<tr $tb> <td><b>$text{'host_header_m'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

$i = 0;
my $total_cells = scalar(@modules);
foreach $m (sort { $a->{'desc'} cmp $b->{'desc'} } @modules) {
	my $colspan = '';
	if ($total_cells == $i + 1 && $total_cells%$i == 1) {
		if ($i%3 == 0) {
			$colspan = " colspan=3 ";
		} elsif($i%3 == 1) {
			$colspan = " colspan=2 ";
		}
	}
	print "<tr>\n" if ($i%3 == 0);
	print "<td $colspan width=33%><a href='edit_mod.cgi?mod=$m->{'dir'}&host=$in{'id'}'>",$m->{'desc'},"</td>\n";
	print "</tr>\n" if ($i%3 == 2);
	$i++;
	}
if (@themes) {
	$i = 0;
	print "</table></td></tr>\n";
	print "<tr $tb> <td><b>$text{'host_header_t'}</b></td> </tr>\n";
	print "<tr $cb> <td><table width=100%>\n";
	my $total_cells_themes = scalar(@themes);
	foreach $t (sort { $a->{'desc'} cmp $b->{'desc'} } @themes) {
		my $colspan = '';
		if ($total_cells_themes == $i + 1 && $total_cells_themes%$i == 1) {
			if ($i%3 == 0) {
				$colspan = " colspan=3 ";
			} elsif($i%3 == 1) {
				$colspan = " colspan=2 ";
			}
		}
		print "<tr>\n" if ($i%3 == 0);
		print "<td $colspan width=33%><a href='edit_mod.cgi?theme=$t->{'dir'}$in{'id'}'>",$t->{'desc'},"</td>\n";
		print "</tr>\n" if ($i%3 == 2);
		$i++;
		}
	}
print "</table></td></tr></table><br>\n";

# Show table of users and groups
print "<p></p><table border width=100%>\n";
print "<tr $tb> <td><b>$text{'host_header_u'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
$i = 0;
foreach $u (@users) {
	print "<tr>\n" if ($i%4 == 0);
	print "<td width=25%><a href='edit_user.cgi?user=$u->{'name'}&host=$in{'id'}'>$u->{'name'}</td>\n";
	print "</tr>\n" if ($i%4 == 3);
	$i++;
	}
if ($i%4) {
	while($i++%4) { print "<td width=25%></td>\n"; }
	print "</tr>\n";
	}
if (@groups) {
	$i = 0;
	print "</table></td></tr>\n";
	print "<tr $tb> <td><b>$text{'host_header_g'}</b></td> </tr>\n";
	print "<tr $cb> <td><table width=100%>\n";
	foreach $g (@groups) {
		print "<tr>\n" if ($i%4 == 0);
		print "<td width=25%><a href='edit_group.cgi?group=$g->{'name'}&host=$in{'id'}'>$g->{'name'}</td>\n";
		print "</tr>\n" if ($i%4 == 3);
		$i++;
		}
	if ($i%4) {
		while($i++%4) { print "<td width=25%></td>\n"; }
		print "</tr>\n";
		}
	}
print "</table></td></tr></table><br>\n";

&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit_host.cgi