ATTACHMENT=$1
FNATT=`basename "$ATTACHMENT"`
EMAIL=admin@foo.com
HOSTNAME=`hostname`
uuencode "$FNATT" "$ATTACHMENT" | mailx -s "$HOSTNAME $FNATT" $EMAIL

##</code><code>##

fbrm@monastery:~/CODE/PERL/$ cat perl-mon/local/bin/emailto.sh
EMAILTO=$1
SUBJECT=$2
MSG=$3
FILE=${4:-""}

if [ -z "$EMAILTO" ] || [ -z "$SUBJECT" ] || [ -z "$MSG" ];then
        echo "$0 bad params."
        exit -1;
fi

#echo "EMAILTO=$EMAILTO"
#echo "SUBJECT=$SUBJECT"
#echo "MSG=$MSG"

MAILX=""
if [ -x "/usr/bin/mailx" ];then
        MAILX="/usr/bin/mailx"
elif [ -x "/usr/bin/mail" ];then
        MAILX="/usr/bin/mail"
fi

if [ ! -z "$MAILX" ];then
        if [  -z "$FILE" ];then
                #echo "$MSG  $MAILX -s $SUBJECT $EMAILTO"
                echo "$MSG" | $MAILX -s "$SUBJECT" "$EMAILTO"
        else
                FN=`basename "$FILE"`
                $(echo "$MSG\n" ; uuencode "$FILE" "$FN") | mailx -s "$SUBJECT" "$EMAILTO"
        fi
elif [ -x "/usr/bin/sendmail" ];then
        HOSTNAME=`hostname`
        if [ "$FILE" == "" ];then
                (
                  echo To: "$EMAILTO"
                  echo From: perlmon@$HOSTNAME
                #  echo "Content-Type: text/html; "
                  echo Subject: "$SUBJECT"
                  echo
                  echo "$MSG\n"
                #  cat tmp.html
                ) | sendmail -t
        else
                (
                  echo To: "$EMAILTO"
                  echo From: perlmon@$HOSTNAME
                #  echo "Content-Type: text/html; "
                  echo Subject: "$SUBJECT"
                  echo
                  echo "$MSG\n"
                  cat "$FILE"
                ) | sendmail -t
        fi
fi