--- 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;