From 4f6f935008acc0acbd43ccc134aa9845d34a2317 Mon Sep 17 00:00:00 2001 From: Kristian Lyngstol Date: Mon, 29 Feb 2016 19:09:34 +0000 Subject: nms: Adjust switches_add.pl It now accepts an array of switches, and the output of add_switches.txt.pl can be used directly as input, ignoring duplicates. Still not done. Need placements etc. --- web/nms.gathering.org/switches_add.pl | 37 ++++++++++++++++++++++++----------- 1 file changed, 26 insertions(+), 11 deletions(-) (limited to 'web/nms.gathering.org') diff --git a/web/nms.gathering.org/switches_add.pl b/web/nms.gathering.org/switches_add.pl index 06edf66..fe23049 100755 --- a/web/nms.gathering.org/switches_add.pl +++ b/web/nms.gathering.org/switches_add.pl @@ -14,16 +14,31 @@ use Data::Dumper; $nms::web::cc{'max-age'} = "0"; my $in = get_input(); -my %tmp = %{JSON::XS::decode_json($in)}; - -my $query = "INSERT INTO SWITCHES (ip, sysname, switchtype) VALUES('" - . $tmp{'mgtmt4'} . "','" - . $tmp{'name'} . "','ex2200');"; - -$json{'sql'} = $query; - -my $q = $nms::web::dbh->prepare($query); -$q->execute() || die "foo"; - +my @tmp = @{JSON::XS::decode_json($in)}; + +my @added; +my @dups; + +my $sth = $nms::web::dbh->prepare("SELECT sysname FROM switches WHERE sysname=?"); +my $insert = $nms::web::dbh->prepare("INSERT INTO SWITCHES (ip, sysname, switchtype) VALUES(?,?,'ex2200');"); + +foreach my $tmp2 (@tmp) { + my %switch = %{$tmp2}; + my $affected = 0; + + $sth->execute( $switch{'sysname'}); + while ( my @row = $sth->fetchrow_array ) { + $affected += 1; + } + + if ($affected == 0) { + $insert->execute($switch{'mgtmt4'}, $switch{'sysname'}); + push @added, $switch{'sysname'}; + } else { + push @dups, $switch{'sysname'}; + } +} +$json{'switches_addded'} = \@added; +$json{'switches_duplicate'} = \@dups; finalize_output(); -- cgit v1.2.3