Web service to up date an dynamic IP address on domains.google.com
Perl6
Switch branches/tags
Nothing to show
Latest commit 7f14c8e May 13, 2017 Michael changed the license to Artistic-2.0
Permalink
Failed to load latest commit information.
bin Updating META file May 10, 2017
lib Updating META file May 10, 2017
logotype Updating META file May 10, 2017
t fix test file Jan 22, 2016
.DS_Store changed the license to Artistic-2.0 May 13, 2017
.travis.yml bug hunt Jan 20, 2016
LICENCE new Dec 4, 2015
META6.json changed the license to Artistic-2.0 May 13, 2017
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."; }

}