# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1156713500 0
# Node ID fb675c9eef7a91579a7d89476b0d22787e29449d
# Parent  01daacf7b771baa885ca7f4931bb18e4114a4001
[gaim-migrate @ 17061]
Update perl to reflect the changes to gaim_util_fetch_url().  I hope
this compiles.

committer: Tailor Script <tailor@pidgin.im>

diff -r 01daacf7b771 -r fb675c9eef7a libgaim/plugins/perl/common/Util.xs
--- 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)
diff -r 01daacf7b771 -r fb675c9eef7a libgaim/plugins/perl/common/module.h
--- 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 */
diff -r 01daacf7b771 -r fb675c9eef7a libgaim/plugins/perl/common/typemap
--- 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