add missing files
This commit is contained in:
14
bin/dump-config
Executable file
14
bin/dump-config
Executable file
@@ -0,0 +1,14 @@
|
||||
#!/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;
|
||||
Reference in New Issue
Block a user