nfsp_dnslink


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

#!/bin/perl -wT
use warnings;
use strict;
use WebService::NFSN;

my $Username = '';
my @Records =();
my $ApiKey= '';
my $AccountId = '';
my $IpfsHash = $ARGV[0] or
	die "You need to provide a CID to update the dnslink TXT record.\n";
my $Domain = $ARGV[1] or
	die "You need to provide a valid domain name for the NFSN API\n";
my $SubDomain = $ARGV[2];
my $RRName = "_dnslink";
my $nfsn = WebService::NFSN->new($Username, $ApiKey);
my $dns = $nfsn->dns($Domain) or die "Connection error or provide a valid domain\n";
$dns->minTTL(60);

if (not defined $SubDomain){
	@Records = $dns->listRRs(name => $RRName);
}
else{
	@Records = $dns->listRRs(name => "$RRName.$SubDomain");
	$RRName = "$RRName.$SubDomain";
}

my $DnsLinkData =  $Records[0][0]->{data};
if (not defined $DnsLinkData){
	print "Adding dnslink data...";
	$dns->addRR(name => "$RRName", type => 'TXT', data => "dnslink=/ipfs/$IpfsHash", ttl => 60);

}
else{
	if (not defined $SubDomain){
		print "Current data for _dnslink.$Domain is : $DnsLinkData\n";
	}
	else{
		print "Current data for _dnslink.$SubDomain.$Domain is : $DnsLinkData\n";

	}

	print "Updating dnslink TXT record...\n";
	$dns->removeRR(name => "$RRName", type => 'TXT', data => "$DnsLinkData");
	$dns->addRR(name => "$RRName", type => 'TXT', data => "dnslink=/ipfs/$IpfsHash", ttl => 60);
}


my $LastError = $nfsn->last_response->decoded_content;
chomp $LastError;

if($LastError =~ /^([\w0-9])$/){
	die "\nDernière réponse en erreur de l'API:\n$LastError\n";
}
else{
       print "\nThe DNS records have been updated. The new dnslink data should be : dnslink=/ipfs/$IpfsHash\n";
}