|
4
|
1 #!/bin/sh -
|
|
|
2 #
|
|
70
|
3 # $Id: tm-au,v 1.1.1.1 1996/12/18 22:42:33 steve Exp $
|
|
4
|
4 #
|
|
14
|
5
|
|
4
|
6 if [ "$TM_TMP_DIR" = "" ]; then
|
|
|
7 TM_TMP_DIR=/tmp
|
|
|
8 export TM_TMP_DIR
|
|
|
9 fi
|
|
|
10
|
|
|
11 if [ "$5" = "" ]; then
|
|
|
12 filename="$TM_TMP_DIR/mime$$.au"
|
|
|
13 else
|
|
|
14 filename="$TM_TMP_DIR/$5"
|
|
|
15 fi
|
|
|
16
|
|
|
17
|
|
|
18 case "$4" in
|
|
|
19 "play")
|
|
|
20 echo "$2; $3 ->"
|
|
|
21 if [ "$AUDIOSERVER" = "" ]; then
|
|
70
|
22 if [ `uname` = "IRIX" ]; then
|
|
|
23 tmdecode $3 $1 $filename
|
|
|
24 sfplay $filename
|
|
|
25 trap 'rm -f $filename' 0 1 2 3 13 15
|
|
|
26 else
|
|
|
27 tmdecode $3 $1 /dev/audio
|
|
|
28 fi
|
|
4
|
29 else
|
|
70
|
30 tmdecode $3 $1 $filename
|
|
|
31 autool -v 40 $filename
|
|
|
32 trap 'rm -f $filename' 0 1 2 3 13 15
|
|
4
|
33 fi
|
|
|
34 ;;
|
|
|
35 "extract")
|
|
|
36 echo "$2; $3 -> $filename"
|
|
|
37 echo "extract to $filename"
|
|
|
38 tmdecode $3 $1 $filename
|
|
|
39 ;;
|
|
|
40 esac
|
