rom Redis
$1: I<bind, by defaut 127.0.0.1:6379>
=cut
use strict;
use warnings;
use v5.10.1;
use JSON;
use Net::NTP;
use Lazy::Utils;
BEGIN
{
require Exporter;
our $VERSION = '1.12';
our @IS $newkey => $newval;
} keys(%$item));
\%newitem;
} @items),
],
};
my $result = to_json($discovery, {pretty => 1});
print $result;
return $result;
}
sub _version
{
my $result = "";
ck
=head1 DEPENDENCIES
This module requires these other modules and libraries:
=over
=item *
JSON
=item *
Net::NTP
=item *
Lazy::Utils
=back
=head1 REPOSITORY
B<GitHub> L<https://github.coion 1.11
=head1 SYNOPSIS
Zabbix check for disk
=cut
use strict;
use warnings;
use v5.10.1;
use JSON;
use Lazy::Utils;
use Zabbix::Check;
BEGIN
{
require Exporter;
our $VERSION = '1.11';
o eval { $stats = from_json($tmp) } if $tmp;
}
next;
}
if (not $old_stats)
{
my $tmp = file_get_contents($tmp_path);
eval { $old_stats = from_json($tmp) } if $tmp;
next }
unlink($tmp_path);
}
unless ($stats)
{
$stats = stats();
my $tmp;
eval { $tmp = to_json($stats, {pretty => 1}) };
file_put_contents("$tmp_prefix$now.$$", $tmp) if $tmp;
}
return unl