#!/usr/bin/perl -w
use strict;
use warnings;
use XML::Simple;
my $xml = do {local $/='';'network.xml'} ;
my $servers = XMLin($xml, ForceArray => 1);
my %seen;
foreach my $server (@{$servers->{server}}) {
my $brlist;
my $corebrip;
my $brmask;
my $brip;
my $num;
my $brlan;
my @node = $server->{NodeName__1} . "\n";
my $lanip = $server->{CoreLanIP_1__1} ;
my @mask = $server->{CoreLanNetmask_1} . "\n";
my $network = join("/", $lanip, @mask);
$network =~ s/.[0-9]*\//.0\//g;
push(my @networklist, $network) if ! $seen{$network}++;
$brlan = $server->{BRLAN} ;
if ( $brlan eq "y" ) {
$brip = $server->{BR_IP};
$num = $server->{CoreLanNum} ."\n" ;
}
my @brnwlist;
for my $n (1..$num){
$corebrip = $server->{'CoreLanIP_'.$n.'__1'} ;
$brmask = $server->{'CoreLanNetmask_'.$n} ."\n";
}
if ( $corebrip eq $brip ){
$brlist = join ("/", $brip, $brmask) ;
$brlist =~ s/.[0-9]*\//.0\//g;
push( @brnwlist, $brlist) unless $seen{$brlist}++;
}
else {
print "coreip doesnot matches brip\n";
}
} for $a (@brnwlist) {
if ( $a ne "") {
print "empty array";
my $vnum = $server->{CoreVlanNum} ."\n" ;
for my $i (1..$vnum){
my $vlanip = $server->{'CoreVlan_IP_'.$i} ;
my $vmask = $server->{'CoreVlan_Netmask_'.$i} ."\n";
if ($vlanip eq $brip){
my $vlist = join ("/", $brip, $vmask) ;
$vlist =~ s/.[0-9]*\//.0\//g;
push(my @vnwlist, $vlist) if ! $seen{$vlist}++;
print @vnwlist;
}
}
}
}
}
####
Use of uninitialized value $brip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in join or string at nfs_security.pl line 50.
Use of uninitialized value $brmask in join or string at nfs_security.pl line 50.
Use of uninitialized value $num in foreach loop entry at nfs_security.pl line 44.
Use of uninitialized value $corebrip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in join or string at nfs_security.pl line 50.
Use of uninitialized value $brmask in join or string at nfs_security.pl line 50.
Use of uninitialized value $num in foreach loop entry at nfs_security.pl line 44.
Use of uninitialized value $corebrip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in join or string at nfs_security.pl line 50.
Use of uninitialized value $brmask in join or string at nfs_security.pl line 50.
Use of uninitialized value $num in foreach loop entry at nfs_security.pl line 44.
Use of uninitialized value $corebrip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in join or string at nfs_security.pl line 50.
Use of uninitialized value $brmask in join or string at nfs_security.pl line 50.
Use of uninitialized value $num in foreach loop entry at nfs_security.pl line 44.
Use of uninitialized value $corebrip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in string eq at nfs_security.pl line 48.
Use of uninitialized value $brip in join or string at nfs_security.pl line 50.
Use of uninitialized value $brmask in join or string at nfs_security.pl line 50.
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
coreip doesnot matches brip
####