File Coverage

blib/lib/Net/DynDNS/GoDaddy.pm

Criterion	Covered	Total	%
statement	84	85	98.8
branch	17	18	94.4
condition	14	15	93.3
subroutine	17	18	94.4
pod	4	4	100.0
total	136	140	97.1

package Net::DynDNS::GoDaddy;

use strict;
use warnings;

use Carp qw(croak);
use Data::Dumper;
use Exporter qw(import);
use File::HomeDir;
use HTTP::Tiny;
use JSON;

our $VERSION = '0.04';

our @EXPORT = qw(host_ip_get host_ip_set);
our @EXPORT_OK = qw(api_key_get api_key_set);
our %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);

my $home_dir;

BEGIN {
    $home_dir = File::HomeDir->my_home;
}

use constant {
    URL             => 'https://api.godaddy.com',
    API_KEY_FILE    => "$home_dir/godaddy_api.json",
};

my $client = HTTP::Tiny->new;
my ($key, $secret);

sub api_key_get {
    return($key, $secret) if $key && $secret;

    {
        local $/;
        open my $fh, '<', API_KEY_FILE
            or croak "GoDaddy API key/secret file ${\API_KEY_FILE} doesn't exist";

        my $data = decode_json(<$fh>);

        $key = $data->{api_key};
        $secret = $data->{api_secret};
    }

    return($key, $secret);
}
sub api_key_set {
    my ($key, $secret) = @_;

    if (! $key || ! $secret) {
        croak "api_key_set() requires an API key and an API secret sent in";
    }

    my $data = {
        api_key     => $key,
        api_secret  => $secret,
    };

    open my $fh, '>', API_KEY_FILE
        or croak "Can't open ${\API_KEY_FILE} for writing";

    print $fh JSON->new->pretty->encode($data);

    return 1;
}
sub host_ip_get {
    my ($host, $domain) = @_;

    if (! defined $host || ! defined $domain) {
        croak "host_ip_get() requires a hostname and domain name sent in";
    }

    my $ip = _get($host, $domain);

    return $ip;
}
sub host_ip_set {
    my ($host, $domain, $ip) = @_;

    if (! defined $host || ! defined $domain || ! defined $ip) {
        croak "host_ip_set() requires a hostname, domain and IP sent in";
    }

    if ($ip !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
        croak "host_ip_get() received an invalid IP: $ip";
    }

    my $response = _set($host, $domain, $ip);

    return $response;
}

sub _api_key_file {
    # Returns the path and filename of the API key file (used for testing)
    return API_KEY_FILE;
}
sub _get {
    # Fetch the current IP of the host/domain pair

    my ($host, $domain) = @_;

    my $route = "/v1/domains/$domain/records/A/$host";

    my $uri = URL . $route;

    my ($api_key, $api_secret) = api_key_get();

    my $api_auth = "$api_key:$api_secret";

    my $headers = {
        'Authorization' => "sso-key $api_auth"
    };

    my $response = $client->request('GET', $uri, {headers => $headers});

    my $status = $response->{status};

    if ($status != 200) {
        warn "Failed to connect to $uri to get your address: $response->{content}";
        return '';
    }

    my $ip = decode_json($response->{content})->[0]{data};

    return $ip;
}
sub _set {
    # Set the host to a new IP

    my ($host, $domain, $ip) = @_;

    my $route = "/v1/domains/$domain/records/A/$host";

    my $uri = URL . $route;

    my ($api_key, $api_secret) = api_key_get();

    my $api_auth = "$api_key:$api_secret";

    my $headers = {
        'Authorization' => "sso-key $api_auth",
        'Content-Type'  => 'application/json',
    };

    my $content = [{ data => $ip }];
    my $content_json = encode_json($content);

    my $response = $client->request(
        'PUT',
        $uri,
        {
            headers => $headers,
            content => $content_json
        }
    );

    my $status = $response->{status};

    if ($status != 200) {
        warn "Failed to connect to $uri to get your address: $response->{content}";
        return 0;
    }

    return $response->{success};
}
sub __placeholder {}

1;
__END__