tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use NetAddr::IP and pandora_ping for network scans.

This commit is contained in:
Ramon Novoa 2015-09-10 09:08:13 +02:00
parent a52eb82d8d
commit 8b5e103d57
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pandora_server/util/recon_scripts/snmp-recon.pl
View File

@ -10,6 +10,7 @@ use lib '/usr/lib/perl5';
use POSIX qw/strftime/;
use Socket qw/inet_aton/;
use NetAddr::IP;
use PandoraFMS::Tools;
use PandoraFMS::DB;
@ -1117,15 +1118,18 @@ if (defined($ROUTER) && $ROUTER ne '') {
}
}
else {
my $np = new PandoraFMS::NmapParser;
if ($#SUBNETS >= 0) {
$np->parsescan($CONF{'nmap'}, '-nsL', @SUBNETS);
foreach my $subnet (@SUBNETS) {
my $net_addr = new NetAddr::IP ($subnet);
if (!defined($net_addr)) {
message("Invalid network: $subnet");
exit 1;
}
my @scanned_hosts = $np->get_ips();
foreach my $host (@scanned_hosts) {
my @hosts = map { (split('/', $_))[0] } $net_addr->hostenum;
foreach my $host (@hosts) {
# Skip network and broadcast addresses.
next if ($host =~ m/(\.0$)|(\.255$)/);
# Check if the device has already been visited.
next if (defined($VISITED_DEVICES{$host}));
# Check if the host is up.
next if (pandora_ping(\%CONF, $host, 1, 1) == 0);