PAL.C.T MINI SHELL
do 'bind8-lib.pl';
sub list_system_info
{
my ($data, $in) = @_;
my @rv;
if (&foreign_available($module_name) && $access{'defaults'} &&
$config{'dnssec_info'}) {
# Show DNSSEC client config errors
my $err = &check_dnssec_client();
if ($err) {
push(@rv, { 'type' => 'warning',
'level' => 'warn',
'warning' => $err });
}
}
if (&foreign_available($module_name) && !$access{'noconfig'} &&
$config{'dnssec_info'}) {
# Show DNSSEC expired domains
my @exps = &list_dnssec_expired_domains();
if (@exps) {
my @doms = map { $_->{'name'}." (".&make_date($_->{'expiry'}, 1).")" } @exps;
my $msg = &text('index_eexpired', join(", ", @doms))."<p>\n";
my $job = &get_dnssec_cron_job();
if (!$job) {
$msg .= &text('index_eexpired_conf',
&ui_link(&get_webprefix()."/$module_name/conf_dnssec.cgi",
$text{'dnssec_title'}));
}
else {
$msg .= &text('index_eexpired_mod',
&ui_link(&get_webprefix()."/$module_name/",
$text{'index_title'}));
}
push(@rv, { 'type' => 'warning',
'level' => 'danger',
'warning' => $msg });
}
}
return @rv;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`