Added function to pretty print json
This commit is contained in:
parent
2576303566
commit
a497ae4369
|
@ -181,6 +181,7 @@ our @EXPORT = qw(
|
||||||
check_cron_value
|
check_cron_value
|
||||||
check_cron_element
|
check_cron_element
|
||||||
cron_check
|
cron_check
|
||||||
|
p_pretty_json
|
||||||
);
|
);
|
||||||
|
|
||||||
# ID of the different servers
|
# ID of the different servers
|
||||||
|
@ -2977,6 +2978,18 @@ sub get_server_name {
|
||||||
return "UNKNOWN";
|
return "UNKNOWN";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
################################################################################
|
||||||
|
# Pretty print json.
|
||||||
|
################################################################################
|
||||||
|
sub p_pretty_json {
|
||||||
|
my ($data) = @_;
|
||||||
|
|
||||||
|
# Initialize JSON manager.
|
||||||
|
my $j = JSON->new->utf8(1)->pretty(1)->indent(1);
|
||||||
|
my $output = $j->encode($data);
|
||||||
|
|
||||||
|
return $output;
|
||||||
|
}
|
||||||
1;
|
1;
|
||||||
__END__
|
__END__
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue