home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / bin / showaudio < prev    next >
Encoding:
Text File  |  1993-05-13  |  6.0 KB  |  206 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.  
  17. if (! $?METAMAIL_TMPDIR) then
  18.     set METAMAIL_TMPDIR=/tmp
  19. endif
  20.  
  21. # First, figure out which machine to play it on!
  22. set thishost=`hostname`
  23.  
  24. # Note that there are some special lines in here that only work at Bellcore,
  25. # Specifically involving phone playback from the machine "greenbush".
  26. # Everything should work fine at other sites, though
  27. set AUDIOBINDIR=/u/andrew/phone-sau/bin
  28. set AUDIOPHONEHOST=greenbush
  29. set AUDIOPHONEHOSTLONG=greenbush.bellcore.com
  30. set AUDIOLOGMAIL=andrew@thumper.bellcore.com
  31. set ORG="Bellcore"
  32. if ("$1" == "-p") then
  33.     set AUDIOPHONE=$2
  34.     shift
  35.     shift
  36. endif
  37. if ("$1" == "-s") then
  38.     set AUDIOSPEAKERFORCE = 1
  39.     shift
  40. endif
  41. if ($?AUDIOPHONE || $?AUDIOPHONEFORCE) then
  42.     goto playphone
  43. endif
  44. if (! -d $AUDIOBINDIR) then
  45.     set AUDIOSPEAKERFORCE=1
  46. endif
  47.  
  48. set STDINPUT=0
  49. if ("$1" == "-") then
  50.     set STDINPUT=1
  51.     shift
  52. endif
  53. if ($#argv < 1) then
  54.     set STDINPUT=1
  55. endif
  56.     
  57. if (! $STDINPUT && ! $?AUDIOSPEAKERFORCE && ! $?AUDIOPHONEFORCE) then
  58.     if ($?MM_NOTTTY) then
  59.     if ($MM_NOTTTY == 1) then
  60.         setenv MM_NOTTTY 0
  61.         xterm -e showaudio $*
  62.         exit 0
  63.     endif
  64.     endif
  65. choosehardware:
  66.     echo This program can display audio on the speakers of some workstations, 
  67.     echo "or (at some sites) it can call you on the telephone.  Please choose one:"
  68.     echo ""
  69.     echo "1 -- Use the computer's speaker"
  70.     echo "2 -- Call me on the telephone"
  71.     echo ""
  72.     echo -n "Which do you prefer (1 or 2)? "
  73.     set ans=$<
  74.     if ($ans == 2)  then
  75.     echo "OK, we'll use the telephone..."
  76.     set AUDIOPHONEFORCE=1
  77.     echo "In the future, you can avoid this question by setting the environment variable"
  78.     echo "AUDIOPHONEFORCE to 1"
  79.     goto playphone
  80.     else if ($ans == 1) then
  81.         echo "OK, Attempting to play the audio using your computer's speaker.."
  82.         set AUDIOSPEAKERFORCE=1
  83.     echo "In the future, you can avoid this question by setting the environment variable"
  84.     echo "AUDIOSPEAKERFORCE to 1"
  85.     else
  86.     echo "That is NOT one of your choices."
  87.     goto choosehardware
  88.     endif
  89. endif
  90.  
  91. set audiohost=$thishost
  92. if ($?DISPLAY) then
  93.     set audiohost=`echo $DISPLAY | sed -e 's/:.*//'`
  94.     if ($audiohost == "unix") set audiohost=$thishost
  95.     if ($audiohost == "") set audiohost=$thishost
  96. endif
  97. if ($?AUDIOHOST) then
  98.     set audiohost=$AUDIOHOST
  99. endif
  100.  
  101. if ($audiohost != $thishost) then
  102.     echo Sending audio to $audiohost...
  103.     if ($?MMS_AUDIO) then
  104.         if ($?STDINPUT) then
  105.             cat | mms -host $audiohost "show audio/basic" -
  106.         else
  107.             cat $* | mms -host $audiohost "show audio/basic" -
  108.         endif
  109.         exit 0
  110.     endif
  111.  
  112. # The next two lines are very inefficient, but not everyone has their path right for an rsh
  113.     pushd ~ >& /dev/null
  114.     set thisprog=`which showaudio`
  115.     popd >& /dev/null
  116.     if ($?STDINPUT) then
  117.         cat | rsh $audiohost $thisprog -s -
  118.     else
  119.         cat $* | rsh $audiohost $thisprog  -s -
  120.     endif
  121.     exit 0
  122. endif
  123.  
  124. if (-f /usr/sbin/sfplay) then
  125.     if ($#argv >= 1) then
  126.     exec /usr/sbin/sfplay -i mu-law chan 1 rate 8000 end $*
  127.     else
  128.     cat > ${METAMAIL_TMPDIR}/audio.$$
  129.     /usr/sbin/sfplay -i mu-law chan 1 rate 8000 end ${METAMAIL_TMPDIR}/audio.$$
  130.     rm ${METAMAIL_TMPDIR}/audio.$$
  131.     exit 0
  132.     endif
  133. else if (-d /usr/sony) then
  134.     set dev=/dev/sb0
  135. else if (-e /usr/bin/audioplay) then
  136. #  Solaris 2.0
  137.     /usr/bin/audioconvert -i raw,voice -f sun $* | /usr/bin/audioplay
  138.     exit $status
  139. else if (-e /bin/audioplay) then
  140. #  Solaris 2.0
  141.     /bin/audioconvert -i raw,voice -f sun $* | /bin/audioplay
  142.     exit $status
  143. else
  144.     set dev=/dev/audio
  145. endif
  146.  
  147. if (-w $dev) then
  148. echo Playing audio on $thishost using $dev, one moment please...
  149. if ($#argv >= 1) then
  150.         cat $* > $dev
  151. else
  152.         cat > $dev
  153. endif
  154. exit 0
  155. endif
  156.  
  157. playphone:
  158. if (-d $AUDIOBINDIR) then
  159.               set thisprog=`which showaudio`
  160.     if (! $?AUDIOPHONE) then
  161.         if ($?MM_NOTTTY) then
  162.         if ($MM_NOTTTY == 1) then
  163.             setenv MM_NOTTTY 0
  164.             xterm -e $thisprog $*
  165.             exit 0
  166.         endif
  167.         endif
  168.         echo This message contains audio, which can be sent to your telephone.
  169.         echo Please enter the telephone number at which you would like to hear this
  170.         echo -n "audio message as you would dial it from INSIDE ${ORG}:  "
  171.         set AUDIOPHONE=$<
  172.     endif
  173.     if ($thishost == $AUDIOPHONEHOST || $thishost == $AUDIOPHONEHOSTLONG) then
  174.         echo Calling Phone number $AUDIOPHONE
  175.         echo "You MUST SAY HELLO when you answer the phone, or you will not hear the message."
  176.         mail -s "showaudio: `whoami` called $AUDIOPHONE" $AUDIOLOGMAIL < /dev/null
  177.         if ($?STDINPUT) then
  178.             cat $AUDIOBINDIR/../GREET.au $* - | $AUDIOBINDIR/play -\# $AUDIOPHONE -
  179.         else
  180.             cat $AUDIOBINDIR/../GREET.au $* | $AUDIOBINDIR/play -\# $AUDIOPHONE -
  181.         endif
  182.         echo All done
  183.         exit 0
  184.     else
  185.         echo Trying to rsh to $AUDIOPHONEHOST to send audio via telephone
  186.         cat $* | rsh $AUDIOPHONEHOST $thisprog -p $AUDIOPHONE -
  187.         exit 0
  188.     endif
  189. endif
  190. echo ""
  191. echo This message contains an audio mesage, which can not currently be
  192. echo played on this type of workstation.   If you log into an appropriate 
  193. echo "machine (currently a SPARCstations or Sony News workstation)"
  194. echo and read this message there, you should be able to hear the audio
  195. echo message.  
  196. echo ""
  197. echo -n "Do you want to write the audio out to a file [y] ? "
  198. set ANS=$<
  199. if ("$ANS" =~ n* ||  "$ANS" =~ N* ) exit 0
  200. echo -n "File name:"
  201. set fname=$<
  202. cp $1 $fname
  203. if ($status == 0) echo Wrote file $fname
  204. exit 0
  205.  
  206.