now creates only a warning for open ports
authorarnold
Wed, 04 Jul 2012 09:04:28 +0200
changeset 1 58f05fab9512
parent 0 e9180d90ed71
child 2 8766cde065c5
now creates only a warning for open ports
check_scan.pl
--- a/check_scan.pl	Tue Jul 03 12:23:38 2012 +0200
+++ b/check_scan.pl	Wed Jul 04 09:04:28 2012 +0200
@@ -79,7 +79,7 @@
 
 sub scan($$$) {
     my ( $host, $options, $exceptions ) = @_;
-    my @scan = grep { /^\d+\// } `nmap $options $host`;
+    my @scan = grep { /^\d+\/.*\s+open/ } `nmap $options $host`;
     my @openports;
     my @exceptions;