methods/tm-au

   1 #!/bin/csh -f
   2
   3 switch( $4 )
   4 case "play":
   5         set filename = /dev/audio
   6         breaksw
   7 case "extract":
   8         if( $5 == "" ) then
   9                 set filename = "/tmp/mime$$.au"
  10         else
  11                 set filename = "/tmp/$5"
  12         endif
  13         breaksw
  14 default:
  15         exit -1
  16 endsw
  17
  18 echo "$2; $3 -> $filename"
  19
  20 switch( $3 )
  21 case "7bit":
  22 case "8bit":
  23 case "binary":
  24         /bin/cp $1 $filename
  25         breaksw
  26 case "base64":
  27         decode-b < $1 > $filename
  28         breaksw
  29 case "quoted-printable":
  30         mmencode -q -u $1 > $filename
  31         breaksw
  32 default:
  33         echo "unknown encoding"
  34         exit -1
  35 endsw
  36
  37 /bin/rm $1