From ae62c9e403b0fe45403c69fc2df8e66a6774f3ad Mon Sep 17 00:00:00 2001
From: yinle <yinle@cn.ibm.com>
Date: Tue, 28 Jan 2014 13:32:46 -0800
Subject: [PATCH] Add range check and message to nmap

---
 perl-xCAT/xCAT/SLP.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-xCAT/xCAT/SLP.pm b/perl-xCAT/xCAT/SLP.pm
index e1ebae53b..da50dd226 100755
--- a/perl-xCAT/xCAT/SLP.pm
+++ b/perl-xCAT/xCAT/SLP.pm
@@ -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)) {