Mercurial > pidgin

comparison libgaim/plugins/perl/perl-handlers.c @ 14364:338ac096e322

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 17070] Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow). Fix gaim_util_fetch_url and plug some leaks. I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet. The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function. committer: Tailor Script <tailor@pidgin.im>
author Daniel Atallah <daniel.atallah@gmail.com>
date Mon, 28 Aug 2006 20:27:03 +0000
parents 60b1bc8dbf37
children b1fcd2fc903a
comparison
equal deleted inserted replaced
14363:4558e71a5a34 14364:338ac096e322
101 LEAVE; 101 LEAVE;
102 102
103 return l; 103 return l;
104 } 104 }
105 105
106 #ifdef GAIM_GTKPERL
106 GtkWidget * 107 GtkWidget *
107 gaim_perl_gtk_get_plugin_frame(GaimPlugin *plugin) 108 gaim_perl_gtk_get_plugin_frame(GaimPlugin *plugin)
108 { 109 {
109 SV * sv; 110 SV * sv;
110 int count; 111 int count;
136 FREETMPS; 137 FREETMPS;
137 LEAVE; 138 LEAVE;
138 139
139 return ret; 140 return ret;
140 } 141 }
142 #endif
141 143
142 GaimPluginPrefFrame * 144 GaimPluginPrefFrame *
143 gaim_perl_get_plugin_frame(GaimPlugin *plugin) 145 gaim_perl_get_plugin_frame(GaimPlugin *plugin)
144 { 146 {
145 /* Sets up the Perl Stack for our call back into the script to run the 147 /* Sets up the Perl Stack for our call back into the script to run the