#!/opt/vdops/bin/perl

# This script walks the network, using nmap to guess OS names and inserting
# them into Soma 

# Load modules
use strict;
use warnings;
use Perl6::Say;

use lib '/home/soma/lib';
use FHCRC::VDOPS::Foundation;
use FHCRC::VDOPS::IPSpace;
use FHCRC::VDOPS::ScanTools;
use FHCRC::VDOPS::SomaCrud;
use FHCRC::VDOPS::SomaData;
use FHCRC::VDOPS::Utilities;

# Threads and debugs
$debug = 0;
$thrMode = 0; 

# Notify operator
log_it("Beginning $0");
say "Beginning $0" if $job eq 'interactive';

# Construct a foundation
foundation();

# Run nmap
walk_route_table(\&gather_nmap_os_guess, "gather_nmap_os_guess", $processNmapTimeout, \%nmapExcludeRoute);

## Insert organizations
iu_organizations(\%osVendor);

# Insert operating systems
iu_operating_systems(\%osName);

# Insert os versions
iu_os_versions(\%osVersion);

# Insert osver in hosts
iu_hosts_osver(\%osVersion);

# Notify operator
log_it("Ending $0");
say "Ending $0" if $job eq 'interactive';