tm 7.32.
[elisp/tm.git] / methods / tm-au
1 #!/bin/sh
2 if [ "$TM_TMP_DIR" = "" ]; then
3         TM_TMP_DIR=/tmp
4         export TM_TMP_DIR
5 fi
6
7 if [ "$5" = "" ]; then
8   filename="$TM_TMP_DIR/mime$$.au"
9 else
10   filename="$TM_TMP_DIR/$5"
11 fi
12
13 echo "$2; $3 -> $filename"
14
15 tmdecode $3 $1 $filename
16
17
18 case "$4" in
19 "play")
20         if [ "$AUDIOSERVER" = "" ]; then
21           cat $filename >/dev/audio
22         else
23           autool -v 40 $filename
24         fi
25         ;;
26 "extract")
27         echo "extract to $filename"
28         ;;
29 esac