question for perl programmers

Jeffrey Utter utterjef@zelda.cl.msu.edu
Thu, 14 Jun 2001 11:24:44 -0400 (EDT)


> His subroutine for the system bell is short and is thus:
> 
> sub jarlMainIF_AlertUser {
>   $GUI{top}->bell();
> }


You can try replacing it with this:

sub jarlMain_AlertUser {
  
system("echo -ne \"\33[10;$frequency]\33[11;$duration]\7\" > /dev/$tty");

}

Make sure that you use the numbers you want for $frequency and $duration.

frequency = 2000 
duration = 300   

works well for me.  Also you should make sure to set $tty to the tty you
are using.  Do a "echo $tty" and that should tell you what you need to set
it to.  

I hope some or all of this helps,

Jeff U.