#include "samples.h"

struct sap_data
{
    uint16_t sap_type;
    char     sap_name[48];
    uint32_t sap_net;
    uint8_t  sap_node[6];
    uint16_t sap_sock;
    uint16_t sap_hops;
} __attribute__ ((packed));

int main(int argc, char **argv)
{
	int s;
	int result;
	struct sockaddr_ipx sipx;
	char msg[1024];
	long val = 0;
	char *bptr;
	struct sap_data *sp;

	s = socket(AF_IPX, SOCK_DGRAM, AF_IPX);
	if (s < 0)
	{
		perror("IPX: socket: ");
		exit(-1);
	}
	result = setsockopt(s, SOL_SOCKET, SO_DEBUG, &val, 4);
	if (result < 0)
	{
		perror("IPX: setsockopt: ");
		exit(-1);
	}
	sipx.sipx_family = PF_IPX;
	sipx.sipx_network = 0L;
	sipx.sipx_port = htons(0x452);
	sipx.sipx_type = 17;

	result = bind(s, (struct sockaddr *) &sipx, sizeof(sipx));
	if (result < 0)
	{
		perror("IPX: bind: ");
		exit(-1);
	}
	while (1)
	{
		socklen_t len;
		size_t rclen;

		len = 1024;
		result = recvfrom(s, msg, sizeof(msg), 0,
				  (struct sockaddr *) &sipx, &len);
		if (result < 0)
		{
			perror("IPX: recvfrom: ");
			exit(-1);
		}
		if (result < 2) {
			fprintf(stderr, "Received packet is too short to be SAP packet (%d bytes)\n", result);
			continue;
		}
		rclen = result - 2;
		bptr = msg;
		printf("SAP: OP is %x %x\n", bptr[0], bptr[1]);
		printf("Length is %zu\n", rclen);
		if (bptr[1] != 2)
			continue;

		bptr += 2;
		sp = (struct sap_data *) bptr;
		while (rclen >= sizeof(struct sap_data))
		{
			int i;

			sp->sap_name[32] = '\0';
			for (i = 31; (i > 0) && (sp->sap_name[i] == '_'); i--);
			i++;
			sp->sap_name[i] = '\0';
			printf("NAME: %s TYPE: %x HOPS: %x\n", sp->sap_name,
			       ntohs(sp->sap_type), ntohs(sp->sap_hops));
			printf("%x:%x %x %x %x %x %x: %x\n",
			       (u_int32_t)ntohl(sp->sap_net),
			       sp->sap_node[0],
			       sp->sap_node[1],
			       sp->sap_node[2],
			       sp->sap_node[3],
			       sp->sap_node[4],
			       sp->sap_node[5],
			       ntohs(sp->sap_sock));
			rclen -= sizeof(struct sap_data);
			sp++;
		}
	}
}