| |
31 |
31 |
} |
| |
32 |
32 |
} |
| |
33 |
33 |
} |
| |
34 |
34 |
|
| |
35 |
35 |
set room_name [$r set pretty_name] |
| |
36 |
36 |
set doc(title) $room_name |
| |
37 |
37 |
set doc(type) {<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">} |
| |
38 |
38 |
|
| |
39 |
39 |
set context [list $doc(title)] |
| |
40 |
40 |
|
| |
41 |
41 |
auth::require_login |
| |
42 |
42 |
set user_id [ad_conn user_id] |
| |
43 |
43 |
set read_p [permission::permission_p -object_id $room_id -privilege "chat_read"] |
| |
44 |
44 |
set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"] |
| |
45 |
45 |
set ban_p [permission::permission_p -object_id $room_id -privilege "chat_ban"] |
| |
46 |
46 |
set moderate_room_p [$r set moderated_p] |
| |
47 |
47 |
|
| |
48 |
48 |
if { $moderate_room_p == "t" } { |
| |
49 |
49 |
set moderator_p [permission::permission_p -object_id $room_id -privilege "chat_moderator"] |
| |
50 |
50 |
} else { |
| |
51 |
|
# This is an unmoderate room, therefore everyone is a moderator. |
| |
|
51 |
# This is an unmoderated room, therefore, everyone is a moderator. |
| |
52 |
52 |
set moderator_p "1" |
| |
53 |
53 |
} |
| |
54 |
54 |
|
| |
55 |
55 |
if { ($read_p == 0 && $write_p == 0) || ($ban_p == 1) } { |
| |
56 |
56 |
# Display unauthorize privilege page. |
| |
57 |
57 |
ad_returnredirect unauthorized |
| |
58 |
58 |
ad_script_abort |
| |
59 |
59 |
} |
| |
60 |
60 |
|
| |
61 |
61 |
set chat_frame [::chat::Chat login -chat_id $room_id] |
| |
62 |
62 |
|
| |
63 |
63 |
# Local variables: |
| |
64 |
64 |
# mode: tcl |
| |
65 |
65 |
# tcl-indent-level: 4 |
| |
66 |
66 |
# indent-tabs-mode: nil |
| |
67 |
67 |
# End: |
