mirror of
https://github.com/webmin/webmin.git
synced 2026-05-26 16:10:29 +01:00
30 lines
714 B
Perl
30 lines
714 B
Perl
|
|
do 'bind8-lib.pl';
|
|
|
|
sub list_system_info
|
|
{
|
|
my ($data, $in) = @_;
|
|
my @rv;
|
|
if (&foreign_available($module_name) && $access{'defaults'}) {
|
|
# 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'}) {
|
|
# Show DNSSEC expired domains
|
|
my @exps = &list_dnssec_expired_domains();
|
|
if (@exps) {
|
|
my @msgs = map { $_->{'name'}." (".&make_date($_->{'expiry'}, 1).")" } @exps;
|
|
push(@rv, { 'type' => 'warning',
|
|
'level' => 'danger',
|
|
'warning' => &text('index_eexpired',
|
|
join(", ", @msgs)) });
|
|
}
|
|
}
|
|
return @rv;
|
|
}
|