#!/usr/athena/bin/perl

require 'lib.pl';

$/ = "\n\n";
$check = 0;
$* = 0;

$usage = "Usage: $0 [ -in filename ] [ -check ] database-name\n";

while ($_ = $ARGV[0], /^-/) {
    shift;
    if (/^-in$/) {
	($infile = shift) || die "Missing argument to -in.\n";
	next;
    }
    elsif (/^-check$/) {
	$check++;
	next;
    }
    else {
	die "Unknown argument $_.\n$usage";
    }
}

die $usage if (@ARGV != 1);

if ($infile) {
    open(STDIN, $infile) || die "Opening $infile: $!.\n";
}

while (<STDIN>) {
    s/^\n*//;
    s/\n*$/\n/;
    next if ($_ eq "\n");
    push(@records, $_);
}

close(STDIN);

if ($check) {
    &lopip'reformat_data(*records) || die "Data check failed.\n";
}

&lopip'write_data($ARGV[0], *records) || die "Database write failed.\n";