15 lines
245 B
Perl
Executable File
15 lines
245 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Martnet::DDNS;
|
|
use JSON::PP qw/encode_json/;
|
|
|
|
my $ddns = Martnet::DDNS->new();
|
|
my $cfg = $ddns->get_config();
|
|
|
|
my $json = JSON::PP->new->canonical(1)->pretty(1);
|
|
print $json->encode($cfg);
|
|
|
|
exit 0;
|