mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
30 lines
713 B
Perl
Executable File
30 lines
713 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Display client host sections
|
|
|
|
require './sshd-lib.pl';
|
|
&ui_print_header(undef, $text{'hosts_title'}, "", "hosts");
|
|
|
|
$hconf = &get_client_config();
|
|
$i = 0;
|
|
foreach $h (@$hconf) {
|
|
if (lc($h->{'name'}) eq 'host') {
|
|
push(@links, "edit_host.cgi?idx=$i");
|
|
push(@icons, "images/host.gif");
|
|
push(@titles, $h->{'values'}->[0] eq '*' ? "<i>$text{'hosts_all'}</i>" : &html_escape($h->{'values'}->[0]));
|
|
}
|
|
$i++;
|
|
}
|
|
$addlink = &ui_links_row(
|
|
[ &ui_link("edit_host.cgi?new=1",$text{'hosts_add'}) ]);
|
|
if (@links) {
|
|
print $addlink;
|
|
&icons_table(\@links, \@titles, \@icons);
|
|
}
|
|
else {
|
|
print "<b>$text{'hosts_none'}</b><p>\n";
|
|
}
|
|
print $addlink;
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|