#!/opt/vdops/bin/perl

# This script opens an Excel spreadsheet containing wall-jack information and 
# inserts/updates it in Soma


use strict;
use warnings;

use lib '/home/somadev/lib';
use FHCRC::VDOPS::SomaCrud;
use FHCRC::VDOPS::SomaData;
use FHCRC::VDOPS::Utilities;

my $wallJacks;

# Notify operator
log_it("Beginning $0\n");
print "Beginning $0\n" if $job eq "interactive";

# Read location information
#$wallJacks = csv_to_wall_jack($wallJackFile);
$wallJacks = xls_to_wall_jack($wallJackFile, $wallJackSheet);

# Insert into Soma
iu_wall_jack($wallJacks);

# Notify operator
log_it("Ending $0\n");
print "Ending $0\n" if $job eq "interactive";