Update ddclient.in
This commit is contained in:
Serrallonga25
GitHub
parent
3e2cb0a0dc
commit
7451b28379
1 changed files with 157 additions and 0 deletions
157
ddclient.in
157
ddclient.in
|
|
@ -555,6 +555,16 @@ my %services = (
|
||||||
'server' => setv(T_FQDNP, 1, 0, 'nic.changeip.com', undef),
|
'server' => setv(T_FQDNP, 1, 0, 'nic.changeip.com', undef),
|
||||||
},
|
},
|
||||||
},
|
},
|
||||||
|
'cdmon' => {
|
||||||
|
'updateable' => undef,
|
||||||
|
'update' => \&dinamico_cdmon_update,
|
||||||
|
'examples' => \&dinamico_cdmon_examples,
|
||||||
|
'variables' => merge(
|
||||||
|
{ 'server' => setv(T_FQDNP, 1, 0, 1, 'dinamico.cdmon.org', undef) },
|
||||||
|
{ 'min-interval' => setv(T_DELAY, 0, 0, 1, 0, interval('5m')),},
|
||||||
|
$variables{'service-common-defaults'},
|
||||||
|
),
|
||||||
|
},
|
||||||
'cloudflare' => {
|
'cloudflare' => {
|
||||||
'updateable' => undef,
|
'updateable' => undef,
|
||||||
'update' => \&nic_cloudflare_update,
|
'update' => \&nic_cloudflare_update,
|
||||||
|
|
@ -5450,6 +5460,153 @@ sub nic_1984_update {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
######################################################################
|
||||||
|
## dinamico_cdmon_examples
|
||||||
|
######################################################################
|
||||||
|
sub dinamico_cdmon_examples {
|
||||||
|
return <<EoEXAMPLE;
|
||||||
|
|
||||||
|
o 'cdmon'
|
||||||
|
|
||||||
|
The 'cdmon' protocol is used by DNS services offered by cdmon.org.
|
||||||
|
|
||||||
|
Configuration variables applicable to the 'cdmon' protocol are:
|
||||||
|
protocol=cdmon ##
|
||||||
|
login=service-login ## login name and password registered with the service
|
||||||
|
password=service-password ##
|
||||||
|
fully.qualified.host ## the host registered with the service.
|
||||||
|
|
||||||
|
Example ${program}.conf file entries:
|
||||||
|
## single host update
|
||||||
|
protocol=cdmon, \\
|
||||||
|
login=my-my-cdmon.org-login, \\
|
||||||
|
password=my-cdmon.org-password \\
|
||||||
|
myhost.mydomain.cat
|
||||||
|
|
||||||
|
EoEXAMPLE
|
||||||
|
}
|
||||||
|
######################################################################
|
||||||
|
## dinamico_cdmon_update
|
||||||
|
##
|
||||||
|
## adapted by David
|
||||||
|
## https://ticket.cdmon.com/ca/support/solutions/articles/7000005922-api-d-actualitzaci%c3%b3-de-ip-del-dns-gratis-din%c3%a0mic?set_locale=1075
|
||||||
|
## https://dinamico.cdmon.org/onlineService.php?enctype=MD5&n=usuario&p=1bc29b36f623ba82aaf6724fd3b16718&cip=x.x.x.x
|
||||||
|
##
|
||||||
|
######################################################################
|
||||||
|
sub dinamico_cdmon_update {
|
||||||
|
|
||||||
|
|
||||||
|
debug("\ndinamico_cdmon_update -------------------");
|
||||||
|
|
||||||
|
## update each configured host
|
||||||
|
foreach my $h (@_) {
|
||||||
|
my $ip = delete $config{$h}{'wantip'};
|
||||||
|
info("setting IP address to %s for %s", $ip, $h);
|
||||||
|
verbose("UPDATE:","updating %s", $h);
|
||||||
|
|
||||||
|
my $url;
|
||||||
|
$url = "https://dinamico.cdmon.org/onlineService.php";
|
||||||
|
$url .= "?enctype=MD5";
|
||||||
|
$url .= "&n=$config{$h}{'login'}";
|
||||||
|
$url .= "&p=$config{$h}{'password'}";
|
||||||
|
$url .= "&cip=$ip" if $ip;
|
||||||
|
|
||||||
|
verbose("SENDING:", "%s", $url);
|
||||||
|
my $reply = geturl(opt('proxy'), $url);
|
||||||
|
if (!defined($reply) || !$reply) {
|
||||||
|
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
last if !header_ok($h, $reply);
|
||||||
|
|
||||||
|
debug("REPLIED: %s\n", $reply);
|
||||||
|
|
||||||
|
|
||||||
|
my ($result) = $reply =~ /^&(.*)&$/m;
|
||||||
|
my $params = {};
|
||||||
|
foreach my $var ( split( /&/, $result) ){
|
||||||
|
my ( $k, $v ) = split( /=/, $var );
|
||||||
|
if( exists $params->{$k} ) {
|
||||||
|
if( 'ARRAY' eq ref $params->{$k} ) {
|
||||||
|
push @{ $params->{$k} }, $v;
|
||||||
|
} else {
|
||||||
|
$params->{$k} = [ $params->{$k}, $v ];
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$params->{$k} = $v;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (exists $params->{'resultat'}) {
|
||||||
|
if ($params->{'resultat'} eq 'guardatok' || $params->{'resultat'} eq 'customok') {
|
||||||
|
# &resultat=guardatok&newip=x.x.x.x&
|
||||||
|
# Cuando se hace una petición sin la variable cip y la autentificación ha sido correcta, se nos devuelve la IP actual que detecta el servidor.
|
||||||
|
# When a request is made without the cip variable and the authentication has been correct, the current IP detected by the server is returned.
|
||||||
|
|
||||||
|
# &resultat=customok&newip=x.x.x.x&customip=x.x.x.x&temps=1200000&
|
||||||
|
# Cuando hemos mandado nuestra IP mediante la variable cip y la autentificación ha sido satisfactoria.
|
||||||
|
# When we have sent our IP through the cip variable and the authentication has been successful.
|
||||||
|
|
||||||
|
# &resultat=guardatok&temps=1200000
|
||||||
|
# Nos devuelve este resultado, para informarnos que se ha guardado bien la configuración y que los cambios no estarán operativos hasta pasados 20 minutos.
|
||||||
|
# It returns this result, to inform us that the configuration has been saved correctly and that the changes will not be operational until after 20 minutes.
|
||||||
|
|
||||||
|
my $newip = $ip;
|
||||||
|
my $msg;
|
||||||
|
$msg = sprintf "updating %s: good", $h;
|
||||||
|
|
||||||
|
if (exists $params->{'customip'}) {
|
||||||
|
$msg .= sprintf " : sent IP address %s", $params->{'customip'};
|
||||||
|
} else {
|
||||||
|
$msg .= sprintf " : sent IP address %s", $ip;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (exists $params->{'newip'}) {$newip = $params->{'newip'}; $msg .= sprintf " :IP address set to newip:%s", $newip;}
|
||||||
|
if (exists $params->{'temps'}) {$msg .= sprintf ", the changes will not be operational until after %d minutes", int(int($params->{'temps'})/60000);}
|
||||||
|
|
||||||
|
#$config{$h}{'ip'} = $ip;
|
||||||
|
$config{$h}{'ip'} = $newip;
|
||||||
|
$config{$h}{'mtime'} = $now;
|
||||||
|
$config{$h}{'status'} = 'good';
|
||||||
|
success("%s.", $msg);
|
||||||
|
|
||||||
|
} elsif ($params->{'resultat'} eq 'badip') {
|
||||||
|
# &resultat=badip&
|
||||||
|
# Nos devuelve este resultado cuando la autentificación ha sido satisfactoria pero la IP es errónea.
|
||||||
|
# It returns this result when the authentication has been successful but the IP is wrong.
|
||||||
|
$config{$h}{'status'} = 'failed';
|
||||||
|
warning("SENT: %s", $url) unless opt('verbose');
|
||||||
|
warning("REPLIED: %s", $reply);
|
||||||
|
failed("Not updating %s: The IP address is not valid. ==> %s", $h, $result);
|
||||||
|
} elsif ($params->{'resultat'} eq 'errorlogin') {
|
||||||
|
# &resultat=errorlogin&
|
||||||
|
# Nos devuelve este resultado cuando la autentificación no ha sido satisfactoria.
|
||||||
|
# It returns this result when the authentication has not been successful. The username or password is incorrect.
|
||||||
|
$config{$h}{'status'} = 'failed';
|
||||||
|
warning("SENT: %s", $url) unless opt('verbose');
|
||||||
|
warning("REPLIED: %s", $reply);
|
||||||
|
failed("Not updating %s: The username or password is incorrect. ==> %s", $h, $result);
|
||||||
|
} elsif ($params->{'resultat'} eq 'novaversio') {
|
||||||
|
# &resultat=novaversio&
|
||||||
|
# Nos devuelve este resultado en raras ocasiones, sólo cuando modificamos el archivo que procesa todas las peticiones para obligar a todos los usuarios a actualizar a una nueva versión de la aplicación. En su caso sólo tendrá que ponerse en contacto con nosotros para obtener la nueva URL para hacer la petición.
|
||||||
|
# It returns this result on rare occasions, only when we modify the file that processes all requests to force all users to upgrade to a new version of the application. In your case, you will only have to contact us to obtain the new URL to make the request.
|
||||||
|
$config{$h}{'status'} = 'failed';
|
||||||
|
warning("SENT: %s", $url) unless opt('verbose');
|
||||||
|
warning("REPLIED: %s", $reply);
|
||||||
|
failed("Not updating %s: Update to a new version of the application API. ==> %s", $h, $result);
|
||||||
|
} else {
|
||||||
|
$config{$h}{'status'} = 'failed';
|
||||||
|
warning("SENT: %s", $url) unless opt('verbose');
|
||||||
|
warning("REPLIED: %s", $reply);
|
||||||
|
failed("Not updating %s: Unknown return parameters. ==> %s", $h, $result);
|
||||||
|
}
|
||||||
|
|
||||||
|
debug("Exist");
|
||||||
|
} else {
|
||||||
|
failed("updating %s: Invalid resultat.'%s'", $h, $result);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
######################################################################
|
######################################################################
|
||||||
## nic_changeip_examples
|
## nic_changeip_examples
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue