plugins/perl/perl.c

changeset 6100
53fc37becbb7
parent 6063
8fbafa2e1846
child 6235
8293e7d4c050
equal deleted inserted replaced
6099:3498d9a53eba 6100:53fc37becbb7
1043 case event_blist_update: 1043 case event_blist_update:
1044 buf[0] = tmpbuf3; 1044 buf[0] = tmpbuf3;
1045 break; 1045 break;
1046 case event_new_conversation: 1046 case event_new_conversation:
1047 case event_del_conversation: 1047 case event_del_conversation:
1048 case event_conversation_switch:
1048 buf[0] = arg1; 1049 buf[0] = arg1;
1049 break; 1050 break;
1050 case event_im_displayed_sent: 1051 case event_im_displayed_sent:
1051 if (!*(char**)arg3) return 1; 1052 if (!*(char**)arg3) return 1;
1052 g_snprintf(tmpbuf1, 16, "%lu", (unsigned long)arg1); 1053 g_snprintf(tmpbuf1, 16, "%lu", (unsigned long)arg1);

mercurial