arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add range check and message to nmap

Browse Source
This commit is contained in:
yinle 2014-01-28 13:38:39 -08:00
parent b7ec6919e9
commit 5e686b1a45
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl-xCAT/xCAT/SLP.pm
View File

@ -110,6 +110,12 @@ sub dodiscover {
my @servernodes;
my @iprange = split /,/, $ipranges;
foreach my $range (@iprange) {
send_message($args{reqcallback}, 0, "Processing range $range...");
if ($range =~/\/(\d+)/){
if ($1 > 16) {
send_message($args{reqcallback}, 0, "The rarge is too large and may be time consuming. Broadcast is recommended.");
}
}
`/usr/bin/nmap $range -sn -PE -n --send-ip -T5 `;
my $nmapres = `/usr/bin/nmap $range -PE -p 427 -n --send-ip -T5 `;
foreach my $line (split(/\n\n/,$nmapres)) {
@ -233,7 +239,7 @@ sub dodiscover {
close PWRITE;
if (@servernodes) {
my $miss = join(",", @servernodes);
send_message($args{reqcallback}, 0, "Warning: can't got attributes from these nodes' replies: $miss. Please re-send unicast to these nodes.") if ($args{reqcallback});
send_message($args{reqcallback}, 0, "Warning: can't get attributes from these nodes' replies: $miss. Please re-send unicast to these nodes.") if ($args{reqcallback});
}
}# end of parent process
} else {