comparison: src/perl.c
src/perl.c
- changeset 2488
- 7adade336cb0
- parent 2397
- 432ccc0c7f18
- child 2511
- cea8ce69dec0
equal
deleted
inserted
replaced
| 2487:729107de47ac | 2488:7adade336cb0 |
|---|---|
| 322 } | 322 } |
| 323 break; | 323 break; |
| 324 case 2: | 324 case 2: |
| 325 { | 325 { |
| 326 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); | 326 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); |
| 327 debug_printf("%lu %lu\n", connections->data, gc); | |
| 328 if (g_slist_find(connections, gc)) | 327 if (g_slist_find(connections, gc)) |
| 329 XST_mIV(i++, gc->protocol); | 328 XST_mIV(i++, gc->protocol); |
| 330 else | 329 else |
| 331 XST_mIV(i++, -1); | 330 XST_mIV(i++, -1); |
| 332 } | 331 } |
| 333 break; | 332 break; |
| 334 case 3: | 333 case 3: |
| 335 { | 334 { |
| 336 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); | 335 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); |
| 337 debug_printf("%lu %lu\n", connections->data, gc); | |
| 338 if (g_slist_find(connections, gc)) | 336 if (g_slist_find(connections, gc)) |
| 339 XST_mPV(i++, gc->username); | 337 XST_mPV(i++, gc->username); |
| 340 else | 338 else |
| 341 XST_mPV(i++, ""); | 339 XST_mPV(i++, ""); |
| 342 } | 340 } |
| 343 break; | 341 break; |
| 344 case 4: | 342 case 4: |
| 345 { | 343 { |
| 346 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); | 344 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); |
| 347 debug_printf("%lu %lu\n", connections->data, gc); | |
| 348 if (g_slist_find(connections, gc)) | 345 if (g_slist_find(connections, gc)) |
| 349 XST_mIV(i++, g_slist_index(aim_users, gc->user)); | 346 XST_mIV(i++, g_slist_index(aim_users, gc->user)); |
| 350 else | 347 else |
| 351 XST_mIV(i++, -1); | 348 XST_mIV(i++, -1); |
| 352 } | 349 } |
| 372 } | 369 } |
| 373 break; | 370 break; |
| 374 case 7: | 371 case 7: |
| 375 { | 372 { |
| 376 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); | 373 struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1)); |
| 377 debug_printf("%lu %lu\n", connections->data, gc); | |
| 378 if (g_slist_find(connections, gc)) | 374 if (g_slist_find(connections, gc)) |
| 379 XST_mPV(i++, (*gc->prpl->name)()); | 375 XST_mPV(i++, (*gc->prpl->name)()); |
| 380 else | 376 else |
| 381 XST_mPV(i++, "Unknown"); | 377 XST_mPV(i++, "Unknown"); |
| 382 } | 378 } |
| 607 return; | 603 return; |
| 608 } | 604 } |
| 609 c = find_conversation(nick); | 605 c = find_conversation(nick); |
| 610 if (!c) | 606 if (!c) |
| 611 c = new_conversation(nick); | 607 c = new_conversation(nick); |
| 608 set_convo_gc(c, gc); | |
| 612 write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL)); | 609 write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL)); |
| 613 serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0); | 610 serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0); |
| 614 XSRETURN(0); | 611 XSRETURN(0); |
| 615 } | 612 } |
| 616 | 613 |
