From owner-freebsd-questions  Wed Sep 19 22:26: 6 2001
Delivered-To: freebsd-questions@freebsd.org
Received: from lists.blarg.net (lists.blarg.net [206.124.128.17])
	by hub.freebsd.org (Postfix) with ESMTP id 4546137B41F
	for <freebsd-questions@FreeBSD.ORG>; Wed, 19 Sep 2001 22:26:02 -0700 (PDT)
Received: from thig.blarg.net (thig.blarg.net [206.124.128.18])
	by lists.blarg.net (Postfix) with ESMTP
	id 6323FBD2C; Wed, 19 Sep 2001 22:25:58 -0700 (PDT)
Received: from localhost.localdomain ([206.124.139.115])
	by thig.blarg.net (8.9.3/8.9.3) with ESMTP id WAA20429;
	Wed, 19 Sep 2001 22:25:58 -0700
Received: (from jojo@localhost)
	by localhost.localdomain (8.11.3/8.11.3) id f8K5PE747905;
	Wed, 19 Sep 2001 22:25:14 -0700 (PDT)
	(envelope-from swear@blarg.net)
To: Tony Wells <tony@camel.kdsi.net>
Cc: freebsd-questions@FreeBSD.ORG
Subject: Re: Is there a system/Perl command to make a "beep?"
References: <3BA8F719.455B062E@camel.kdsi.net>
From: swear@blarg.net (Gary W. Swearingen)
Date: 19 Sep 2001 22:25:13 -0700
In-Reply-To: <3BA8F719.455B062E@camel.kdsi.net>
Message-ID: <yuk7yu4eo6.7yu@localhost.localdomain>
Lines: 33
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: owner-freebsd-questions@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-questions.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo@FreeBSD.ORG?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo@FreeBSD.ORG?subject=subscribe%20freebsd-questions>
List-Unsubscribe: <mailto:majordomo@FreeBSD.ORG?subject=unsubscribe%20freebsd-questions>
X-Loop: FreeBSD.ORG

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