D111.id267.diff
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

D111.id267.diff
View Options

	diff --git a/Wearg/Broker.tcl b/Wearg/Broker.tcl
	--- a/Wearg/Broker.tcl
	+++ b/Wearg/Broker.tcl
	@@ -29,7 +29,13 @@
	}

	proc on_tick {} {
	- get_messages
	+ if {[expr [clock seconds] % 300 > 0]} {
	+ # We generally want to get messages, but not
	+ # when the SIGCHLD signal is sent to the bot
	+ # which seems to be every five minutes.
	+
	+ get_messages
	+ }
	utimer 1 [namespace current]::on_tick
	}

	diff --git a/Wearg/Notifications.tcl b/Wearg/Notifications.tcl
	--- a/Wearg/Notifications.tcl
	+++ b/Wearg/Notifications.tcl
	@@ -56,12 +56,17 @@
	lappend params [dict get $notification $field]
	}

	+ set matchingBinds 0
	foreach bind [binds] {
	if {[is_matching_notification_bind $bind $notification]} {
	set callback [lindex $bind 4]
	$callback {*}$params
	+ incr matchingBinds
	}
	}
	+ if {$matchingBinds == 0} {
	+ putdebug "No bind for queue $queue message $message"
	+ }
	}

	proc get_notification_channel {project group} {
	@@ -74,6 +79,7 @@
	docker { return "#nasqueron-ops" }
	ops { return "#nasqueron-ops" }
	orgz { return "#nasqueron-ops" }
	+ nasqueron { return "#nasqueron-logs" }
	default {
	putdebug "Message for unknown group: $project $group"
	return "#nasqueron-logs"