check_scan.pl
changeset 1 58f05fab9512
parent 0 e9180d90ed71
child 2 8766cde065c5
equal deleted inserted replaced
0:e9180d90ed71 1:58f05fab9512
    77 _VERSION
    77 _VERSION
    78 }
    78 }
    79 
    79 
    80 sub scan($$$) {
    80 sub scan($$$) {
    81     my ( $host, $options, $exceptions ) = @_;
    81     my ( $host, $options, $exceptions ) = @_;
    82     my @scan = grep { /^\d+\// } `nmap $options $host`;
    82     my @scan = grep { /^\d+\/.*\s+open/ } `nmap $options $host`;
    83     my @openports;
    83     my @openports;
    84     my @exceptions;
    84     my @exceptions;
    85 
    85 
    86     if ($exceptions) {
    86     if ($exceptions) {
    87         @exceptions = split( /,/, $exceptions );
    87         @exceptions = split( /,/, $exceptions );