#!/bin/bash
fname=message`date +%y%d`$$
cat - >$fname
perl -e 'do {$i=<>} while (substr($i,0,1) ne "\n"); while (<>) {print $_;} '<$fname >$fname.txt
/usr/bin/gpg -r security@armonica.csvd.census.gov --armor -e $fname.txt
/usr/sbin/sendmail security@os3.csvd.census.gov </root/$fname.txt.asc
rm -f $fname messages/$fname
rm -f $fname.txt.asc messages/$fname.asc
rm -f $fname.txt
