Mercurial > pidgin
annotate src/server.c @ 243:3414ff74cb0f
[gaim-migrate @ 253]
Sat May 20 09:56:16 UTC 2000 EWarmenhoven
- That 2 second delay in updates is gone, and I think it's actually
faster than the TOC code now.
- I figured out why it was segfaulting. I'm stupid sometimes.
- I figured out why the idle times were appearing bizarrely. Once
again, I'm stupid sometimes.
- You can now be idle
- You can now get a user's info (sort of - use the debug window) (still
no away messages though....)
- You can now be away
- You can now set your info (but not your dir info - yet)
- I think it's almost at a point where it's ready for use.
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Sat, 20 May 2000 10:03:16 +0000 |
parents | 14fc16f579c8 |
children | f6e8ea29b24f |
rev | line source |
---|---|
1 | 1 /* |
2 * gaim | |
3 * | |
4 * Copyright (C) 1998-1999, Mark Spencer <markster@marko.net> | |
5 * | |
6 * This program is free software; you can redistribute it and/or modify | |
7 * it under the terms of the GNU General Public License as published by | |
8 * the Free Software Foundation; either version 2 of the License, or | |
9 * (at your option) any later version. | |
10 * | |
11 * This program is distributed in the hope that it will be useful, | |
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 * GNU General Public License for more details. | |
15 * | |
16 * You should have received a copy of the GNU General Public License | |
17 * along with this program; if not, write to the Free Software | |
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
19 * | |
20 */ | |
21 | |
22 #include <time.h> | |
23 #include <stdio.h> | |
24 #include <string.h> | |
25 #include <sys/types.h> | |
26 #include <sys/stat.h> | |
27 #include <sys/time.h> | |
28 #include <unistd.h> | |
29 #include <gtk/gtk.h> | |
30 #ifdef USE_OSCAR | |
31 #include "../libfaim/aim.h" | |
32 #endif | |
33 #include "gaim.h" | |
34 | |
35 static int idle_timer = -1; | |
36 static time_t lastsent = 0; | |
37 static time_t login_time = 0; | |
38 static struct timeval lag_tv; | |
39 static int is_idle = 0; | |
40 | |
41 int correction_time = 0; | |
42 | |
43 int serv_login(char *username, char *password) | |
44 { | |
45 #ifndef USE_OSCAR | |
46 return toc_login(username, password); | |
47 #else | |
48 return oscar_login(username, password); | |
49 #endif | |
50 } | |
51 | |
52 void serv_close() | |
53 { | |
54 #ifndef USE_OSCAR | |
55 toc_close(); | |
242
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
56 #else |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
57 oscar_close(); |
1 | 58 #endif |
59 gtk_timeout_remove(idle_timer); | |
60 idle_timer = -1; | |
61 } | |
62 | |
63 | |
64 void serv_touch_idle() | |
65 { | |
66 /* Are we idle? If so, not anymore */ | |
67 if (is_idle > 0) { | |
68 is_idle = 0; | |
69 serv_set_idle(0); | |
70 } | |
71 time(&lastsent); | |
72 } | |
73 | |
74 | |
75 static gint check_idle() | |
76 { | |
77 time_t t; | |
78 | |
79 /* Not idle, really... :) */ | |
80 update_all_buddies(); | |
81 | |
82 time(&t); | |
83 | |
84 gettimeofday(&lag_tv, NULL); | |
171
789c792ed14b
[gaim-migrate @ 181]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
145
diff
changeset
|
85 if (general_options & OPT_GEN_SHOW_LAGMETER) |
181
f2d631f867a3
[gaim-migrate @ 191]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
171
diff
changeset
|
86 serv_send_im(current_user->username, LAGOMETER_STR, 1); |
1 | 87 |
88 if (report_idle != IDLE_GAIM) | |
89 return TRUE; | |
90 | |
91 | |
92 if (is_idle) | |
93 return TRUE; | |
94 | |
95 if ((t - lastsent) > 600) { /* 15 minutes! */ | |
96 serv_set_idle((int)t - lastsent); | |
97 is_idle = 1; | |
98 } | |
99 | |
115
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
100 #ifdef GAIM_PLUGINS |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
101 { |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
102 GList *c = callbacks; |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
103 struct gaim_callback *g; |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
104 void (*function)(void *); |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
105 while (c) { |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
106 g = (struct gaim_callback *)c->data; |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
107 if (g->event == event_blist_update && |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
108 g->function != NULL) { |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
109 function = g->function; |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
110 (*function)(g->data); |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
111 } |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
112 c = c->next; |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
113 } |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
114 } |
890cfb7d8fdb
[gaim-migrate @ 125]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
101
diff
changeset
|
115 #endif |
1 | 116 |
117 return TRUE; | |
118 | |
119 } | |
120 | |
121 | |
122 void serv_finish_login() | |
123 { | |
124 char *buf; | |
125 | |
126 if (strlen(current_user->user_info)) { | |
79 | 127 buf = g_malloc(strlen(current_user->user_info) * 4); |
1 | 128 strcpy(buf, current_user->user_info); |
129 escape_text(buf); | |
130 serv_set_info(buf); | |
131 g_free(buf); | |
132 } | |
133 | |
134 if (idle_timer != -1) | |
135 gtk_timeout_remove(idle_timer); | |
136 | |
137 idle_timer = gtk_timeout_add(20000, (GtkFunction)check_idle, NULL); | |
138 serv_touch_idle(); | |
139 | |
140 time(&login_time); | |
141 | |
142 serv_add_buddy(current_user->username); | |
143 | |
144 if (!(general_options & OPT_GEN_REGISTERED)) | |
145 { | |
146 show_register_dialog(); | |
147 save_prefs(); | |
148 } | |
149 } | |
150 | |
151 | |
152 | |
153 void serv_send_im(char *name, char *message, int away) | |
154 { | |
155 char buf[MSG_LEN - 7]; | |
94
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
156 |
1 | 157 #ifndef USE_OSCAR |
158 g_snprintf(buf, MSG_LEN - 8, "toc_send_im %s \"%s\"%s", normalize(name), | |
159 message, ((away) ? " auto" : "")); | |
160 sflap_send(buf, strlen(buf), TYPE_DATA); | |
161 #else | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
162 oscar_send_im(name, message, away); |
1 | 163 #endif |
164 if (!away) | |
165 serv_touch_idle(); | |
166 } | |
167 | |
168 void serv_get_info(char *name) | |
169 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
170 char buf[MSG_LEN]; |
1 | 171 #ifndef USE_OSCAR |
172 g_snprintf(buf, MSG_LEN, "toc_get_info %s", normalize(name)); | |
173 sflap_send(buf, -1, TYPE_DATA); | |
243
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
174 #else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
175 aim_getinfo(gaim_sess, gaim_conn, name); |
1 | 176 #endif |
177 } | |
178 | |
179 void serv_get_dir(char *name) | |
180 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
181 char buf[MSG_LEN]; |
1 | 182 #ifndef USE_OSCAR |
183 g_snprintf(buf, MSG_LEN, "toc_get_dir %s", normalize(name)); | |
184 sflap_send(buf, -1, TYPE_DATA); | |
185 #endif | |
186 } | |
187 | |
188 void serv_set_dir(char *first, char *middle, char *last, char *maiden, | |
189 char *city, char *state, char *country, int web) | |
190 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
191 char buf2[BUF_LEN*4], buf[BUF_LEN]; |
1 | 192 #ifndef USE_OSCAR |
193 g_snprintf(buf2, sizeof(buf2), "%s:%s:%s:%s:%s:%s:%s:%s", first, | |
194 middle, last, maiden, city, state, country, | |
195 (web == 1) ? "Y" : ""); | |
196 escape_text(buf2); | |
197 g_snprintf(buf, sizeof(buf), "toc_set_dir %s", buf2); | |
198 sflap_send(buf, -1, TYPE_DATA); | |
199 #endif | |
200 } | |
201 | |
202 void serv_dir_search(char *first, char *middle, char *last, char *maiden, | |
203 char *city, char *state, char *country, char *email) | |
204 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
205 char buf[BUF_LONG]; |
1 | 206 #ifndef USE_OSCAR |
207 g_snprintf(buf, sizeof(buf)/2, "toc_dir_search %s:%s:%s:%s:%s:%s:%s:%s", first, middle, last, maiden, city, state, country, email); | |
208 sprintf(debug_buff,"Searching for: %s,%s,%s,%s,%s,%s,%s\n", first, middle, last, maiden, city, state, country); | |
209 debug_print(debug_buff); | |
210 sflap_send(buf, -1, TYPE_DATA); | |
243
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
211 #else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
212 if (strlen(email)) |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
213 aim_usersearch_address(gaim_sess, gaim_conn, email); |
1 | 214 #endif |
215 } | |
216 | |
217 | |
218 void serv_set_away(char *message) | |
219 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
220 char buf[MSG_LEN]; |
1 | 221 #ifndef USE_OSCAR |
222 if (message) | |
223 g_snprintf(buf, MSG_LEN, "toc_set_away \"%s\"", message); | |
224 else | |
200
bc117fbcf527
[gaim-migrate @ 210]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
181
diff
changeset
|
225 g_snprintf(buf, MSG_LEN, "toc_set_away \"\""); |
1 | 226 sflap_send(buf, -1, TYPE_DATA); |
243
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
227 #else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
228 aim_bos_setprofile(gaim_sess, gaim_conn, current_user->user_info, |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
229 message, AIM_CAPS_CHAT); |
1 | 230 #endif |
231 } | |
232 | |
233 void serv_set_info(char *info) | |
234 { | |
235 char buf[MSG_LEN]; | |
236 #ifndef USE_OSCAR | |
237 g_snprintf(buf, sizeof(buf), "toc_set_info \"%s\n\"", info); | |
238 sflap_send(buf, -1, TYPE_DATA); | |
243
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
239 #else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
240 if (awaymessage) |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
241 aim_bos_setprofile(gaim_sess, gaim_conn, info, |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
242 awaymessage->message, AIM_CAPS_CHAT); |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
243 else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
244 aim_bos_setprofile(gaim_sess, gaim_conn, info, |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
245 NULL, AIM_CAPS_CHAT); |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
246 #endif |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
247 } |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
248 |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
249 void serv_change_passwd(char *orig, char *new) { |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
250 #ifndef USE_OSCAR |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
251 char *buf = g_malloc(BUF_LONG); |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
252 g_snprintf(buf, BUF_LONG, "toc_change_passwd %s %s", orig, new); |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
253 sflap_send(buf, strlen(buf), TYPE_DATA); |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
254 g_free(buf); |
1 | 255 #endif |
256 } | |
257 | |
258 void serv_add_buddy(char *name) | |
259 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
260 char buf[1024]; |
1 | 261 #ifndef USE_OSCAR |
262 g_snprintf(buf, sizeof(buf), "toc_add_buddy %s", normalize(name)); | |
263 sflap_send(buf, -1, TYPE_DATA); | |
242
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
264 #else |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
265 aim_add_buddy(gaim_sess, gaim_conn, name); |
1 | 266 #endif |
267 } | |
268 | |
269 void serv_add_buddies(GList *buddies) | |
270 { | |
271 char buf[MSG_LEN]; | |
272 int n, num = 0; | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
273 |
1 | 274 #ifndef USE_OSCAR |
275 n = g_snprintf(buf, sizeof(buf), "toc_add_buddy"); | |
276 while(buddies) { | |
277 if (num == 20) { | |
278 sflap_send(buf, -1, TYPE_DATA); | |
279 n = g_snprintf(buf, sizeof(buf), "toc_add_buddy"); | |
280 num = 0; | |
281 } | |
282 ++num; | |
283 n += g_snprintf(buf + n, sizeof(buf) - n, " %s", normalize(buddies->data)); | |
284 buddies = buddies->next; | |
285 } | |
286 sflap_send(buf, -1, TYPE_DATA); | |
242
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
287 #else |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
288 /* oscar you have to add them one name at a time, except at login */ |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
289 while(buddies) { |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
290 serv_add_buddy((char *)buddies->data); |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
291 buddies = buddies->next; |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
292 } |
1 | 293 #endif |
294 } | |
295 | |
296 | |
297 void serv_remove_buddy(char *name) | |
298 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
299 char buf[1024]; |
1 | 300 #ifndef USE_OSCAR |
301 g_snprintf(buf, sizeof(buf), "toc_remove_buddy %s", normalize(name)); | |
302 sflap_send(buf, -1, TYPE_DATA); | |
242
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
303 #else |
14fc16f579c8
[gaim-migrate @ 252]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
237
diff
changeset
|
304 aim_remove_buddy(gaim_sess, gaim_conn, name); |
1 | 305 #endif |
306 } | |
307 | |
308 void serv_add_permit(char *name) | |
309 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
310 char buf[1024]; |
1 | 311 #ifndef USE_OSCAR |
312 g_snprintf(buf, sizeof(buf), "toc_add_permit %s", normalize(name)); | |
313 sflap_send(buf, -1, TYPE_DATA); | |
314 #endif | |
315 } | |
316 | |
317 | |
318 | |
319 void serv_add_deny(char *name) | |
320 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
321 char buf[1024]; |
1 | 322 #ifndef USE_OSCAR |
323 g_snprintf(buf, sizeof(buf), "toc_add_deny %s", normalize(name)); | |
324 sflap_send(buf, -1, TYPE_DATA); | |
325 #endif | |
326 } | |
327 | |
328 | |
329 | |
330 void serv_set_permit_deny() | |
331 { | |
332 char buf[MSG_LEN]; | |
333 int at; | |
334 GList *list; | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
335 |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
336 #ifndef USE_OSCAR |
1 | 337 /* FIXME! We flash here. */ |
338 if (permdeny == 1 || permdeny == 3) { | |
339 g_snprintf(buf, sizeof(buf), "toc_add_permit"); | |
340 sflap_send(buf, -1, TYPE_DATA); | |
341 } else { | |
342 g_snprintf(buf, sizeof(buf), "toc_add_deny"); | |
343 sflap_send(buf, -1, TYPE_DATA); | |
344 } | |
345 | |
346 | |
347 at = g_snprintf(buf, sizeof(buf), "toc_add_permit"); | |
348 list = permit; | |
349 while(list) { | |
350 at += g_snprintf(&buf[at], sizeof(buf) - at, " %s", normalize(list->data)); | |
351 list = list->next; | |
352 } | |
353 buf[at] = 0; | |
354 sflap_send(buf, -1, TYPE_DATA); | |
355 | |
356 at = g_snprintf(buf, sizeof(buf), "toc_add_deny"); | |
357 list = deny; | |
358 while(list) { | |
359 at += g_snprintf(&buf[at], sizeof(buf) - at, " %s", normalize(list->data)); | |
360 list = list->next; | |
361 } | |
362 buf[at] = 0; | |
363 sflap_send(buf, -1, TYPE_DATA); | |
364 #endif | |
365 } | |
366 | |
367 void serv_set_idle(int time) | |
368 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
369 char buf[256]; |
1 | 370 #ifndef USE_OSCAR |
371 g_snprintf(buf, sizeof(buf), "toc_set_idle %d", time); | |
372 sflap_send(buf, -1, TYPE_DATA); | |
243
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
373 #else |
3414ff74cb0f
[gaim-migrate @ 253]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
242
diff
changeset
|
374 aim_bos_setidle(gaim_sess, gaim_conn, time); |
1 | 375 #endif |
376 } | |
377 | |
378 | |
379 void serv_warn(char *name, int anon) | |
380 { | |
381 #ifndef USE_OSCAR | |
382 char *send = g_malloc(256); | |
383 g_snprintf(send, 255, "toc_evil %s %s", name, | |
384 ((anon) ? "anon" : "norm")); | |
385 sflap_send(send, -1, TYPE_DATA); | |
386 g_free(send); | |
387 #endif | |
388 } | |
389 | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
390 void serv_build_config(char *buf, int len) { |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
391 toc_build_config(buf, len); |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
392 } |
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
393 |
1 | 394 |
395 void serv_save_config() | |
396 { | |
397 #ifndef USE_OSCAR | |
398 char *buf = g_malloc(BUF_LONG); | |
399 char *buf2 = g_malloc(MSG_LEN); | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
400 serv_build_config(buf, BUF_LONG / 2); |
1 | 401 g_snprintf(buf2, MSG_LEN, "toc_set_config {%s}", buf); |
402 sflap_send(buf2, -1, TYPE_DATA); | |
403 g_free(buf2); | |
404 g_free(buf); | |
405 #endif | |
406 } | |
407 | |
408 | |
409 void serv_accept_chat(int i) | |
410 { | |
411 #ifndef USE_OSCAR | |
412 char *buf = g_malloc(256); | |
413 g_snprintf(buf, 255, "toc_chat_accept %d", i); | |
414 sflap_send(buf, -1, TYPE_DATA); | |
415 g_free(buf); | |
416 #endif | |
417 } | |
418 | |
419 void serv_join_chat(int exchange, char *name) | |
420 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
421 char buf[BUF_LONG]; |
1 | 422 #ifndef USE_OSCAR |
423 g_snprintf(buf, sizeof(buf)/2, "toc_chat_join %d \"%s\"", exchange, name); | |
424 sflap_send(buf, -1, TYPE_DATA); | |
425 #endif | |
426 } | |
427 | |
428 void serv_chat_invite(int id, char *message, char *name) | |
429 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
430 char buf[BUF_LONG]; |
1 | 431 #ifndef USE_OSCAR |
432 g_snprintf(buf, sizeof(buf)/2, "toc_chat_invite %d \"%s\" %s", id, message, normalize(name)); | |
433 sflap_send(buf, -1, TYPE_DATA); | |
434 #endif | |
435 } | |
436 | |
437 void serv_chat_leave(int id) | |
438 { | |
439 #ifndef USE_OSCAR | |
440 char *buf = g_malloc(256); | |
441 g_snprintf(buf, 255, "toc_chat_leave %d", id); | |
442 sflap_send(buf, -1, TYPE_DATA); | |
443 g_free(buf); | |
444 #endif | |
445 } | |
446 | |
447 void serv_chat_whisper(int id, char *who, char *message) | |
448 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
449 char buf2[MSG_LEN]; |
1 | 450 #ifndef USE_OSCAR |
451 g_snprintf(buf2, sizeof(buf2), "toc_chat_whisper %d %s \"%s\"", id, who, message); | |
452 sflap_send(buf2, -1, TYPE_DATA); | |
453 #endif | |
454 } | |
455 | |
456 void serv_chat_send(int id, char *message) | |
457 { | |
237
6ced2f1c8b24
[gaim-migrate @ 247]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
200
diff
changeset
|
458 char buf[MSG_LEN]; |
1 | 459 #ifndef USE_OSCAR |
460 g_snprintf(buf, sizeof(buf), "toc_chat_send %d \"%s\"",id, message); | |
461 sflap_send(buf, -1, TYPE_DATA); | |
462 #endif | |
463 } | |
464 | |
465 | |
466 | |
467 | |
468 void serv_got_im(char *name, char *message, int away) | |
469 { | |
470 struct conversation *cnv; | |
471 int is_idle = -1; | |
472 int new_conv = 0; | |
473 char *nname; | |
474 | |
94
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
475 #ifdef GAIM_PLUGINS |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
476 GList *c = callbacks; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
477 struct gaim_callback *g; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
478 void (*function)(char **, char **, void *); |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
479 while (c) { |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
480 g = (struct gaim_callback *)c->data; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
481 if (g->event == event_im_recv && g->function != NULL) { |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
482 function = g->function; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
483 /* I can guarantee you this is wrong */ |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
484 (*function)(&name, &message, g->data); |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
485 } |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
486 c = c->next; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
487 } |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
488 /* make sure no evil plugin is trying to crash gaim */ |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
489 if (message == NULL) |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
490 return; |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
491 #endif |
9f6ce50ffb78
[gaim-migrate @ 104]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
79
diff
changeset
|
492 |
1 | 493 nname = g_strdup(normalize(name)); |
494 | |
171
789c792ed14b
[gaim-migrate @ 181]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
145
diff
changeset
|
495 if (!strcasecmp(normalize(current_user->username), nname)) { |
1 | 496 if (!strcmp(message, LAGOMETER_STR)) { |
497 struct timeval tv; | |
498 int ms; | |
499 | |
500 gettimeofday(&tv, NULL); | |
501 | |
502 ms = 1000000 * (tv.tv_sec - lag_tv.tv_sec); | |
503 | |
504 ms += tv.tv_usec - lag_tv.tv_usec; | |
505 | |
506 update_lagometer(ms); | |
507 g_free(nname); | |
508 return; | |
509 } | |
14 | 510 } |
1 | 511 g_free(nname); |
512 | |
513 cnv = find_conversation(name); | |
145
41bd1cd48571
[gaim-migrate @ 155]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
136
diff
changeset
|
514 if (away) away = WFLAG_AUTO; |
1 | 515 |
516 if (awaymessage != NULL) { | |
517 if (!(general_options & OPT_GEN_DISCARD_WHEN_AWAY)) { | |
518 if (cnv == NULL) { | |
519 new_conv = 1; | |
520 cnv = new_conversation(name); | |
521 } | |
522 } | |
523 if (cnv != NULL) { | |
524 if (sound_options & OPT_SOUND_WHEN_AWAY) | |
525 play_sound(AWAY); | |
145
41bd1cd48571
[gaim-migrate @ 155]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
136
diff
changeset
|
526 write_to_conv(cnv, message, away | WFLAG_RECV); |
1 | 527 } |
528 | |
529 } else { | |
530 if (cnv == NULL) { | |
531 new_conv = 1; | |
532 cnv = new_conversation(name); | |
533 } | |
534 if (new_conv && (sound_options & OPT_SOUND_FIRST_RCV)) { | |
535 play_sound(FIRST_RECEIVE); | |
536 } else { | |
537 if (cnv->makesound && (sound_options & OPT_SOUND_RECV)) | |
538 play_sound(RECEIVE); | |
539 } | |
145
41bd1cd48571
[gaim-migrate @ 155]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
136
diff
changeset
|
540 write_to_conv(cnv, message, away | WFLAG_RECV); |
1 | 541 } |
542 | |
543 | |
544 | |
545 | |
546 if (awaymessage != NULL) { | |
547 time_t t; | |
548 | |
549 time(&t); | |
550 | |
551 | |
552 if ((cnv == NULL) || (t - cnv->sent_away) < 120) | |
553 return; | |
554 | |
555 cnv->sent_away = t; | |
556 | |
557 if (is_idle) | |
558 is_idle = -1; | |
559 | |
560 serv_send_im(name, awaymessage->message, 1); | |
561 | |
562 if (is_idle == -1) | |
563 is_idle = 1; | |
564 | |
565 if (cnv != NULL) | |
566 write_to_conv(cnv, awaymessage->message, WFLAG_SEND | WFLAG_AUTO); | |
567 } | |
568 } | |
569 | |
570 | |
571 | |
572 void serv_got_update(char *name, int loggedin, int evil, time_t signon, time_t idle, int type) | |
573 { | |
574 struct buddy *b; | |
575 char *nname; | |
576 | |
577 b = find_buddy(name); | |
578 | |
579 nname = g_strdup(normalize(name)); | |
580 if (!strcasecmp(nname, normalize(current_user->username))) { | |
581 correction_time = (int)(signon - login_time); | |
582 update_all_buddies(); | |
25 | 583 if (!b) { |
584 g_free(nname); | |
1 | 585 return; |
25 | 586 } |
1 | 587 } |
588 | |
25 | 589 g_free(nname); |
1 | 590 |
591 if (!b) { | |
592 sprintf(debug_buff,"Error, no such person\n"); | |
593 debug_print(debug_buff); | |
594 return; | |
595 } | |
596 | |
597 /* This code will 'align' the name from the TOC */ | |
598 /* server with what's in our record. We want to */ | |
599 /* store things how THEY want it... */ | |
600 if (strcmp(name, b->name)) { | |
601 GList *cnv = conversations; | |
602 struct conversation *cv; | |
603 | |
604 char *who = g_malloc(80); | |
605 | |
606 strcpy(who, normalize(name)); | |
607 | |
608 while(cnv) { | |
609 cv = (struct conversation *)cnv->data; | |
610 if (!strcasecmp(who, normalize(cv->name))) { | |
611 g_snprintf(cv->name, sizeof(cv->name), "%s", name); | |
612 if (find_log_info(name) || (general_options & OPT_GEN_LOG_ALL)) | |
613 g_snprintf(who, 63, LOG_CONVERSATION_TITLE, name); | |
614 else | |
615 g_snprintf(who, 63, CONVERSATION_TITLE, name); | |
616 gtk_window_set_title(GTK_WINDOW(cv->window), who); | |
79 | 617 /* was g_free(buf), but break gives us that |
618 * and freeing twice is not good --Sumner */ | |
1 | 619 break; |
620 } | |
621 cnv = cnv->next; | |
622 } | |
45 | 623 g_free(who); |
1 | 624 g_snprintf(b->name, sizeof(b->name), "%s", name); |
625 /*gtk_label_set_text(GTK_LABEL(b->label), b->name);*/ | |
626 | |
627 /* okay lets save the new config... */ | |
628 | |
629 } | |
630 | |
631 b->idle = idle; | |
632 b->evil = evil; | |
136
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
633 #ifdef GAIM_PLUGINS |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
634 if ((b->uc & UC_UNAVAILABLE) && !(type & UC_UNAVAILABLE)) { |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
635 GList *c = callbacks; |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
636 struct gaim_callback *g; |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
637 void (*function)(char *, void *); |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
638 while (c) { |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
639 g = (struct gaim_callback *)c->data; |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
640 if (g->event == event_buddy_back && |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
641 g->function != NULL) { |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
642 function = g->function; |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
643 (*function)(b->name, g->data); |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
644 } |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
645 c = c->next; |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
646 } |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
647 } |
4e91b92f91a7
[gaim-migrate @ 146]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
115
diff
changeset
|
648 #endif |
1 | 649 b->uc = type; |
650 | |
651 b->signon = signon; | |
652 | |
653 if (loggedin) { | |
654 if (!b->present) { | |
655 b->present = 1; | |
656 do_pounce(b->name); | |
657 } | |
658 } else | |
659 b->present = 0; | |
660 | |
661 set_buddy(b); | |
662 } | |
663 | |
664 static | |
665 void close_warned(GtkWidget *w, GtkWidget *w2) | |
666 { | |
667 gtk_widget_destroy(w2); | |
668 } | |
669 | |
670 | |
671 | |
672 void serv_got_eviled(char *name, int lev) | |
673 { | |
674 char *buf2 = g_malloc(1024); | |
675 GtkWidget *d, *label, *close; | |
676 | |
677 | |
678 g_snprintf(buf2, 1023, "You have just been warned by %s.\nYour new warning level is %d./%%", | |
679 ((name == NULL) ? "an anonymous person" : name) , lev); | |
680 | |
681 | |
682 d = gtk_dialog_new(); | |
683 gtk_widget_realize(d); | |
684 aol_icon(d->window); | |
685 | |
686 label = gtk_label_new(buf2); | |
687 gtk_widget_show(label); | |
688 close = gtk_button_new_with_label("Close"); | |
689 gtk_widget_show(close); | |
690 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(d)->vbox), | |
691 label, FALSE, FALSE, 5); | |
692 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(d)->action_area), | |
693 close, FALSE, FALSE, 5); | |
694 | |
695 gtk_window_set_title(GTK_WINDOW(d), "Warned"); | |
696 gtk_signal_connect(GTK_OBJECT(close), "clicked", GTK_SIGNAL_FUNC(close_warned), d); | |
697 gtk_widget_show(d); | |
698 } | |
699 | |
700 | |
701 | |
702 static void close_invite(GtkWidget *w, GtkWidget *w2) | |
703 { | |
704 gtk_widget_destroy(w2); | |
705 } | |
706 | |
707 static void chat_invite_callback(GtkWidget *w, GtkWidget *w2) | |
708 { | |
709 int i = (int)gtk_object_get_user_data(GTK_OBJECT(w2)); | |
710 serv_accept_chat(i); | |
711 gtk_widget_destroy(w2); | |
712 } | |
713 | |
714 | |
715 | |
716 void serv_got_chat_invite(char *name, int id, char *who, char *message) | |
717 { | |
718 GtkWidget *d; | |
719 GtkWidget *label; | |
720 GtkWidget *yesbtn; | |
721 GtkWidget *nobtn; | |
722 | |
723 char buf2[BUF_LONG]; | |
724 | |
725 | |
726 g_snprintf(buf2, sizeof(buf2), "User '%s' invites you to buddy chat room: '%s'\n%s", who, name, message); | |
727 | |
728 d = gtk_dialog_new(); | |
729 gtk_widget_realize(d); | |
730 aol_icon(d->window); | |
731 | |
732 | |
733 label = gtk_label_new(buf2); | |
734 gtk_widget_show(label); | |
735 yesbtn = gtk_button_new_with_label("Yes"); | |
736 gtk_widget_show(yesbtn); | |
737 nobtn = gtk_button_new_with_label("No"); | |
738 gtk_widget_show(nobtn); | |
739 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(d)->vbox), | |
740 label, FALSE, FALSE, 5); | |
741 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(d)->action_area), | |
742 yesbtn, FALSE, FALSE, 5); | |
743 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(d)->action_area), | |
744 nobtn, FALSE, FALSE, 5); | |
745 | |
746 | |
747 /* gtk_widget_set_usize(d, 200, 110); */ | |
748 gtk_object_set_user_data(GTK_OBJECT(d), (void *)id); | |
749 | |
750 | |
751 gtk_window_set_title(GTK_WINDOW(d), "Buddy chat invite"); | |
752 gtk_signal_connect(GTK_OBJECT(nobtn), "clicked", GTK_SIGNAL_FUNC(close_invite), d); | |
753 gtk_signal_connect(GTK_OBJECT(yesbtn), "clicked", GTK_SIGNAL_FUNC(chat_invite_callback), d); | |
754 | |
755 | |
756 gtk_widget_show(d); | |
757 } | |
758 | |
759 void serv_got_joined_chat(int id, char *name) | |
760 { | |
761 struct buddy_chat *b; | |
762 | |
763 b = (struct buddy_chat *)g_new0(struct buddy_chat, 1); | |
764 buddy_chats = g_list_append(buddy_chats, b); | |
765 | |
766 b->ignored = NULL; | |
767 b->in_room = NULL; | |
768 b->id = id; | |
769 g_snprintf(b->name, 80, "%s", name); | |
770 show_new_buddy_chat(b); | |
771 } | |
772 | |
773 void serv_got_chat_left(int id) | |
774 { | |
775 GList *bcs = buddy_chats; | |
776 struct buddy_chat *b = NULL; | |
777 | |
778 | |
779 while(bcs) { | |
780 b = (struct buddy_chat *)bcs->data; | |
781 if (id == b->id) { | |
782 break; | |
783 } | |
784 b = NULL; | |
785 bcs = bcs->next; | |
786 } | |
787 | |
788 if (!b) | |
789 return; | |
790 | |
791 if (b->window) | |
792 gtk_widget_destroy(GTK_WIDGET(b->window)); | |
793 | |
794 buddy_chats = g_list_remove(buddy_chats, b); | |
795 | |
796 g_free(b); | |
797 } | |
798 | |
799 void serv_got_chat_in(int id, char *who, int whisper, char *message) | |
800 { | |
801 int w; | |
802 GList *bcs = buddy_chats; | |
803 struct buddy_chat *b = NULL; | |
804 | |
805 while(bcs) { | |
806 b = (struct buddy_chat *)bcs->data; | |
807 if (id == b->id) | |
808 break; | |
809 bcs = bcs->next; | |
810 b = NULL; | |
811 | |
812 } | |
813 if (!b) | |
814 return; | |
815 | |
816 if (whisper) | |
817 w = WFLAG_WHISPER; | |
818 else | |
819 w = 0; | |
820 | |
821 chat_write(b, who, w, message); | |
822 } | |
823 | |
824 |