chiark / gitweb /
ypp-chatlog-alerter: working bell disablement
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Mon, 4 Oct 2010 00:02:36 +0000 (01:02 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Mon, 4 Oct 2010 00:02:36 +0000 (01:02 +0100)
ypp-chatlog-alerter

index 275d7b5..05a9c20 100755 (executable)
@@ -282,7 +282,8 @@ proc message {pirate msg} {
     set ix [lsearch -exact $pirates $pirate]
     set now [clock seconds]
     
-    if {$ix<0 || [lindex $times $ix] < $now-$bell_again} {
+    if {$bell_again > -2 &&
+       ($ix<0 || [lindex $times $ix] < $now-$bell_again)} {
        bell -nice
     }
     if {$ix < 0} {
@@ -319,7 +320,7 @@ proc parseargs {} {
        if {![string compare $arg --test-tints]} {
            showtints
        } elseif {![string compare $arg --no-bell]} {
-           set bell_again -1
+           set bell_again -2
        } else {
            error "unknown option $arg"
        }