#!/bin/rc
upasname=$1
shift
if (~ $winid '')
	err=`{echo -n Cannot find window id}
if (! test -d /mnt/acme/^$winid)
	err=`{echo -n usage: Must be run in Acme}
if (~ $upasname '')
		err=`{echo -n usage: Must set upasname}
if (! ~ $err '') {
	echo $err
	status=$err
	exit
}
if (! test -f /tmp/from.$upasname)
	echo From: $upasname >/tmp/from.$upasname
#echo `{date} >> /sys/log/mailfrom
#cat /tmp/from.$upasname /mnt/acme/$winid/body >> /sys/log/mailfrom
cat /tmp/from.$upasname /mnt/acme/$winid/body | upas/marshal -8 $*
rm /tmp/from.$upasname