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 }