the old war horse, revisited.

Notes:
obsoleted by go(ne).fishing.

Reference: /n/sources/patch/sorry/vacation
Date: Thu Jul 10 22:05:45 CES 2008
Signed-off-by: quanstro@quanstro.net
Reviewed-by: geoff

--- /mail/lib/vacation	Thu Jan  1 00:00:00 1970
+++ /mail/lib/vacation	Sun Jul 13 22:43:28 2008
@@ -0,0 +1,50 @@
+#!/bin/rc
+# vacation - notify sender that recipient is away
+rfork en
+ramfs
+
+USER=`{echo $1 | sed 's/local!//;s/[+\-].*//'}
+DOM=coraid.com			# TODO
+cd /mail/box/$USER
+RECIP=$1
+MBOX=$2
+
+fn log {
+	if(~ $#USER 1)
+		echo `{date} $* >>/mail/box/$USER/_log >[2]/dev/null
+}
+
+fn spooltag {
+	if(~ $#* 0)
+		_mbox=$MBOX
+	if not {
+		_mbox=$1
+		shift
+	}
+	if(~ $#* 0)
+		tag=''
+	if not
+		tag=' '^$"*
+	{
+		sed 's/^[Ss][Uu][Bb][Jj][Ee][Cc][Tt]:/&'^$tag^':/' $D/rawheader
+		if(! grep -si '^subject:' $D/rawheader)
+			echo 'Subject: '^$tag
+		echo
+		cat $D/rawbody
+	} | upas/deliver $RECIP $D/from $_mbox || exit $status
+}
+
+# upas/qfrom >/tmp/msg
+cat >/tmp/msg
+upas/fs -pf /tmp/msg || exit $status
+D=/mail/fs/mbox/1
+S=`{awk '{print $2}'< $D/unixheader}
+
+if(! test -f vacmsg)
+	spooltag
+if not if(! ~ $S $USER $USER@$DOM) {
+	spooltag mbox VACATION
+	upas/marshal -a $D/raw -R $D/raw $S <vacmsg
+}
+if not
+	spooltag
--- /sys/man/8/vacation	Thu Jan  1 00:00:00 1970
+++ /sys/man/8/vacation	Sun Jul 13 22:41:00 2008
@@ -0,0 +1,26 @@
+.TH VACATION 8
+.SH NAME
+vacation \- vacation notification
+.SH SYNOPSIS
+.B ". /mail/lib/vacation"
+.br
+.BI /mail/box/ user /vacmsg
+.SH DESCRIPTION
+Vacation is sourced from a user's
+.BI /mail/box/ user /pipeto
+file.
+When new mail is received and
+.BI /mail/box/ user /vacmsg
+exists,
+.I vacation
+sends the contents of
+.BI /mail/box/ user /vacmsg
+to the sender and saves a copy in
+.BI /mail/box/ user /mbox .
+The word ``VACATION'' is prepended to the subject line.
+.SH SEE ALSO
+.IR marshal (1),
+.IR upasfs (4)
+.SH BUGS
+Should this be integrated with
+.BR pipeto.lib ?