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.