#!/opt/vdops/bin/perl

# This script populates the wireless_ap and wireless_network fields of
# the 'hosts' table in Soma.  Like 'gather-ipaddr-mac-port', this script 
# creates entries in the 'hosts' table.

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

use lib '/home/soma/lib';
use FHCRC::VDOPS::Foundation;
use FHCRC::VDOPS::NetworkTools;
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();

# Find WAPs
build_waps();

# Acquire the Assigned Station table
acquire_wap_clients();

# Insert Assigned Stations
iu_wap_clients();

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