notification::sweep::cleanup_sse_subscriptions (private)

 notification::sweep::cleanup_sse_subscriptions

Defined in packages/notifications/tcl/sweep-procs.tcl

Cleanup unused SSE channels.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        foreach {subscription channels} [nsv_array get ::notification::sse channels-*] {
            set to_user_id [string range $subscription [string length channels-] end]
            foreach channel $channels {
                try {
                    ns_connchan write $channel [string cat {: ping} \n\n]
                } on error {errmsg} {
                    ::notification::sse::unsubscribe $channel $to_user_id
                }
            }
        }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/notifications/tcl/sweep-procs.xql