Date: 19 Sep 2001 22:25:13 -0700 From: swear@blarg.net (Gary W. Swearingen) To: Tony Wells <tony@camel.kdsi.net> Cc: freebsd-questions@FreeBSD.ORG Subject: Re: Is there a system/Perl command to make a "beep?" Message-ID: <yuk7yu4eo6.7yu@localhost.localdomain> In-Reply-To: <3BA8F719.455B062E@camel.kdsi.net> References: <3BA8F719.455B062E@camel.kdsi.net>
next in thread | previous in thread | raw e-mail | index | archive | help
With a sound card I use this crummy script (arg = number of beeps)
which you'd need to edit for your sound favorite beep sound files.
#!/bin/ksh
if [ "$1" = -cowbell ]; then
shift
SOUND=/u/local/share/sounds/old-emacs/cowbell.au
else
SOUND=/usr/local/share/sounds/old-emacs/say-beep.au
#SOUND=/usr/local/lib/sounds/drip.au
fi
if [ "$1" = "" ]; then
beeps=1
else
beeps=$1
fi
NEWVOL=100
while [ 1 = 1 ]; do
OLDVOL=$(aumix -vq|cut -d ' ' -f 3)
aumix -v "$NEWVOL"
cat "$SOUND" >/dev/audio
aumix -v "$OLDVOL"
beeps=$((beeps-1))
if [ $beeps = 0 ]; then
break
fi
done
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?yuk7yu4eo6.7yu>