#!/bin/sh
# Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
# 
# Permission to use, copy, modify, and distribute this material 
# for any purpose and without fee is hereby granted, provided 
# that the above copyright notice and this permission notice 
# appear in all copies, and that the name of Bellcore not be 
# used in advertising or publicity pertaining to this 
# material without the specific, prior written permission 
# of an authorized representative of Bellcore.  BELLCORE 
# MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
# OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
# WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.

# Conversion from C shell to Bourne shell by Z-Code Software Corp.
# Conversion Copyright (c) 1992 Z-Code Software Corp.
# Permission to use, copy, modify, and distribute this material
# for any purpose and without fee is hereby granted, provided
# that the above copyright notice and this permission notice
# appear in all copies, and that the name of Z-Code Software not
# be used in advertising or publicity pertaining to this
# material without the specific, prior written permission
# of an authorized representative of Z-Code.  Z-CODE SOFTWARE
# MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY
# OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS",
# WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.

# Brought into line with metamail 2.7 beta release Csh version
#    Dave Shield	February 1994

if test -f /usr/sbin/sendmail
then
    MAILCOMMAND=/usr/sbin/sendmail
else
    MAILCOMMAND=/bin/mail
fi

if test "$#" -lt 3
then
	echo "Usage: showexternal body-file access-type name [site [directory [mode]]]"
	exit 1
fi

if [ -z "$METAMAIL_TMPDIR" ]
then
	METAMAIL_TMPDIR=/tmp
fi

if [ -n "$METAMAIL_PAGER" ]
then
	PAGER="$METAMAIL_PAGER"
fi

# Check argument integrity. Don't trust mail headers
case "$1$2$3$4$5$6$7" in
  *[\ \	]*)
	echo "Illegal white space in arguments -- possibly a mail bomb?\!"
	echo "Command was:"
	echo \'$0\' \'$1\' \'$2\' \'$3\' \'$4\' \'$5\' \'$6\' \'$7\'
	exit 2
esac
bodyfile="$1"
atype=`echo $2 | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
name="$3"

site="$4"

dir="$5"

mode="$6"

server="$7"

if test -z "$server" -a $atype = "mail-server"
then
	server=${name}@${site}
	echo "WARNING -- old style mailserver syntax, using server $server"
fi

ctype=`grep -i content-type: $bodyfile | sed -e 's/............: //'`
if test -z "$ctype"
then ctype="text/plain"
fi
cenc=`grep -i content-transfer-encoding: $bodyfile | sed -e 's/.........................: //'`
username=""
pass=""
TMPDIR=$METAMAIL_TMPDIR/XXXternal.$$
trap "cd $METAMAIL_TMPDIR/ ; rm -rf $TMPDIR" 1 2 3 7 13 15
mkdir $TMPDIR || exit 1
PUSHED_DIR=`pwd`
cd $TMPDIR
NEWNAME="mm.ext.$$"
NEEDSCONFIRMATION=1

case $atype in
	anon-ftp)
		echo "This mail message contains a POINTER (reference) to data that is "
		echo not included in the message itself.  Rather, the data can be retrieved 
		echo automatically using anonymous FTP to a site on the network. ;;
		
	ftp)
		echo "This mail message contains a POINTER (reference) to data that is "
		echo not included in the message itself.  Rather, the data can be retrieved 
		echo automatically using the FTP protocol to a site on the network. ;;

	mail-server)
		if [ -n "`type -p mktemp`" ] ; then
			TmpExtJunk=`mktemp ${METAMAIL_TMPDIR}/ext.junk.$$.XXXXXX` || exit 1
		else
			TmpExtJunk=${METAMAIL_TMPDIR}/ext.junk.$$
			rm -f $TmpExtJunk
		fi
		set -f
		cat > $TmpExtJunk <<!
This mail message contains a POINTER (reference) to data that is not
included in the message itself.  Rather, the data can be retrieved by
sending a special mail message to a mail server on the network.
However, doing this automatically is slightly dangerous, because
someone might be using this mechanism to cause YOU to send obnoxious
mail.  For that reason, the mail message that WOULD be sent is being
shown to you first for your approval.

This is the message that will be sent if you choose to go ahead and
retrieve the external data:

Subject: Automated Mail Server Request
To: $server

!
		set +f
		sed -e 1,/^\$/d < $bodyfile >> $TmpExtJunk
		if [ -n "$PAGER" ] ; then
			$PAGER $TmpExtJunk
		else
			more   $TmpExtJunk
		fi
		rm $TmpExtJunk ;;

	*)
		NEEDSCONFIRMATION=0 ;;
esac

if test $NEEDSCONFIRMATION -ne 0
then
	echo ""
	echo -n "Do you want to proceed with retrieving the external data? [y] "
	read ANS
	case "$ANS" in
		[Nn]*)	cd $METAMAIL_TMPDIR
			rm -rf $TMPDIR;
			exit 0 ;;
	esac
fi

case "$atype" in
	anon-ftp | ftp)
		case "$atype" in
		anon-ftp )
			username=anonymous
			pass=`whoami`@`hostname -f`
			;;
		esac

		if test -z "$site"
		then
			echo -n "Site for ftp access: "
			read site
		fi
		if test -z "$username"
		then
			echo -n "User name at site ${site}: "
			read username
		fi
		if test -z "$pass"
		then
			echo -n "Password for user $username at site ${site}: "
			stty -echo
			read pass
			stty echo
			echo ""
		fi
		if test -z "$dir"
		then
			DIRCMD=""
		else
			DIRCMD="cd $dir"
		fi
		if test -z "$mode"
		then
			MODECMD=""
		else
			MODECMD="type $mode"
		fi
		echo OBTAINING MESSAGE BODY USING FTP
		echo SITE: $site USER: $username
		if [ -n "`type -p mktemp`" ] ; then
			TmpFtp=`mktemp ${METAMAIL_TMPDIR}/mm.ftp.$$.XXXXXX` || exit 1
		else
			TmpFtp=${METAMAIL_TMPDIR}/mm.ftp.$$
			rm -f $TmpFtp
		fi
		set -f
		cat > $TmpFtp <<!
open $site
user $username $pass
$DIRCMD
$MODECMD
get $name $NEWNAME
quit
!
		set +f
		${FTP:-ftp} -n < $TmpFtp
		rm -f $TmpFtp
		if test ! -r "$NEWNAME"
		then
			echo FTP failed.
			cd $METAMAIL_TMPDIR
			rm -rf $TMPDIR
			exit 1
		fi
		;;

	afs|local-file)
		if test ! -r $name
		then
			echo local file not found
			cd $METAMAIL_TMPDIR
			rm -rf $TMPDIR
			exit 1
		fi
		NEWNAME=$name
		echo GETTING BODY FROM FILE NAMED: $NEWNAME ;;

	mail-server)
		if test -z "$bodyfile"
		then
			echo mail-server access-type requires a body file
			cd $METAMAIL_TMPDIR
			rm -rf $TMPDIR
			exit 1
		fi
		echo Subject: Automated Mail Server Request > $NEWNAME
		echo To: "$server" >> $NEWNAME
		echo "" >> $NEWNAME
		sed -e 1,/^\$/d < $bodyfile >> $NEWNAME
		$MAILCOMMAND -t < $NEWNAME
		if test $? -ne 0
		then
			echo sendmail failed
			cd $METAMAIL_TMPDIR
			rm -rf $TMPDIR
			exit 1
		fi
		cd $METAMAIL_TMPDIR
		rm -rf $TMPDIR
		echo Your $ctype data has been requested from a mail server.
		exit 0 ;;
	*)
		echo UNRECOGNIZED ACCESS-TYPE
		cd $METAMAIL_TMPDIR
		rm -rf $TMPDIR
		exit 1 ;;
esac

if test "$cenc" = base64
then
	mimencode -u -b < $NEWNAME > OUT
	mv OUT $NEWNAME
elif test "$cenc" = quoted-printable
then
	mimencode -u -q < $NEWNAME > OUT
	mv OUT $NEWNAME
fi

cd $PUSHED_DIR
case "$atype" in
    local-file ) metamail -b -p -c $ctype $NEWNAME ;;
    * ) metamail -b -p -c "$ctype" $TMPDIR/$NEWNAME ;;
esac

if test $? -ne 0
then
	echo metamail failed
	cd $METAMAIL_TMPDIR
	rm -rf $TMPDIR
	exit 1
fi

if test ! "$NEWNAME" = "$name"
then
	echo ""
	echo The data just displayed is stored in the file $TMPDIR/$NEWNAME
	echo "Do you want to delete it?"
	rm -i $TMPDIR/$NEWNAME
fi

if test ! -r ${TMPDIR}/${NEWNAME}
then
	cd /
	cd $METAMAIL_TMPDIR
	rmdir $TMPDIR
fi