equal
deleted
inserted
replaced
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 ); |