/*
	Various normally long or blocking system/network function
	implemented using forktmp()
*/
#include <netdb.h>
#include <misc.h>
#include "tlmpdia.h"
#include "tlmpdia.m"

struct ui_ipaddr{
	unsigned char adr[4];
	bool found;
};

/*
	Find the IP (in ASCII form, so IPv6 and v4 will be supported).
	Return -1 if not found.
*/
<mod>
int ui_gethostbyname (const char *host, SSTRING &ip)
{
	int ret = -1;
	glocal const char *host = host;
	glocal SHAREMEM<ui_ipaddr> a;
	glocal.a.p.found = false;
	<call forktmp>(20);
	<f task>
		struct hostent *ent = gethostbyname(glocal.host);
		if (ent != NULL){
			glocal.a.p.found = true;
			glocal.a.p.adr[0] = ent->h_addr[0];
			glocal.a.p.adr[1] = ent->h_addr[1];
			glocal.a.p.adr[2] = ent->h_addr[2];
			glocal.a.p.adr[3] = ent->h_addr[3];
		}
	</f>
	</call>
	if (glocal.a.p.found){
		ret = 0;
		ip.setfromf ("%ld.%ld.%ld.%ld"
			,glocal.a.p.adr[0]
			,glocal.a.p.adr[1]
			,glocal.a.p.adr[2]
			,glocal.a.p.adr[3]);
	}
	return ret;
}
</mod>