# HG changeset patch
# User arnold
# Date 1341385468 -7200
# Node ID 58f05fab9512c5bbf9169dae26a44a04b0121870
# Parent  e9180d90ed71dfa42d033aed302dc30f7a413de7
now creates only a warning for open ports

diff -r e9180d90ed71 -r 58f05fab9512 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;