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; |