Mercurial > pidgin
comparison src/perl.c @ 964:2cd7b73e2c9a
[gaim-migrate @ 974]
damn i'm smooth. chat is working now. :)
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Tue, 10 Oct 2000 10:04:59 +0000 |
| parents | fa681641643d |
| children | 2586b2a3725e |
comparison
equal
deleted
inserted
replaced
| 963:c1fb7afe4fd7 | 964:2cd7b73e2c9a |
|---|---|
| 474 serv_send_im(nick, what, 0); | 474 serv_send_im(nick, what, 0); |
| 475 } | 475 } |
| 476 | 476 |
| 477 XS (XS_AIM_print_to_chat) | 477 XS (XS_AIM_print_to_chat) |
| 478 { | 478 { |
| 479 /* FIXME: need to make this multi-connection based | |
| 479 char *nick, *what; | 480 char *nick, *what; |
| 480 struct conversation *c = NULL; | 481 struct conversation *c = NULL; |
| 481 GList *bcs = buddy_chats; | 482 GList *bcs = buddy_chats; |
| 482 int junk; | 483 int junk; |
| 483 dXSARGS; | 484 dXSARGS; |
| 493 c = NULL; | 494 c = NULL; |
| 494 } | 495 } |
| 495 if (!c) | 496 if (!c) |
| 496 XSRETURN(0); | 497 XSRETURN(0); |
| 497 serv_chat_send(c->id, what); | 498 serv_chat_send(c->id, what); |
| 499 */ | |
| 498 } | 500 } |
| 499 | 501 |
| 500 int perl_event(char *event, char *args) | 502 int perl_event(char *event, char *args) |
| 501 { | 503 { |
| 502 GList *handler; | 504 GList *handler; |