libpurple/plugins/perl/common/Network.xs

Thu, 01 Jan 2015 19:40:48 -0500

author
Daniel Atallah <datallah@pidgin.im>
date
Thu, 01 Jan 2015 19:40:48 -0500
branch
release-2.x.y
changeset 36301
2b4af2e09a67
parent 33897
f7d55c9c57d3
child 33933
bd00e2d2b32e
permissions
-rw-r--r--

Update windows build to use perl 5.20.1. Thanks to Renato Silva for much of this. Fixes #15599

* Remove the stuff for looking up ActivePerl (and MIT Kerberos) at startup and installation

#include "module.h"

MODULE = Purple::Network  PACKAGE = Purple::Network  PREFIX = purple_network_
PROTOTYPES: ENABLE

const char *
purple_network_get_local_system_ip(fd)
	int fd

const char *
purple_network_get_my_ip(fd)
	int fd

unsigned short
purple_network_get_port_from_fd(fd)
	int fd

const char *
purple_network_get_public_ip()

const unsigned char *
purple_network_ip_atoi(ip)
	const char *ip
PPCODE:
	RETVAL = purple_network_ip_atoi(ip);
	sv_setpvn(TARG, (const char *)RETVAL, 4);
	XSprePUSH;
	PUSHTARG;

Purple::NetworkListenData
purple_network_listen(port, socket_type, cb, cb_data)
	unsigned short port
	int socket_type
	Purple::NetworkListenCallback cb
	gpointer cb_data

Purple::NetworkListenData
purple_network_listen_range(start, end, socket_type, cb, cb_data)
	unsigned short start
	unsigned short end
	int socket_type
	Purple::NetworkListenCallback cb
	gpointer cb_data

void
purple_network_set_public_ip(ip)
	const char *ip

mercurial