4 * The routines for sending/receiving Instant Messages.
11 * Send an ICBM (instant message).
15 * AIM_IMFLAGS_AWAY -- Marks the message as an autoresponse
16 * AIM_IMFLAGS_ACK -- Requests that the server send an ack
17 * when the message is received (of type 0x0004/0x000c)
20 u_long aim_send_im(struct aim_session_t *sess,
21 struct aim_conn_t *conn,
22 char *destsn, u_int flags, char *msg)
26 struct command_tx_struct newpacket;
28 newpacket.lock = 1; /* lock struct */
29 newpacket.type = 0x02; /* IMs are always family 0x02 */
31 newpacket.conn = conn;
33 newpacket.conn = aim_getconn_type(sess, AIM_CONN_TYPE_BOS);
36 * Its simplest to set this arbitrarily large and waste
37 * space. Precalculating is costly here.
39 newpacket.commandlen = 1152;
41 newpacket.data = (u_char *) calloc(1, newpacket.commandlen);
44 curbyte += aim_putsnac(newpacket.data+curbyte,
45 0x0004, 0x0006, 0x0000, sess->snac_nextid);
48 * Generate a random message cookie
50 * We could cache these like we do SNAC IDs. (In fact, it
51 * might be a good idea.) In the message error functions,
52 * the 8byte message cookie is returned as well as the
57 curbyte += aimutil_put8(newpacket.data+curbyte, (u_char) random());
62 curbyte += aimutil_put16(newpacket.data+curbyte,0x0001);
65 * Destination SN (prepended with byte length)
67 curbyte += aimutil_put8(newpacket.data+curbyte,strlen(destsn));
68 curbyte += aimutil_putstr(newpacket.data+curbyte, destsn, strlen(destsn));
73 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0002);
74 curbyte += aimutil_put16(newpacket.data+curbyte, strlen(msg) + 0x0d);
79 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0501);
80 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0001);
81 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0101);
82 curbyte += aimutil_put8 (newpacket.data+curbyte, 0x01);
85 * Message block length.
87 curbyte += aimutil_put16(newpacket.data+curbyte, strlen(msg) + 0x04);
92 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0000);
93 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0000);
96 * Message. Not terminated.
98 curbyte += aimutil_putstr(newpacket.data+curbyte,msg, strlen(msg));
101 * Set the Request Acknowledge flag.
103 if (flags & AIM_IMFLAGS_ACK)
105 curbyte += aimutil_put16(newpacket.data+curbyte,0x0003);
106 curbyte += aimutil_put16(newpacket.data+curbyte,0x0000);
110 * Set the Autoresponse flag.
112 if (flags & AIM_IMFLAGS_AWAY)
114 curbyte += aimutil_put16(newpacket.data+curbyte,0x0004);
115 curbyte += aimutil_put16(newpacket.data+curbyte,0x0000);
118 newpacket.commandlen = curbyte;
120 aim_tx_enqueue(sess, &newpacket);
122 #ifdef USE_SNAC_FOR_IMS
124 struct aim_snac_t snac;
126 snac.id = sess->snac_nextid;
127 snac.family = 0x0004;
131 snac.data = malloc(strlen(destsn)+1);
132 memcpy(snac.data, destsn, strlen(destsn)+1);
134 aim_newsnac(sess, &snac);
137 aim_cleansnacs(sess, 60); /* clean out all SNACs over 60sec old */
140 return (sess->snac_nextid++);
144 * It can easily be said that parsing ICBMs is THE single
145 * most difficult thing to do in the in AIM protocol. In
146 * fact, I think I just did say that.
148 * Below is the best damned solution I've come up with
149 * over the past sixteen months of battling with it. This
150 * can parse both away and normal messages from every client
151 * I have access to. Its not fast, its not clean. But it works.
153 * We should also support at least minimal parsing of
154 * Channel 2, so that we can at least know the name of the
155 * room we're invited to, but obviously can't attend...
158 int aim_parse_incoming_im_middle(struct aim_session_t *sess,
159 struct command_rx_struct *command)
161 struct aim_userinfo_s userinfo;
162 u_int i = 0, j = 0, y = 0, z = 0;
165 rxcallback_t userfunc = NULL;
168 struct aim_tlvlist_t *tlvlist;
169 struct aim_tlv_t *msgblocktlv, *tmptlv;
174 memset(&userinfo, 0x00, sizeof(struct aim_userinfo_s));
176 i = 10; /* Skip SNAC header */
179 * Read ICBM Cookie. And throw away.
181 for (z=0; z<8; z++,i++)
182 cookie[z] = command->data[i];
187 * Channel 0x0001 is the message channel. There are
188 * other channels for things called "rendevous"
189 * which represent chat and some of the other new
190 * features of AIM2/3/3.5. We only support
191 * standard messages; those on channel 0x0001.
193 channel = aimutil_get16(command->data+i);
195 if (channel != 0x0001)
197 printf("faim: icbm: ICBM received on an unsupported channel. Ignoring.\n (chan = %04x)", channel);
202 * Source screen name.
204 memcpy(userinfo.sn, command->data+i+1, (int)command->data[i]);
205 userinfo.sn[(int)command->data[i]] = '\0';
206 i += 1 + (int)command->data[i];
211 wastebits = aimutil_get16(command->data+i);
213 wastebits = aimutil_get16(command->data+i);
217 * Read block of TLVs. All further data is derived
218 * from what is parsed here.
220 tlvlist = aim_readtlvchain(command->data+i, command->commandlen-i);
223 * Check Autoresponse status. If it is an autoresponse,
224 * it will contain a second type 0x0004 TLV, with zero length.
226 if (aim_gettlv(tlvlist, 0x0004, 2))
227 icbmflags |= AIM_IMFLAGS_AWAY;
230 * Check Ack Request status.
232 if (aim_gettlv(tlvlist, 0x0003, 2))
233 icbmflags |= AIM_IMFLAGS_ACK;
236 * Extract the various pieces of the userinfo struct.
239 if ((tmptlv = aim_gettlv(tlvlist, 0x0001, 1)))
240 userinfo.class = aimutil_get16(tmptlv->value);
241 /* Member-since date. */
242 if ((tmptlv = aim_gettlv(tlvlist, 0x0002, 1)))
244 /* If this is larger than 4, its probably the message block, skip */
245 if (tmptlv->length <= 4)
246 userinfo.membersince = aimutil_get32(tmptlv->value);
249 if ((tmptlv = aim_gettlv(tlvlist, 0x0003, 1)))
250 userinfo.onlinesince = aimutil_get32(tmptlv->value);
252 if ((tmptlv = aim_gettlv(tlvlist, 0x0004, 1)))
253 userinfo.idletime = aimutil_get16(tmptlv->value);
254 /* Session Length (AIM) */
255 if ((tmptlv = aim_gettlv(tlvlist, 0x000f, 1)))
256 userinfo.sessionlen = aimutil_get16(tmptlv->value);
257 /* Session Length (AOL) */
258 if ((tmptlv = aim_gettlv(tlvlist, 0x0010, 1)))
259 userinfo.sessionlen = aimutil_get16(tmptlv->value);
264 * XXX: Will the msgblock always be the second 0x0002?
266 msgblocktlv = aim_gettlv(tlvlist, 0x0002, 1);
269 printf("faim: icbm: major error! no message block TLV found!\n");
270 aim_freetlvchain(&tlvlist);
274 * Extracting the message from the unknown cruft.
276 * This is a bit messy, and I'm not really qualified,
277 * even as the author, to comment on it. At least
278 * its not as bad as a while loop shooting into infinity.
280 * "Do you believe in magic?"
283 msgblock = msgblocktlv->value;
286 wastebits = aimutil_get8(msgblock+j++);
287 wastebits = aimutil_get8(msgblock+j++);
289 y = aimutil_get16(msgblock+j);
291 for (z = 0; z < y; z++)
292 wastebits = aimutil_get8(msgblock+j++);
293 wastebits = aimutil_get8(msgblock+j++);
294 wastebits = aimutil_get8(msgblock+j++);
297 * Message string length, including flag words.
299 i = aimutil_get16(msgblock+j);
305 * Its rumored that these can kick in some funky
306 * 16bit-wide char stuff that used to really kill
307 * libfaim. Hopefully the latter is no longer true.
309 * Though someone should investiagte the former.
312 flag1 = aimutil_get16(msgblock+j);
314 flag2 = aimutil_get16(msgblock+j);
318 printf("faim: icbm: **warning: encoding flags are being used! {%04x, %04x}\n", flag1, flag2);
324 msg = (char *)malloc(i+1);
325 memcpy(msg, msgblock+j, i);
329 * Free up the TLV chain.
331 aim_freetlvchain(&tlvlist);
336 userfunc = aim_callhandler(command->conn, 0x0004, 0x0007);
338 i = userfunc(sess, command, &userinfo, msg, icbmflags, flag1, flag2);
348 * Not real sure what this does, nor does anyone I've talk to.
350 * Didn't use to send it. But now I think it might be a good
354 u_long aim_seticbmparam(struct aim_session_t *sess,
355 struct aim_conn_t *conn)
357 struct command_tx_struct newpacket;
362 newpacket.conn = conn;
364 newpacket.conn = aim_getconn_type(sess, AIM_CONN_TYPE_BOS);
365 newpacket.type = 0x02;
367 newpacket.commandlen = 10 + 16;
368 newpacket.data = (u_char *) malloc (newpacket.commandlen);
370 curbyte = aim_putsnac(newpacket.data, 0x0004, 0x0002, 0x0000, sess->snac_nextid);
371 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0000);
372 curbyte += aimutil_put32(newpacket.data+curbyte, 0x00000003);
373 curbyte += aimutil_put8(newpacket.data+curbyte, 0x1f);
374 curbyte += aimutil_put8(newpacket.data+curbyte, 0x40);
375 curbyte += aimutil_put8(newpacket.data+curbyte, 0x03);
376 curbyte += aimutil_put8(newpacket.data+curbyte, 0xe7);
377 curbyte += aimutil_put8(newpacket.data+curbyte, 0x03);
378 curbyte += aimutil_put8(newpacket.data+curbyte, 0xe7);
379 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0000);
380 curbyte += aimutil_put16(newpacket.data+curbyte, 0x0000);
382 aim_tx_enqueue(sess, &newpacket);
384 return (sess->snac_nextid++);
387 int aim_parse_msgerror_middle(struct aim_session_t *sess,
388 struct command_rx_struct *command)
390 u_long snacid = 0x000000000;
391 struct aim_snac_t *snac = NULL;
393 rxcallback_t userfunc = NULL;
396 * Get SNAC from packet and look it up
397 * the list of unrepliedto/outstanding
400 * After its looked up, the SN that the
401 * message should've gone to will be
402 * in the ->data element of the snac struct.
405 snacid = aimutil_get32(command->data+6);
406 snac = aim_remsnac(sess, snacid);
410 printf("faim: msgerr: got an ICBM-failed error on an unknown SNAC ID! (%08lx)\n", snacid);
416 userfunc = aim_callhandler(command->conn, 0x0004, 0x0001);
418 ret = userfunc(sess, command, (snac)?snac->data:"(UNKNOWN)");