Mercurial > pidgin
comparison src/plugins.c @ 1100:f168625b63fe
[gaim-migrate @ 1110]
some perl updates, and indication of which account got warned
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Thu, 16 Nov 2000 08:48:01 +0000 |
parents | 4927ce25d8cc |
children | cd96ca1aed02 |
comparison
equal
deleted
inserted
replaced
1099:4416ead31db7 | 1100:f168625b63fe |
---|---|
617 break; | 617 break; |
618 } | 618 } |
619 return buf; | 619 return buf; |
620 } | 620 } |
621 | 621 |
622 void plugin_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4) { | 622 int plugin_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4) { |
623 #ifdef USE_PERL | 623 #ifdef USE_PERL |
624 char buf[BUF_LONG]; | 624 char buf[BUF_LONG]; |
625 char *tmp; | 625 char *tmp; |
626 #endif | 626 #endif |
627 #ifdef GAIM_PLUGINS | 627 #ifdef GAIM_PLUGINS |
819 break; | 819 break; |
820 } | 820 } |
821 tmp = event_name(event); | 821 tmp = event_name(event); |
822 g_snprintf(debug_buff, sizeof debug_buff, "%s: %s\n", tmp, buf); | 822 g_snprintf(debug_buff, sizeof debug_buff, "%s: %s\n", tmp, buf); |
823 debug_print(debug_buff); | 823 debug_print(debug_buff); |
824 perl_event(tmp, buf); | 824 return perl_event(tmp, buf); |
825 #else | |
826 return 0; | |
825 #endif | 827 #endif |
826 } | 828 } |