hfs/bulletinize-file

## bulletinize-file
#!/usr/bin/perl -wp
#
# Script to wrap one bulletin in a minimal WMO message structure
#
# Usage:
#     bulletinize-file infile > outfile
# or
#     bulletinize-file < infile > outfile
BEGIN {
	print "\x01\x0D\x0D\n";
}
s/\x0D?\n/\x0D\x0D\n/;
END {
	print "\x0D\x0D\n\x03";
}
	#!/usr/bin/perl -wp
	#
	# Script to wrap one bulletin in a minimal WMO message structure
	#
	# Usage:
	# bulletinize-file infile > outfile
	# or
	# bulletinize-file < infile > outfile
	BEGIN {
	print "\x01\x0D\x0D\n";
	}
	s/\x0D?\n/\x0D\x0D\n/;
	END {
	print "\x0D\x0D\n\x03";
	}