home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / bin / audiocompose next >
Encoding:
Text File  |  1993-05-10  |  1.9 KB  |  75 lines
  1. #!/bin/csh -f
  2. # Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  3. # 
  4. # Permission to use, copy, modify, and distribute this material 
  5. # for any purpose and without fee is hereby granted, provided 
  6. # that the above copyright notice and this permission notice 
  7. # appear in all copies, and that the name of Bellcore not be 
  8. # used in advertising or publicity pertaining to this 
  9. # material without the specific, prior written permission 
  10. # of an authorized representative of Bellcore.  BELLCORE 
  11. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  12. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  13. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  14. #
  15.  
  16. if (! $?METAMAIL_TMPDIR) then
  17.     set METAMAIL_TMPDIR=/tmp
  18. endif
  19.  
  20. # This is to make metamail/showaudio do playback on the speaker, not the phone.
  21. setenv AUDIOSPEAKERFORCE 1 
  22.  
  23. if (-d /usr/sony) then
  24.     set dev=/dev/sb0
  25. else
  26.     set dev=/dev/audio
  27. endif
  28.  
  29. set audiofile=$1
  30. if (-e $audiofile && ! -z $audiofile) goto whatnext
  31.  
  32. record:
  33. echo -n "Press RETURN when you are ready to start recording: "
  34. set foo = $<
  35.  
  36. # THIS IS UNBELIEVABLY GRUBBY
  37. onintr cleanup
  38. if (! $?RECORD_AUDIO) then
  39.     (/bin/cat < $dev > $audiofile) &
  40. else
  41.     ($RECORD_AUDIO > $audiofile) &
  42. endif
  43. jobs -l > ${METAMAIL_TMPDIR}/AUDCAT.$$
  44. set foo=`/bin/cat ${METAMAIL_TMPDIR}/AUDCAT.$$`
  45. /bin/rm ${METAMAIL_TMPDIR}/AUDCAT.$$
  46. set PID=$foo[2]
  47. echo -n "press RETURN when you are done recording: "
  48. set foo=$<
  49. echo One moment please...
  50. /bin/sleep 1
  51. echo -n Killing recording job...
  52. /bin/kill -9 $PID >& /dev/null
  53.  
  54. whatnext:
  55. echo ""
  56. echo "What do you want to do?"
  57. echo ""
  58. echo "1 -- Listen to recorded message"
  59. echo "2 -- Replace with a new recording"
  60. echo "3 -- All Done, Quit"
  61. set which = $<
  62.     switch ("$which")
  63.         case 1:
  64.           cat $audiofile > $dev
  65.           breaksw
  66.         case 2:
  67.           goto record
  68.         case 3:
  69.           exit
  70.     endsw
  71. goto whatnext
  72. exit 0
  73. cleanup:
  74. kill -9 $PID >& /dev/null
  75.