-#!/bin/csh -f
+#!/bin/sh -
+#
+# $Id: tm-au,v 3.4 1996/12/27 20:14:12 morioka Exp $
+#
-switch( $4 )
-case "play":
- set filename = /dev/audio
- breaksw
-case "extract":
- if( $5 == "" ) then
- set filename = "/tmp/mime$$.au"
- else
- set filename = "/tmp/$5"
- endif
- breaksw
-default:
- exit -1
-endsw
+if [ "$TM_TMP_DIR" = "" ]; then
+ TM_TMP_DIR=/tmp
+ export TM_TMP_DIR
+fi
-echo "$2; $3 -> $filename"
+if [ "$5" = "" ]; then
+ filename="$TM_TMP_DIR/mime$$.au"
+else
+ filename="$TM_TMP_DIR/$5"
+fi
-switch( $3 )
-case "7bit":
-case "8bit":
-case "binary":
- /bin/cp $1 $filename
- breaksw
-case "base64":
- decode-b < $1 > $filename
- breaksw
-case "quoted-printable":
- mmencode -q -u $1 > $filename
- breaksw
-default:
- echo "unknown encoding"
- exit -1
-endsw
-/bin/rm $1
+case "$4" in
+"play")
+ echo "$2; $3 ->"
+ tmdecode $3 $1 $filename
+ if [ "$AUDIOSERVER" = "" ]; then
+ if [ `uname` = "IRIX" ]; then
+ sfplay $filename
+ else
+ cat $filename > /dev/audio
+ fi
+ else
+ autool -v 40 $filename
+ fi
+ trap 'rm -f $filename' 0 1 2 3 13 15
+ ;;
+"extract")
+ echo "$2; $3 -> $filename"
+ echo "extract to $filename"
+ tmdecode $3 $1 $filename
+ ;;
+esac