#perl -w
# preprocess-AddDB_IDField.pl
# Perl script to add a new derived field, DB_ID, to the "text" files
# n6lhv@arrl.net (Wayne Smith)
# created:  26-December-2004
# updated:  17-January-2005

# Set up the environment
use strict;

# Initialize some variables
my $ulsFile = "";
my $oneRecord = "";
my $thisLine = "";
my $firstLine = "";
my $secondLine = "";
my $firstRecordFlag = "Yes";
my $firstLineFlag = "Yes";
my @allLines = "";
my $maxLines = 0;
my $oneLine = "";

# Fix a single text file
sub main {
  # Open the text file
  open (ulsFile, "<" . $ARGV[0] . ".dat")
   or die "Cannot open file '" . $ARGV[0] . ".dat' for reading...";
    
  open (ulsFileNew, ">" . $ARGV[0] . "-new" . ".dat")
   or die "Cannot open file '" . $ARGV[0] . "-new" . ".dat for writing...";
    
  # Generate a WorkBook using the command-line parameter
#  writeAWorkBook ($ARGV[0]);

#  print "Reading the original file...\n";
#  @allLines = <ulsFile>;
#  $maxLines = @allLines;

#  print "Writing a new file...\n";
#  foreach $oneLine (@allLines) {
#    chomp($oneLine);
#    print ulsFileNew "$oneLine" . "|" . substr($ARGV[0],0,length($ARGV[0])-3) . "\n";
#  }

  print "Transforming the original file...\n";
  $oneLine = <ulsFile>;
  while ($oneLine) {
    chomp($oneLine);
    print ulsFileNew "$oneLine" . "|" . substr($ARGV[0],0,length($ARGV[0])-3) . "\n";
    $oneLine = <ulsFile>;
  }

  # Close the text files
  close(ulsFileNew);

  close(ulsFile);
}


# Main
main;