mise à jour du démon et du certificat
This commit is contained in:
parent
bbc4801c3f
commit
2a7a016782
@ -1,4 +1,4 @@
|
|||||||
# mise à jour auto
|
# mise à jour automatique (façon DynDNS)
|
||||||
|
|
||||||
Pour mettre à jour automatiquement une adresse IP d'un nom de domaine, il faut
|
Pour mettre à jour automatiquement une adresse IP d'un nom de domaine, il faut
|
||||||
changer les quelques valeurs du fichier daemon.pl (en haut) et avoir le
|
changer les quelques valeurs du fichier daemon.pl (en haut) et avoir le
|
||||||
|
@ -1,31 +1,31 @@
|
|||||||
-----BEGIN CERTIFICATE-----
|
-----BEGIN CERTIFICATE-----
|
||||||
MIIFUDCCAzgCCQDV/QJQr9sX7DANBgkqhkiG9w0BAQsFADBqMQswCQYDVQQGEwJG
|
MIIFUDCCAzgCCQCq5y4848m2JzANBgkqhkiG9w0BAQsFADBqMQswCQYDVQQGEwJG
|
||||||
UjEPMA0GA1UECAwGQWxzYWNlMRMwEQYDVQQHDApTdHJhc2JvdXJnMRIwEAYDVQQD
|
UjEPMA0GA1UECAwGQWxzYWNlMRMwEQYDVQQHDApTdHJhc2JvdXJnMRIwEAYDVQQD
|
||||||
DAluZXRsaWIucmUxITAfBgkqhkiG9w0BCQEWEmthcmNobnVAa2FyY2hudS5mcjAe
|
DAluZXRsaWIucmUxITAfBgkqhkiG9w0BCQEWEmthcmNobnVAa2FyY2hudS5mcjAe
|
||||||
Fw0xNDA4MjMwODAwNThaFw0xNTA4MjMwODAwNThaMGoxCzAJBgNVBAYTAkZSMQ8w
|
Fw0xNTEyMjIyMTA5MTVaFw0xNjEyMjEyMTA5MTVaMGoxCzAJBgNVBAYTAkZSMQ8w
|
||||||
DQYDVQQIDAZBbHNhY2UxEzARBgNVBAcMClN0cmFzYm91cmcxEjAQBgNVBAMMCW5l
|
DQYDVQQIDAZBbHNhY2UxEzARBgNVBAcMClN0cmFzYm91cmcxEjAQBgNVBAMMCW5l
|
||||||
dGxpYi5yZTEhMB8GCSqGSIb3DQEJARYSa2FyY2hudUBrYXJjaG51LmZyMIICIjAN
|
dGxpYi5yZTEhMB8GCSqGSIb3DQEJARYSa2FyY2hudUBrYXJjaG51LmZyMIICIjAN
|
||||||
BgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAxaqx8ToKV4lxqOJa+h7WA9qh7ygk
|
BgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAyGHz36Hu/+9fR+YHsG8eaCqCtHqy
|
||||||
3JGOx6EEquL29YUfZXvKHjA3fNUIAXzlUJZXferLO/w62t4M9Lha0beOuM3gQvXz
|
0o6he5/1g40Pw6jXbep0kpMkQ0WwZP7bNnbl5MQWSa1fA4piXbAtyDAFIP7H/MKh
|
||||||
RzeGAgzeEAfDN892+GIYwf7e4a6VQFU99Bb6/cetnqFSw9PiFIC1XpG/lCSR4INd
|
7BBxTWGLyPkTqDLC0lN9V6HPyTTgAyp2q0nuZ0eJFfL7dwk+SKCccL32TwiOHns+
|
||||||
8msGuW6YIJ30AYE2PWNhn8C44szpe4xzQrv5omJsRC4+DXe9yLAdurbvUXzEijE3
|
OnNgFUfR2NFrsRQevr0IFvbYBVakS8p2xVSo8xEOQl/HMG9L6mM/gf3XQLhSTcrl
|
||||||
3rii+vlj52awfsCwxGDh8oblm/ir0ISBqTpq6V/xsCD8S4L9c80HeqGzmcF1LpEl
|
7y0IsUP3uE3UVvJ4CA0a8Z5XMV1k3J/HnKMm+e7zvJf7C8PkD2/7lF+k4ZlN6Y07
|
||||||
dpcSDKLCXLszwKJz/aNiUxPq4m7IWe0av87hUGunzDT9+NUwWcsqHBdAuACQ6xK+
|
eTs93VUdJRhfTKX4NiPsi2DtqlqxJehCt8ExJ7TT/BiA3cmditMOSNG86jQ3oKdq
|
||||||
j3ZtzoiZtPDKLyfdKc4kgx1heiWLn6KCSqgHmfYLQiT7o0kYpOMM7wCjfkMAFI7G
|
Zx/It3L0dbpHawKbXU9aWddzb9bIspTtcL80ta90YyJlGxAhH6J3W4gi5P6PBI+3
|
||||||
LCv5Vx3hgx2erjwnWKXCt+QiUISvzNs9kP3DhcOKtKr4bzEwW8CCML+qnftCjb4w
|
YUPaUJtSbcdGgCo6QkvzOQuDTRaKSfPvoJg4c0AIpZeOWmxhY8RF6vaUyzgiOHvd
|
||||||
+TLKIQNTUlp2I+To2VCnywylFyqOGxR7NKapSjoUUKyCkjcUpNUojy3sLsc1/QeM
|
S8K8AFR71GOEJtk9Fs318YUt+rQFS9MqCe811Kh87pUs8cN+EPu/4XurDFzY3hE2
|
||||||
YRYvOyQpU+xxCGrAQjf+AE0G8QEPPry2MOLGJvg2BUJstgn2IEoYPL7uwtRSwh8b
|
VVNx9NGbzFtDhPS8MqDUEw1xtfOEe5+DGqUiLnVnvx/H9lAN356dqfX5xRX0aJT8
|
||||||
VtXdXX5kAdKj00XBEKOEJ0rRq/ahVTsJaC5ndvcicnp5oMbb5xx0Uvhr+SjqbOo1
|
8xiYN+I5psRiHIe1tOtUf/LWA6ghnqRZiGxhSc354iZpwlHJlUut6sNEJBqUt/i/
|
||||||
VU1qXIbGq87lMu0CAwEAATANBgkqhkiG9w0BAQsFAAOCAgEAhiIHGcruJ6kZLuFD
|
tcHTsQI64xhv3z0CAwEAATANBgkqhkiG9w0BAQsFAAOCAgEAQhKm5NGO6DvKC2Wn
|
||||||
wmi+ZMu3V8v0MlN6v4+VhqHbu5NGsNqXVKKo+JXs9oGlgVgSYN/OaKHc56Xs0/8m
|
UTSHdpVvTlai6FgzTkAsZTW3pLW7vpYk3L1oGr0T5C+v8tLVwBwTZXtaaWqkr205
|
||||||
5mOzxm42IbMs8bj1twGAdngOo+HeXHmJMU87WaD7Igv4IG6bgE5pkhnrvsBxsvyn
|
J8i02Mt2l7gcKuCyMfWhtH03Ue6dp/s4kHh68jp2FYbZ0R7U9W9XoDL+CW1Xm9hA
|
||||||
tnbRvbX582RC40OIw1uVMmYmQGNYBpl4+i94oIEjTDZys6t8MfOsJj1yAuJdYfzn
|
ZQS4C8Jyuiv4WrgTNn8MWQdlEo9Ln+V3sHHKBoetVRgSv/HPRxjAOxvEF1xu408p
|
||||||
oKZfsxfLy1Ze68u6ZOkxdNhvVmyddMGOEhhC2KgWEsFbC9aRmfPKWHS2x8pmyiwz
|
HVjL3bZkZLnDPd/poYa4IN6lAEYhmVBbO7uFzqNPfDgMHm/nJotXwFkRyr1Msl2f
|
||||||
eUgwDVKeuLTuPn8XzYk9BW8TFGnhEfj1wrTb3jdY9NSBBsc2o4bgb8nYQfqsRv8y
|
3auH+JDRWUK4LAFcDskynntNxEF3VAxsqATihDxx2GC/4Nw1uNjJZR79s+Bq/NDc
|
||||||
F0yqzWbBiYKPhITf2n8qdUV3k5FE+uVLlqRERQOa07+kS5kUrpPHurhhgIXN2c2p
|
50j1UZistkdlv+C9vi/B1p2eIhiPnxEcYyIwlJ/hmKVwEDAhmMfCTnSRntOV5Sed
|
||||||
Xutz+EmDyWyLyDCXAk4kKGldiqUpIozs4faYJOxtlZmNKXmokmalSl9eN/S8tIXQ
|
zw6w7LapDvERnT+QQ/2nIRzhc7dSUF0a5i/ATMHx3NCRvcpDbhnk0y5t8+1pZjUv
|
||||||
JQ/dJnvYW9L0hvHWxF03LJ5Pee88nZfIRyN0R6olLcI3oSWCOJAfFeqklnJj5YHs
|
rAcfCH+Mdeg+GhJ3+xCwWLaDhAoAUfPDXrl9C/Ie4qqCwL3uQZjh332ZUY6xut0A
|
||||||
G43BeSW4DGPKCRz6x3i7Y2S5mbfqHFzg1OloU2ybbvCSJhuxyEiSxPkWv5Tl867x
|
AlZCINMymDmg3LTNgoJdieFpgkYfmDrLPWIKMIWU3qNqhxfN5QL715NBOYSUEgZF
|
||||||
ltju9/n8caTlMRAxskGhYnlmg7xsMrr474YAWxelo1OAEbwA+8mWKlbOFa40BHMt
|
kxCQT0AB0KRyDWWaDkH3FsUZFsvygY2OTI8QfraTVFlh3SSRkn/To7l0CVFnM4B9
|
||||||
Ih5Vwu3gN7dmX293gXRYTSnYBgs=
|
qmWLMe+4QMmwGR162WYu+Xmppl8=
|
||||||
-----END CERTIFICATE-----
|
-----END CERTIFICATE-----
|
||||||
|
@ -3,15 +3,29 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use v5.14;
|
use v5.14;
|
||||||
|
|
||||||
our $ndd = "netlib.re";
|
# the website sending your current IP address
|
||||||
our $domain = "montest.netlib.re";
|
our $checkip = "http://t.karchnu.fr/ip.php";
|
||||||
our $name = "www";
|
|
||||||
our $ttl = "3600";
|
# Domain name of the service provider (like netlib.re)
|
||||||
our $login = "test";
|
our $nddservice = "netlib.re";
|
||||||
our $pass = "test";
|
|
||||||
|
# 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';
|
||||||
|
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 {
|
sub get_ip {
|
||||||
my @tmp_ip = split "\n", `wget -nv -O - http://t.karchnu.fr/ip.php`;
|
my @tmp_ip = split "\n", `wget -nv -O - $checkip`;
|
||||||
my $ip;
|
my $ip;
|
||||||
|
|
||||||
for(@tmp_ip) {
|
for(@tmp_ip) {
|
||||||
@ -25,35 +39,14 @@ sub get_ip {
|
|||||||
|
|
||||||
sub update {
|
sub update {
|
||||||
my $ip = get_ip;
|
my $ip = get_ip;
|
||||||
my $type;
|
|
||||||
|
|
||||||
if($ip =~ /:/) {
|
say "UPDATE :: domain $name.$domain => IP $ip, type $type";
|
||||||
$type = "AAAA";
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$type = "A";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $todig;
|
my $cmd = "wget -O - ";
|
||||||
if($name =~ '@') {
|
$cmd .=
|
||||||
$todig = $domain;
|
"https://$nddservice/domain/cliup/$login/$pass/$domain/$name/$type/$ip ";
|
||||||
}
|
$cmd .= "--ca-certificate=$cacert";
|
||||||
else {
|
say `$cmd`;
|
||||||
$todig = "$name.$domain";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $oldhost = `dig +short $todig`;
|
|
||||||
chomp $oldhost;
|
|
||||||
|
|
||||||
say "domain $domain";
|
|
||||||
say "name $name";
|
|
||||||
say "type $type";
|
|
||||||
say "oldhost $oldhost";
|
|
||||||
say "ttl $ttl";
|
|
||||||
say "ip $ip";
|
|
||||||
|
|
||||||
#say "wget -O - https://$ndd/domain/cli/$login/$pass/$domain/$name/$type/$oldhost/$ttl/$ip --ca-certificate=ca.cert";
|
|
||||||
say `wget -O - https://$ndd/domain/cli/$login/$pass/$domain/$name/$type/$oldhost/$ttl/$ip --ca-certificate=ca.cert`;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
update;
|
update;
|
||||||
|
Reference in New Issue
Block a user