source: fierce2/trunk/lib/Fierce/Iprange/NmapPingScan.pm @ 6

package NmapPingScan;
{
    use Object::InsideOut;
    use Nmap::Parser;

    # execute: Iprange -> Output(Array)
    # find all the IPs that respond to ping 
    sub execute {
        my ($self, $iprange_obj) = @_;

        my $iprange = $iprange_obj->iprange;
        my $np  = Nmap::Parser->new;
        my $nmap_path = "nmap";
        my $args = "-sP";
        my @data;
        
        $np->parsescan( $nmap_path, $args, @$iprange );
        for my $host ( $np->get_ips('up') ) {
            push(@data,$host);
        }

        return \@data;
    }
    
    # run_normal_output: Iprange -> Output(Array)
    # find all the IPs that respond to ping and returns normal Output
    sub run_normal_output {
        my ($self, $iprange_obj) = @_;
        my $data = $self->execute($iprange_obj);
        my @output;
       
        push(@output, "\nTrying to find IPs that respond to ping...\n");
        if ( @$data )  {
            foreach my $item (@$data) {
                my ($host) = $item;
                push(@output,"\t$host\n");
            }
        }

        return @output;
    }
 
}

1;