Mercurial > pidgin
comparison src/perl.c @ 3517:6b0cb60162f4
[gaim-migrate @ 3590]
Rob McQueen added a mute feature to his nice little docklet. I added a
queuing feature. Configure the docklet in the plugins dialog to queue
unread messages, and when you receive a message the docklet will eat it up
and show a little message pending icon. Click on it, and read your message.
ICQ people will like it.
I also made plugin_event use a va_list.
I bet this breaks perl.
committer: Tailor Script <tailor@pidgin.im>
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Mon, 16 Sep 2002 08:35:24 +0000 |
parents | e23909729192 |
children | cd938f18f3f8 |
comparison
equal
deleted
inserted
replaced
3516:db00eb77997d | 3517:6b0cb60162f4 |
---|---|
660 if (b) | 660 if (b) |
661 serv_chat_send(gc, id, what); | 661 serv_chat_send(gc, id, what); |
662 XSRETURN(0); | 662 XSRETURN(0); |
663 } | 663 } |
664 | 664 |
665 int perl_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4) | 665 int perl_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5) |
666 { | 666 { |
667 char *buf = NULL; | 667 char *buf = NULL; |
668 GList *handler; | 668 GList *handler; |
669 struct _perl_event_handlers *data; | 669 struct _perl_event_handlers *data; |
670 SV *handler_return; | 670 SV *handler_return; |
752 case event_warned: | 752 case event_warned: |
753 buf = g_strdup_printf("'%lu','%s','%d'", (unsigned long)arg1, | 753 buf = g_strdup_printf("'%lu','%s','%d'", (unsigned long)arg1, |
754 arg2 ? escape_quotes(arg2) : "", (int)arg3); | 754 arg2 ? escape_quotes(arg2) : "", (int)arg3); |
755 break; | 755 break; |
756 case event_quit: | 756 case event_quit: |
757 case event_blist_update: | |
757 buf = g_malloc0(1); | 758 buf = g_malloc0(1); |
758 break; | 759 break; |
759 case event_new_conversation: | 760 case event_new_conversation: |
760 case event_del_conversation: | 761 case event_del_conversation: |
761 buf = g_strdup_printf("'%s'", escape_quotes(arg1)); | 762 buf = g_strdup_printf("'%s'", escape_quotes(arg1)); |
778 buf = g_strdup_printf("'%lu','%s','%s'", (unsigned long)arg1, tmp2, tmp3); | 779 buf = g_strdup_printf("'%lu','%s','%s'", (unsigned long)arg1, tmp2, tmp3); |
779 g_free(tmp2); | 780 g_free(tmp2); |
780 g_free(tmp3); | 781 g_free(tmp3); |
781 } | 782 } |
782 break; | 783 break; |
784 case event_draw_menu: | |
785 /* we can't handle this usefully without gtk/perl bindings */ | |
786 return 0; | |
783 default: | 787 default: |
784 debug_printf("someone forgot to handle %s in the perl binding\n", event_name(event)); | 788 debug_printf("someone forgot to handle %s in the perl binding\n", event_name(event)); |
785 return 0; | 789 return 0; |
786 } | 790 } |
787 | 791 |