Mercurial > pidgin
changeset 14355:fb675c9eef7a
[gaim-migrate @ 17061]
Update perl to reflect the changes to gaim_util_fetch_url(). I hope
this compiles.
committer: Tailor Script <tailor@pidgin.im>
| author | Mark Doliner <mark@kingant.net> |
|---|---|
| date | Sun, 27 Aug 2006 21:18:20 +0000 |
| parents | 01daacf7b771 |
| children | 4ae3c2913c3e |
| files | libgaim/plugins/perl/common/Util.xs libgaim/plugins/perl/common/module.h libgaim/plugins/perl/common/typemap |
| diffstat | 3 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/libgaim/plugins/perl/common/Util.xs Sun Aug 27 21:13:30 2006 +0000 +++ b/libgaim/plugins/perl/common/Util.xs Sun Aug 27 21:18:20 2006 +0000 @@ -4,8 +4,8 @@ char *cb; } GaimPerlUrlData; -static void gaim_perl_util_url_cb(void *data, const char *url_data, size_t size) { - GaimPerlUrlData *gpr = (GaimPerlUrlData *)data; +static void gaim_perl_util_url_cb(Gaim::Util::FetchUrlData *url_data, void *user_data, const gchar *url_data, size_t size, const gchar *error_message) { + GaimPerlUrlData *gpr = (GaimPerlUrlData *)user_data; dSP; ENTER; SAVETMPS; @@ -26,7 +26,7 @@ PROTOTYPES: ENABLE void -gaim_url_fetch(handle, url, full, user_agent, http11, cb) +gaim_util_fetch_url(handle, url, full, user_agent, http11, cb) Gaim::Plugin handle const char *url gboolean full @@ -44,7 +44,7 @@ gpr = g_new(GaimPerlUrlData, 1); gpr->cb = g_strdup_printf("%s::%s", package, SvPV(cb, len)); - gaim_url_fetch(url, full, user_agent, http11, gaim_perl_util_url_cb, gpr); + gaim_util_fetch_url(url, full, user_agent, http11, gaim_perl_util_url_cb, gpr); int gaim_build_dir(path, mode)
--- a/libgaim/plugins/perl/common/module.h Sun Aug 27 21:13:30 2006 +0000 +++ b/libgaim/plugins/perl/common/module.h Sun Aug 27 21:18:20 2006 +0000 @@ -248,7 +248,7 @@ typedef GaimStringref * Gaim__Stringref; /* util.h */ -typedef GaimInfoFieldFormatCallback Gaim__Util__InfoFieldFormatCallback; +typedef GaimUtilFetchUrlData Gaim__Util__FetchUrlData; typedef GaimMenuAction * Gaim__Menu__Action; /* value.h */
--- a/libgaim/plugins/perl/common/typemap Sun Aug 27 21:13:30 2006 +0000 +++ b/libgaim/plugins/perl/common/typemap Sun Aug 27 21:18:20 2006 +0000 @@ -157,6 +157,7 @@ Gaim::StoredImage T_GaimObj Gaim::Stringref T_GaimObj +Gaim::Util::FetchUrlData T_PTR Gaim::Util::InfoFieldFormatCallback T_PTR Gaim::Value T_GaimObj