From 5e47027761aae86e24a840cf303e0189cd0853e2 Mon Sep 17 00:00:00 2001 From: Kristian Lyngstol Date: Mon, 21 Mar 2016 11:12:33 +0100 Subject: NMS: Fetch all mibs --- tools/get_mibs.sh | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'tools') diff --git a/tools/get_mibs.sh b/tools/get_mibs.sh index cab9fa3..7c8cc52 100755 --- a/tools/get_mibs.sh +++ b/tools/get_mibs.sh @@ -1,6 +1,5 @@ #!/bin/sh -MIBS="SNMPv2 ENTITY IF LLDP IP IP-FORWARD" ORIGPWD=$PWD TMP=$(mktemp -d) set -x @@ -10,9 +9,7 @@ wget ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz tar xvzf v2.tar.gz --strip-components=2 mkdir -p mibs -for a in $MIBS; do - cp v2/$a-MIB.my mibs/ -done +cp v2/* mibs/ mv mibs ${ORIGPWD}/ cd ${ORIGPWD} rm -rf ${TMP} -- cgit v1.2.3 From 5eb46cf78c1d3f875fb95b20f80b7e859ca67219 Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Wed, 23 Mar 2016 04:08:57 +0100 Subject: Updated to use NMS API. --- tools/generate-rowdns.pl | 134 +++++++++++++++++++++++++---------------------- 1 file changed, 72 insertions(+), 62 deletions(-) (limited to 'tools') diff --git a/tools/generate-rowdns.pl b/tools/generate-rowdns.pl index 1cc2b8d..075cae0 100755 --- a/tools/generate-rowdns.pl +++ b/tools/generate-rowdns.pl @@ -5,6 +5,10 @@ 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; @@ -18,75 +22,81 @@ if (@ARGV > 0) { } # Use this to generate nsupdate for all edge switches -# Expects joined input from switches.txt and patchlist.txt -## paste -d' ' switches.txt <(cut -d' ' -f3- patchlist.txt) > working-area/switches-patchlist.txt -print "server $nms::config::pri_v4\n"; +# fetch PI API content +sub get_url{ + my $url = shift; -while (){ - # e73-4 151.216.160.64/26 2a02:ed02:160b::/64 151.216.181.141/26 2a02:ed02:181c::141/64 1734 distro6 @ports - my ( $swname, $client_v4, $client_v6, $sw_v4, $sw_v6, $vlan, $distro, @ports ) = split; - - (my $v4gw = NetAddr::IP->new($client_v4)->first()) =~ s/\/[0-9]{1,2}//; - (my $v6gw = NetAddr::IP->new($client_v6)->first()) =~ s/\/[0-9]{1,2}//; + $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::nmsapi_user, $nms::config::nmsapi_pass); + + return $ua->request($req)->content(); +} + +my $json_obj = new JSON; +my $json_content = get_url($nms::config::nmsapi_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); - (my $v4mgmt = $sw_v4) =~ s/\/[0-9]{1,2}//; - (my $v6mgmt = $sw_v6) =~ s/\/[0-9]{1,2}//; + print "server $nms::config::pri_v4\n"; - my $fqdn = $swname . "." . $nms::config::tgname . ".gathering.org."; - my $sw_fqdn = "sw." . $fqdn; - my $gw_fqdn = "gw." . $fqdn; - my $text_info = $distro . ", vlan $vlan, " . join(' + ', @ports); + 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; - # 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"; + # 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"; - print "update delete " . Net::IP->new($v6mgmt)->reverse_ip() . " \t IN PTR\n"; - } else { - print "update add " . Net::IP->new($v4mgmt)->reverse_ip() . " \t 3600 IN PTR \t $sw_fqdn\n"; - print "send\n"; - print "update add " . Net::IP->new($v6mgmt)->reverse_ip() . " \t 3600 IN PTR \t $sw_fqdn\n"; - } - print "send\n"; - # TXT-record with details - if($delete){ - print "update delete $sw_fqdn \t IN TXT\n"; - } else { - print "update add $sw_fqdn \t 3600 IN TXT \t \"" . $text_info . "\"\n"; - } - 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"; - print "update add $gw_fqdn \t 3600 IN AAAA \t $v6gw\n"; - } - print "send\n"; - - # PTR to the gateway/router - if($delete){ - print "update delete " . Net::IP->new($v4gw)->reverse_ip() . " \t IN PTR\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"; - print "update delete " . Net::IP->new($v6gw)->reverse_ip() . " \t IN PTR\n"; - } else { - print "update add " . Net::IP->new($v4gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\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"; - print "update add " . Net::IP->new($v6gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\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"; } - print "send\n"; -} +} \ No newline at end of file -- cgit v1.2.3 From 519bae0f07f38bd82257c61a924085f64ad360cc Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Fri, 25 Mar 2016 15:23:08 +0100 Subject: Moved old, unused files. --- tools/make-accesspoints.pl | 24 ------------------------ tools/make-switches.pl | 36 ------------------------------------ 2 files changed, 60 deletions(-) delete mode 100755 tools/make-accesspoints.pl delete mode 100755 tools/make-switches.pl (limited to 'tools') diff --git a/tools/make-accesspoints.pl b/tools/make-accesspoints.pl deleted file mode 100755 index b84321a..0000000 --- a/tools/make-accesspoints.pl +++ /dev/null @@ -1,24 +0,0 @@ -#! /usr/bin/perl -use strict; -use warnings; - -while (<>) { - my @arr = split " "; - my $ap = 'ap-'.$arr[0]; - my $core = $arr[1]; - # Trekk fra 1 - $core =~ s/^(distro)(\d+)$/$1.($2-1)/e; - - # Fjerde kabel er aksesspunkt - my $blade; - my $port; - if ($arr[5] =~ /^Gi(\d+)\/(\d+)$/) { - $blade = $1; - $port = $2; - } else { - die "Unknown port: ".$arr[5]; - } - printf "INSERT INTO switches(ip, sysname, switchtype) values(inet '127.0.0.1', '%s', 'ciscoap');\n", $ap; - printf "INSERT INTO uplinks SELECT (SELECT switch FROM switches WHERE sysname = '%s') AS switch, (SELECT switch FROM switches WHERE sysname = '%s') AS coreswitch, %d AS blade, %d AS port;\n", $ap, $core, $blade, $port; - printf "INSERT INTO ap_poll(switch) SELECT switch FROM switches WHERE sysname = '%s';\n", $ap; -} diff --git a/tools/make-switches.pl b/tools/make-switches.pl deleted file mode 100755 index c0c842a..0000000 --- a/tools/make-switches.pl +++ /dev/null @@ -1,36 +0,0 @@ -#! /usr/bin/perl - -use strict; -use warnings; - -my $switchtype = "ex2200"; - -print "begin;\n"; -print "delete from temppoll;\n"; -print "delete from dhcp;\n"; -print "delete from switches where switchtype = '$switchtype';\n"; -#print "SELECT pg_catalog.setval('switches_switch_seq', 1, false);\n"; -print "SELECT pg_catalog.setval('polls_poll_seq', 1, false);\n"; - -my %ip; -my $i = 1; -while () { - chomp; - my @info = split(/ /); - - if (scalar @info < 5) { - die "Unknown line: $_"; - } - - my $name = $info[0]; - my $range = $info[1]; - my $ip = $info[3]; - $ip =~ s/\/.*$//; - - - print "insert into switches (ip, sysname, switchtype) values ('$ip', '$name', '$switchtype');\n"; - print "insert into dhcp select switch, '$range' from switches where sysname = '$name';\n"; -} -close HOSTS; - -print "end;\n"; -- cgit v1.2.3