methods/tm-au

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