eval 'exec perl -S -w  $0 ${1+"$@"}'  # -*- Mode: perl -*-
        if 0; # changeStCmd.pl

use strict;


#############################################################
#
#       Makes a db file conform to standard format
#       Makes a copy of the original file, *.orig 
#
#       jfm 08/07/02
#
#############################################################

my $usage = "Usage: $0 dbfile\n";
my $old   = $ARGV[0];
my $new   = "$old.temp";


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

open (OLD, "< $old")   or die "Can't open $old";
open (NEW, "> $new")   or die "Can't open $new";

while(<OLD>) {
    if( m/record\(.*,/g ) {             # look for record name
        if( !m/\s?".*"\s?/ ) {          # is the record name missing "s ?
            #print("NO quotes - $_");
            s/(record\(.*,\s*)/$1"/;    # find 'record(*,' and add "
            s/(\s*\)(?=\s*{|\s*$))/"$1/x;  # find ')' followed by { or \n
                                        # and add " 
            #print $_;
        } else {
            #print("quotes - $_");
        }  
    }
    print NEW $_;
}



close (OLD)                or die "Can't close $old";
close (NEW)                or die "Can't close $new";
#unlink ($old) or die "Can't remove $new";
rename ($old, "$old.orig") or die "Can't rename $old to $old.orig";  
rename ($new, $old)        or die "Can't rename $new to $old";