methods/tm-au

   1 #!/bin/sh -
   2 #
   3 # $Id: tm-au,v 3.1 1995/12/18 11:34:57 morioka Exp $
   4 #
   5
   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
  22                 tmdecode $3 $1 /dev/audio
  23         else
  24                 tmdecode $3 $1 $filename
  25                 autool -v 40 $filename
  26                 trap 'rm -f $filename' 0 1 2 3 13 15
  27         fi
  28         ;;
  29 "extract")
  30         echo "$2; $3 -> $filename"
  31         echo "extract to $filename"
  32         tmdecode $3 $1 $filename
  33         ;;
  34 esac