#! /usr/local/bin/perl

# replace local distribution line with na in botched articles

while (<>) {
	next if ( /^Message-ID:/ );
	next if ( /^Sender:/ );
	next if ( /^Date:/ );
	next if ( /^Newsgroups:/ );
	if (/^Path: alembic!(.*)/) {
		print "Path: $1\n";
		print "Newsgroups: alt.personals\n";
		next;
	}
	if (/^Distribution: local$/) {
		print "Distribution: na\n";
		next;
	}
	print $_;
}
exit(0);
