home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / bin / audiosend < prev    next >
Encoding:
Text File  |  1993-05-10  |  2.7 KB  |  108 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. if ( $#argv == 1 ) then
  30.     set to = $1
  31. else
  32.     echo -n "To: "
  33.     set to = $<
  34. endif
  35. echo -n "Subject: "
  36. set subject = $<
  37. echo -n "CC: "
  38. set cc = $<
  39.  
  40. record:
  41. echo -n "Press RETURN when you are ready to start recording: "
  42. set foo = $<
  43.  
  44. set fname = ${METAMAIL_TMPDIR}/audio-out.$$
  45. set fnameraw = ${METAMAIL_TMPDIR}/audio-raw.$$
  46.  
  47. echo "To: " "$to" > $fname
  48. echo "Subject: " "$subject" >> $fname
  49. echo "CC: " "$cc" >> $fname
  50. echo "MIME-Version: 1.0" >> $fname
  51. echo "Content-Type: audio/basic" >> $fname
  52. echo "Content-Transfer-Encoding: base64" >> $fname
  53. echo  "" >> $fname
  54. # THIS IS UNBELIEVABLY GRUBBY
  55. onintr cleanup
  56. if (! $?RECORD_AUDIO) then
  57.     (/bin/cat < $dev > $fnameraw) &
  58. else
  59.     ($RECORD_AUDIO > $fnameraw) &
  60. endif
  61. jobs -l > ${METAMAIL_TMPDIR}/AUDCAT.$$
  62. set foo=`/bin/cat ${METAMAIL_TMPDIR}/AUDCAT.$$`
  63. /bin/rm ${METAMAIL_TMPDIR}/AUDCAT.$$
  64. set PID=$foo[2]
  65. echo -n "press RETURN when you are done recording: "
  66. set foo=$<
  67. echo One moment please...
  68. /bin/sleep 1
  69. echo -n Killing recording job...
  70. /bin/kill -9 $PID >& /dev/null
  71. mimencode -b < $fnameraw >> $fname
  72. /bin/rm $fnameraw
  73. echo "" >> $fname
  74.  
  75. whatnext:
  76. echo ""
  77. echo "What do you want to do?"
  78. echo ""
  79. echo "1 -- Send mail"
  80. echo "2 -- Listen to recorded message"
  81. echo "3 -- Replace with a new recording"
  82. echo "4 -- Quit"
  83. set which = $<
  84.     switch ("$which")
  85.         case 1:
  86.           echo -n "Sending mail, please wait...  "
  87.           /usr/lib/sendmail $to  $cc < $fname
  88.           if (! $status) then
  89.             echo "Done."
  90.             rm $fname
  91.             exit
  92.           else
  93.             echo Mail delivery failed, draft mail is in $fname
  94.           endif
  95.           breaksw
  96.         case 2:
  97.           metamail -d $fname
  98.           breaksw
  99.         case 3:
  100.           goto record
  101.         case 4:
  102.           exit
  103.     endsw
  104. goto whatnext
  105. exit 0
  106. cleanup:
  107. kill -9 $PID >& /dev/null
  108.