[tkined] Audible alerts

Frank Harper (Frank.Harper@turbomeca.fr)
Fri, 13 Aug 1999 19:03:02 +0200

I want tkinetd to give audible alerts

I found an answer by Mark Newnham <mark.n@usa.net> in the archives and
made the corresponding changes to proc MoJoModify and proc MoJoAction.

The one in proc MoJoModify works quite well. But the one in MoJoAction
doesn't.

This is what I added to MoJoAction:

if {[lsearch $action sound] >= 0} {
bell
}

Since I'm new to scotty, tcl, and tk; this might not be correct tcl/tk
syntax. Could someone please tell me if this looks ok?
Another possibility is that since I'm running on NT with the july alpha
(looks like a very good alpha to me!) there's something else wrong. the
tk built-in bell does work from the wish window.

BTW the ip-monitor job that I set to use sound just disappears with no
error message at all.

Original sound hack from Mark Newnham <mark.n@usa.net> :

1) proc MoJoModify: add another radio button switch to the ined request
dialog so that you can set a new Threshold action:

set res [ined request "Modify $jobid ([lindex $jobcmd 0] $hosts)" \
[list [list "Intervaltime \[s\]:" $jobitv entry 10] \
[list "Job Status:" $jobstat radio active suspend] \

[list "Falling Threshold:" $falling entry 10] \
[list "Rising Threshold:" $rising entry 10] \
[list "Threshold action:" \
$action check syslog flash write sound] ] \
[list modify "kill job" cancel] ]

2) proc MoJoAction: add another if command to play the sound.

if {[lsearch $action sound] >= 0} {
exec cat ~/.tkined/flush.au > /dev/audio
}

--
Frank Harper, TURBOMECA network manager
e-mail: Frank.Harper@turbomeca.fr
Tel: +33-559-12-52-18
Fax: +33-559-12-51-50

--
!! This message is brought to you via the `tkined & scotty' mailing list.
!! Please do not reply to this message to unsubscribe. To subscribe or
!! unsubscribe, send a mail message to <tkined-request@ibr.cs.tu-bs.de>.
!! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more information.