PAL.C.T MINI SHELL
#!/usr/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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`