chat::Package proc flush_rooms (public)

 chat::Package flush_rooms

Defined in /var/www/openacs.org/packages/chat/tcl/xotcl-chat-procs.tcl

Flush every room supposed to be archived and automatically flushed. Meant to be executed in a scheduled procedure.

Testcases:

No testcase defined.

Source code:

foreach room_id [::xo::dc list get_rooms {
    select room_id from chat_rooms
    where archive_p = 't' and auto_flush_p = 't'
}] {
    set room [::xo::db::Class get_instance_from_db -id $room_id]
    $room flush
}

XQL Not present:

Generic, PostgreSQL, Oracle