#!/usr/bin/perl

use strict ;
use warnings ;

use File::Slurp ;

use Safelib::Dbutils ;


my $db_csv_file = shift @ARGV or die 'missing db_csv file' ;

my @col_names = qw( rec_type fld_num fld_len fld_name al3_desc ) ;
my $holders = join ',', ('?') x @col_names ;

my $dbh = Safelib::Dbutils->connect( 'LocalServer' )  ;
$dbh or die "Connect failed: $DBI::errstr";

truncate_al3_desc_rows() ;
insert_al3_desc_rows( $db_csv_file ) ;

exit ;

sub truncate_al3_desc_rows {

	eval {
		$dbh->exec_sql( <<SQL ) ;
truncate table "dbo"."al3_record_formats"
SQL
	} ;
}

sub create_al3_table {

	eval {
 		$dbh->exec_sql( <<SQL ) ;
create table "dbo"."al3_record_formats" (
id int identity(1,1),
rec_type char(4) not null,
fld_num int not null,
fld_len int not null,
fld_name varchar(80) not null default(''),
al3_desc nvarchar(80) not null default(''),
primary key (id)
)
SQL
	} ;

}

sub insert_al3_desc_rows {

	my( $db_csv_file ) = @_ ;

	my @csv_lines = read_file( $db_csv_file ) ;
	chomp @csv_lines ;

	foreach my $line ( @csv_lines ) {

		my @values = split /\|/, $line ;

		$dbh->exec_sql( <<SQL, @values ) ;
insert into dbo.al3_record_formats values( $holders )
SQL

	}
}