#!/bin/sh
# Script to let people inc mail into PINE using kpop.
# A mailbox location of ~/mail/inbox is hardcoded into the program.

PATH="/usr/bin:/bin:/usr/athena/bin:/bin/athena:$PATH"
export PATH

# This variable is used by pmail: it controls where your mail ends up.
POPBOX="$HOME"/mail/inbox
export POPBOX

sipbbin=`athdir /mit/sipb`
if [ $? != 0 ] ; then sipbbin="/mit/sipb/bin" ; fi
pmail="$sipbbin"/pmail
mailrc="$HOME"/.mailrc


if [ ! -r "$POPBOX" ] ; then
    echo "Creating $POPBOX" | sed "s,$HOME,~,g" 1>&2
    sleep 2				# give enough time to hit Control-C
    dir=`dirname "$POPBOX"`
    if [ ! -d "$dir" ] ; then
	mkdir "$dir"
	fs setacl "$dir" system:anyuser none
    fi
    touch "$POPBOX"
    if [ $? != 0 ] ; then
	echo "Error: Could not create $POPBOX" 1>&2
	exit 1
    fi
fi


if [ -r "$mailrc" ] ; then
	mailrcsave="$mailrc".save$$
	# Be sure to put .mailrc back on exit
	trap 'mv "$mailrcsave" "$mailrc"' 0 1 2 3 15
	# Move .mailrc aside so that pmail works the default way
	mv "$mailrc" "$mailrcsave"
	"$pmail" -N < /dev/null > /dev/null
	exit $?
else
	exec "$pmail" -N < /dev/null > /dev/null
fi
