comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 5436
- a0e0bacaa196
- parent 5408
- 65200df172a8
- child 5445
- 161029ee66a6
equal
deleted
inserted
replaced
| 5435:990c340ecb6d | 5436:a0e0bacaa196 |
|---|---|
| 105 char *handler_args; | 105 char *handler_args; |
| 106 gint iotag; | 106 gint iotag; |
| 107 GaimPlugin *plug; | 107 GaimPlugin *plug; |
| 108 }; | 108 }; |
| 109 | 109 |
| 110 static GaimPlugin *my_plugin = NULL; | |
| 110 static GList *perl_list = NULL; | 111 static GList *perl_list = NULL; |
| 111 static GList *perl_timeout_handlers = NULL; | 112 static GList *perl_timeout_handlers = NULL; |
| 112 static GList *perl_event_handlers = NULL; | 113 static GList *perl_event_handlers = NULL; |
| 113 static PerlInterpreter *my_perl = NULL; | 114 static PerlInterpreter *my_perl = NULL; |
| 114 static void perl_init(); | 115 static void perl_init(); |
| 656 dXSARGS; | 657 dXSARGS; |
| 657 items = 0; | 658 items = 0; |
| 658 | 659 |
| 659 title = SvPV(ST(0), junk); | 660 title = SvPV(ST(0), junk); |
| 660 message = SvPV(ST(1), junk); | 661 message = SvPV(ST(1), junk); |
| 661 do_error_dialog(title, message, GAIM_INFO); | 662 gaim_dialog_info(my_plugin, NULL, title, message); |
| 662 XSRETURN(0); | 663 XSRETURN(0); |
| 663 } | 664 } |
| 664 | 665 |
| 665 XS (XS_GAIM_buddy_list) | 666 XS (XS_GAIM_buddy_list) |
| 666 { | 667 { |
| 1390 }; | 1391 }; |
| 1391 | 1392 |
| 1392 static void | 1393 static void |
| 1393 __init_plugin(GaimPlugin *plugin) | 1394 __init_plugin(GaimPlugin *plugin) |
| 1394 { | 1395 { |
| 1396 my_plugin = plugin; | |
| 1397 | |
| 1395 loader_info.exts = g_list_append(loader_info.exts, "pl"); | 1398 loader_info.exts = g_list_append(loader_info.exts, "pl"); |
| 1396 } | 1399 } |
| 1397 | 1400 |
| 1398 GAIM_INIT_PLUGIN(perl, __init_plugin, info); | 1401 GAIM_INIT_PLUGIN(perl, __init_plugin, info); |
