lib/PXElator/nmap.pm

package nmap;

use warnings;
use strict;

use XML::Simple;
use Data::Dump qw/dump/;
use CouchDB;

use client;

sub scan {
        my $what = shift;

        my $path = $what;
        $path =~ s{[^\w\d\.]+}{_}g;
        $path = "/tmp/nmap.$path";

        warn "# scan $what";

        unlink $path if -f $path;

        system("nmap -O -oX $path $what");

        my $nmap = XMLin(
                "$path",
                KeyAttr => { address => 'addrtype' },
                ForceArray => [ 'host', 'address', 'osmatch', 'port' ],
        );

        CouchDB::audit( $what, $nmap );

        my $count = 0;

        while ( my $host = shift @{ $nmap->{host} } ) {

                warn '# host ',dump( $host );

                my $ip  = $host->{address}->{ipv4}->{addr} || die "ipv4";

                if ( my $mac = $host->{address}->{mac}->{addr} ) {
                        print "$ip\t$mac\n";
                        client::save_ip_mac( $ip, $mac );
                }

                if ( my $os = $host->{os}->{osmatch}->[0]->{name} ) {
                        client::conf( $ip, 'os' => $os );
                }

                my @ports = map { [ $_->{portid}, $_->{protocol}, $_->{service}->{name} ] } @{ $host->{ports}->{port} };
                client::conf( $ip, 'ports' => join("\n", map { join("\t", @$_) } @ports) ) if @ports;

                $count++;
        }

        warn "# finish $count hosts";

        return $count;
}

1;
1	dpavlin	311	package nmap;
2
3			use warnings;
4			use strict;
5
6			use XML::Simple;
7			use Data::Dump qw/dump/;
8	dpavlin	337	use CouchDB;
9	dpavlin	311
10			use client;
11
12			sub scan {
13			my $what = shift;
14
15			my $path = $what;
16			$path =~ s{[^\w\d\.]+}{_}g;
17	dpavlin	337	$path = "/tmp/nmap.$path";
18	dpavlin	311
19			warn "# scan $what";
20
21	dpavlin	337	unlink $path if -f $path;
22	dpavlin	311
23	dpavlin	337	system("nmap -O -oX $path $what");
24
25	dpavlin	311	my $nmap = XMLin(
26	dpavlin	337	"$path",
27	dpavlin	311	KeyAttr => { address => 'addrtype' },
28	dpavlin	337	ForceArray => [ 'host', 'address', 'osmatch', 'port' ],
29	dpavlin	311	);
30
31	dpavlin	337	CouchDB::audit( $what, $nmap );
32
33	dpavlin	311	my $count = 0;
34
35	dpavlin	337	while ( my $host = shift @{ $nmap->{host} } ) {
36	dpavlin	311
37	dpavlin	337	warn '# host ',dump( $host );
38	dpavlin	311
39			my $ip = $host->{address}->{ipv4}->{addr} \|\| die "ipv4";
40
41	dpavlin	337	if ( my $mac = $host->{address}->{mac}->{addr} ) {
42			print "$ip\t$mac\n";
43			client::save_ip_mac( $ip, $mac );
44			}
45	dpavlin	311
46			if ( my $os = $host->{os}->{osmatch}->[0]->{name} ) {
47			client::conf( $ip, 'os' => $os );
48			}
49
50	dpavlin	337	my @ports = map { [ $_->{portid}, $_->{protocol}, $_->{service}->{name} ] } @{ $host->{ports}->{port} };
51			client::conf( $ip, 'ports' => join("\n", map { join("\t", @$_) } @ports) ) if @ports;
52	dpavlin	311
53			$count++;
54			}
55
56			warn "# finish $count hosts";
57
58			return $count;
59			}
60
61			1;