#include <stdio.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>

#include "listen.h"

void rspf_dump(unsigned char *data, int length)
{
	int bptr, nodes, links, adjs;
	
	lprintf(T_IPHDR, "RSPF: version %u ", data[0]);
	
	switch(data[1])
	{
		case 3:	/* RRH */
			lprintf(T_IPHDR, "type RRH seq %#04x flags %d\n",ntohs(*((u_short*)(&data[8]))), data[10]);
			bptr = 11;
			while (bptr < length)			
				lprintf(T_IPHDR, "%c", data[bptr++]);
			lprintf(T_IPHDR, "\n");
			break;
		case 1: /*Routing update*/
			lprintf(T_IPHDR, "type ROUTING UPDATE ");
			lprintf(T_IPHDR, "fragment %u frag total %u sync %u #nodes %u env_id %u\n", data[2], data[3], data[6], data[7], ntohs(*((u_short*)(&data[8]))));
			
			bptr = data[6] + 6;
			nodes = data[7];
			while(nodes-- && (length - bptr) > 7)
			{
				lprintf(T_DATA, "     Reporting Router: %s Seq %u Subseq %u #links %u\n", inet_ntoa(*((struct in_addr*)(&data[bptr]))), ntohs(*((u_short*)(&data[bptr+4]))), data[bptr+6], data[bptr+7]);
				links = data[bptr+7];
				bptr += 8;
				while(links-- && (length - bptr) > 4)
				{
					lprintf(T_DATA, "          horizon %u ERP factor %u cost %u #adjacencies %u\n", data[bptr], data[bptr+1], data[bptr+2], data[bptr+3]);
					adjs = data[bptr+3];
					bptr += 4;
					while(adjs-- && (length - bptr) > 4)
					{
						lprintf(T_DATA, "               %s/%d \n", inet_ntoa(*((struct in_addr*)(&data[bptr+1]))), data[bptr] & 0x3f);
						bptr += 5;
					}
				}
			} 											
			break;
		default:
			lprintf(T_ERROR, "Unknown packet type %d\n", data[1]);
			break;
	}
}