diff options
Diffstat (limited to 'tools/generate-rowdns.pl')
| -rwxr-xr-x | tools/generate-rowdns.pl | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/tools/generate-rowdns.pl b/tools/generate-rowdns.pl deleted file mode 100755 index a37c0c8..0000000 --- a/tools/generate-rowdns.pl +++ /dev/null @@ -1,111 +0,0 @@ -#!/usr/bin/perl -use strict; - -BEGIN { - require "include/config.pm"; -} - -use JSON -support_by_pp; -use LWP 5.64; -use LWP::UserAgent; -use Net::SSL; # needed, else LWP goes into emo-mode -use Net::IP; -use NetAddr::IP; -use Getopt::Long; - -my ($delete, $infra); - -if (@ARGV > 0) { - GetOptions( - 'del|delete' => \$delete, - 'infra' => \$infra, # generate switch forward - ) -} - -# Use this to generate nsupdate for all edge switches - -# fetch PI API content -sub get_url{ - my $url = shift; - - $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; # just to be sure :-D - my $ua = LWP::UserAgent->new; - my $req = HTTP::Request->new(GET => $url); - $req->authorization_basic($nms::config::gondul_user, $nms::config::gondul_pass); - - return $ua->request($req)->content(); -} - -my $json_obj = new JSON; -my $json_content = get_url($nms::config::gondul_url . "/api/read/switches-management"); - -if($json_content){ - my $json = $json_obj->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($json_content); - - print "server $nms::config::pri_v4\n"; - - foreach my $switch (values %{$json->{switches}}){ - next unless ($switch->{subnet4}); # require at least IPv4 client subnet - next unless ($switch->{sysname} =~ m/^e[0-9]+?\-/); # only rows - - (my $v4mgmt = $switch->{mgmt_v4_addr}) =~ s/\/[0-9]{1,2}//; - (my $v6mgmt = $switch->{mgmt_v6_addr}) =~ s/\/[0-9]{1,2}//; - (my $v4gw = NetAddr::IP->new($switch->{subnet4})->first()) =~ s/\/[0-9]{1,2}//; - (my $v6gw = NetAddr::IP->new($switch->{subnet6})->first()) =~ s/\/[0-9]{1,2}//; - - my $fqdn = $switch->{sysname} . "." . $nms::config::tgname . ".gathering.org."; - my $sw_fqdn = "sw." . $fqdn; - my $gw_fqdn = "gw." . $fqdn; - - if($infra){ - # Add A and AAAA-records for the switch to the infra.tgNN.gathering.org-zone - my $sw_infra = $switch->{sysname} . ".infra." . $nms::config::tgname . ".gathering.org."; - printf ("%-24s%s\t%s\t%s\n", $switch->{sysname}, "IN", "A", $v4mgmt); - printf ("%-24s%s\t%s\t%s\n", $switch->{sysname}, "IN", "AAAA", $v6mgmt); - } else { - # A and AAAA-record to the switch - if($delete){ - print "update delete $sw_fqdn \t IN A\n"; - print "update delete $sw_fqdn \t IN AAAA\n"; - } else { - print "update add $sw_fqdn \t 3600 IN A \t $v4mgmt\n"; - print "update add $sw_fqdn \t 3600 IN AAAA \t $v6mgmt\n"; - } - print "send\n"; - - # PTR to the switch - if($delete){ - print "update delete " . Net::IP->new($v4mgmt)->reverse_ip() . " \t IN PTR\n" if $v4mgmt; - print "send\n" if $v4mgmt; - print "update delete " . Net::IP->new($v6mgmt)->reverse_ip() . " \t IN PTR\n" if $v6mgmt - } else { - print "update add " . Net::IP->new($v4mgmt)->reverse_ip() . " \t 3600 IN PTR \t $sw_fqdn\n" if $v4mgmt; - print "send\n" if $v4mgmt; - print "update add " . Net::IP->new($v6mgmt)->reverse_ip() . " \t 3600 IN PTR \t $sw_fqdn\n" if $v6mgmt; - } - print "send\n"; - - # A and AAAA-record to the gateway/router - if($delete){ - print "update delete $gw_fqdn \t IN A\n"; - print "update delete $gw_fqdn \t IN AAAA\n"; - } else { - print "update add $gw_fqdn \t 3600 IN A \t $v4gw\n" if $v4gw; - print "update add $gw_fqdn \t 3600 IN AAAA \t $v6gw\n" if $v6gw; - } - print "send\n"; - - # PTR to the gateway/router - if($delete){ - print "update delete " . Net::IP->new($v4gw)->reverse_ip() . " \t IN PTR\n" if $v4gw; - print "send\n" if $v4gw; - print "update delete " . Net::IP->new($v6gw)->reverse_ip() . " \t IN PTR\n" if $v6gw; - } else { - print "update add " . Net::IP->new($v4gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" if $v4gw; - print "send\n" if $v4gw; - print "update add " . Net::IP->new($v6gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" if $v6gw; - } - print "send\n"; - } - } -} |