|
4
|
1 #!/bin/sh -
|
|
|
2 #
|
|
76
|
3 # $Id: tm-au,v 1.2 1996/12/28 21:02:51 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 ->"
|
|
76
|
21 tmdecode $3 $1 $filename
|
|
4
|
22 if [ "$AUDIOSERVER" = "" ]; then
|
|
70
|
23 if [ `uname` = "IRIX" ]; then
|
|
|
24 sfplay $filename
|
|
|
25 else
|
|
76
|
26 cat $filename > /dev/audio
|
|
70
|
27 fi
|
|
4
|
28 else
|
|
70
|
29 autool -v 40 $filename
|
|
4
|
30 fi
|
|
76
|
31 trap 'rm -f $filename' 0 1 2 3 13 15
|
|
4
|
32 ;;
|
|
|
33 "extract")
|
|
|
34 echo "$2; $3 -> $filename"
|
|
|
35 echo "extract to $filename"
|
|
|
36 tmdecode $3 $1 $filename
|
|
|
37 ;;
|
|
|
38 esac
|
