tm 7.36.

[elisp/tm.git] / methods / tm-au

diff --git a/methods/tm-au b/methods/tm-au
index fe65855..79ce71b 100755 (executable)
--- a/methods/tm-au
+++ b/methods/tm-au
@@ -1,4 +1,8 @@
-#!/bin/sh
+#!/bin/sh -
+#
+# $Id: tm-au,v 3.1 1995/12/18 11:34:57 morioka Exp $
+#
+
 if [ "$TM_TMP_DIR" = "" ]; then
        TM_TMP_DIR=/tmp
        export TM_TMP_DIR
@@ -10,20 +14,21 @@ else
   filename="$TM_TMP_DIR/$5"
 fi
 
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
 
 case "$4" in
 "play")
+       echo "$2; $3 ->"
         if [ "$AUDIOSERVER" = "" ]; then
-          cat $filename >/dev/audio
+               tmdecode $3 $1 /dev/audio
         else
-          autool -v 40 $filename
+               tmdecode $3 $1 $filename
+               autool -v 40 $filename
+               trap 'rm -f $filename' 0 1 2 3 13 15
         fi
        ;;
 "extract")
-       echo "extract to $filename"
+       echo "$2; $3 -> $filename"
+        echo "extract to $filename"
+       tmdecode $3 $1 $filename
        ;;
 esac