lib/PXElator/nmap.pm

package nmap;

use warnings;
use strict;

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

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' ],
        );

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

        my $count = 0;

        my $port_name = {
                16992 => 'amt',
                4445  => 'asterisk',
                7777  => 'pxelator',
        };

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