diff -r 94dcf9e39d66 -r 4b933b06d75e libpurple/plugins/perl/common/Network.xs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/common/Network.xs	Sat Jan 20 02:32:10 2007 +0000
@@ -0,0 +1,45 @@
+#include "module.h"
+
+MODULE = Gaim::Network  PACKAGE = Gaim::Network  PREFIX = gaim_network_
+PROTOTYPES: ENABLE
+
+const char *
+gaim_network_get_local_system_ip(fd)
+	int fd
+
+const char *
+gaim_network_get_my_ip(fd)
+	int fd
+
+unsigned short
+gaim_network_get_port_from_fd(fd)
+	int fd
+
+const char *
+gaim_network_get_public_ip()
+
+void
+gaim_network_init()
+
+const unsigned char *
+gaim_network_ip_atoi(ip)
+	const char *ip
+
+Gaim::NetworkListenData
+gaim_network_listen(port, socket_type, cb, cb_data)
+	unsigned short port
+	int socket_type
+	Gaim::NetworkListenCallback cb
+	gpointer cb_data
+
+Gaim::NetworkListenData
+gaim_network_listen_range(start, end, socket_type, cb, cb_data)
+	unsigned short start
+	unsigned short end
+	int socket_type
+	Gaim::NetworkListenCallback cb
+	gpointer cb_data
+
+void
+gaim_network_set_public_ip(ip)
+	const char *ip