Web service to up date an dynamic IP address on domains.google.com
Perl6
Switch branches/tags
Nothing to show
Latest commit cf23f70 Jan 22, 2016 Michael fix test file
Permalink
Failed to load latest commit information.
bin some updates Dec 31, 2015
lib/WebService more bug fixes Jan 20, 2016
logotype new Dec 4, 2015
t fix test file Jan 22, 2016
.travis.yml bug hunt Jan 20, 2016
LICENCE new Dec 4, 2015
META.info update files Dec 10, 2015
README.md update files Dec 10, 2015

README.md

WebService::DyDNS Build Status

SYNOPSIS

Simple web service used to update an IP address on domains.google.com if the current one has changed. Obtains current IP address using the WebService::HazIP module, then compares the results with the IP address that was set the last time the service was ran. It there was a change, the updateIP() method is then called to update the IP address using the HTTP::UserAgent module.

TODO

  • Maybe POST request would be better

Methods

  • checkPreviousIP()
  • updateIP()

Returns

  • One of the response codes from domains.google.com
  • "No change. No action taken."

Example usage:

use v6;
use WebService::GoogleDyDNS;

multi sub MAIN( :$domain, :$login, :$password ) {

  my $updater = WebService::GoogleDyDNS.new(domainName => $domain, login => $login , password => $password );
  $updater.checkPreviousIP();
  if $updater.outdated { say $updater.updateIP(); } else { say "No change. No action taken."; }

}