#!/opt/gnu/bin/perl -i.OLD
# Set OPUS flag and change level if blank
# Put something non-blank in header comment
     
$section = 'HEADER' ;
while (<>) {
    if (! /^#/) {
	($name, $keytype, $rest) = split (' ', $_, 3);

        $_ = "CHANGE_LEVEL = SEVERE\n"
            if $name eq 'CHANGE_LEVEL' && $rest eq '';

        $_ = "OPUS_FLAG = Y\n"
            if $name eq 'OPUS_FLAG' && $rest eq '';

        $_ = "COMMENT = No comment supplied\n"
            if $name eq 'COMMENT' && $rest eq '' && $section eq 'HEADER' ;

        $_ = "USEAFTER_DATE = Jan 1 1990\n"
            if $name eq 'USEAFTER_DATE' && $rest eq '';

        $_ = "PEDIGREE = DUMMY\n"
            if $name eq 'PEDIGREE' && $rest eq '';
	$section = 'ROW' if $name eq 'ENDHEADER';
        $section = 'HEADER' if $name eq 'ENDFILE'
    }

    print;
}