58 lines
1.2 KiB
Perl
Executable File
58 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use v5.14;
|
|
|
|
use MIME::Base64 qw(encode_base64);
|
|
|
|
# the website sending your current IP address
|
|
our $checkip = "http://t.karchnu.fr/ip.php";
|
|
|
|
# Domain name of the service provider (like netlib.re)
|
|
our $nddservice = "netlib.re";
|
|
|
|
# Your domain
|
|
our $domain = "test.netlib.re";
|
|
|
|
# Login and password to connect to the website
|
|
our $login = "idtest";
|
|
our $pass = "mdptest";
|
|
|
|
# Your entry to change
|
|
our $name = 'www'; # here, the entry is www.test.netlib.re
|
|
our $type = 'A'; # could be AAAA
|
|
|
|
# The CA certificate, to authenticate the website (should be provided)
|
|
# Check your service provider for updates
|
|
our $cacert = "ca.cert";
|
|
|
|
sub get_ip {
|
|
my @tmp_ip = split "\n", `wget -nv -O - $checkip`;
|
|
my $ip;
|
|
|
|
for(@tmp_ip) {
|
|
if($_ =~ /^[0-9.]+$/ || $_ =~ /^[0-9a-f:]+$/) {
|
|
$ip = $_;
|
|
}
|
|
}
|
|
|
|
$ip;
|
|
}
|
|
|
|
sub update {
|
|
my $ip = get_ip;
|
|
|
|
say "UPDATE :: domain $name.$domain => IP $ip, type $type";
|
|
my $passb64 = encode_base64($pass);
|
|
chomp $passb64;
|
|
|
|
my $cmd = "wget -O - ";
|
|
$cmd .=
|
|
"https://$nddservice/domain/cliup/$login/$passb64/$domain/$name/$type/$ip ";
|
|
$cmd .= "--ca-certificate=$cacert";
|
|
say "CMD :: $cmd";
|
|
`$cmd`;
|
|
}
|
|
|
|
update;
|