#!/usr/local/bin/perl -pi
# UPLOAD -- Update selected loadfile keywords

BEGIN {
    %change = (
	OPUS_FLAG => 'y',
	CHANGE_LEVEL => 'severe',
	PEDIGREE => 'INFLIGHT',
	COMMENT => 'delivery of all non-fits synphot data, converting to fits',
	      );
}

$line = $_;
chomp ($line);

($name, $value) = split (/\s*=\s*/, $line, 2);

$_ = "$name = $change{$name}\n" if ! $value && $change{$name};