/*
 * Copyright (c) 2006 Bjorn Andersson <flex@kryo.se>, Erik Ekman <yarrick@kryo.se>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <signal.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <err.h>
#include <arpa/inet.h>

#include "tun.h"
#include "dns.h"

#ifndef MAX
#define MAX(a,b) ((a)>(b)?(a):(b))
#endif

#define FRAMESIZE (64*1024)

#define POLL_MAX 4

static int poll_sec[] = 	{1, 	0, 	0, 	0, 	0};
static int poll_usec[] = 	{0,	400000,	200000,	100000,	50000};

int running = 1;

static void
sigint(int sig) {
	running = 0;
}

static int
tunnel(int tun_fd, int dns_fd)
{
	int i;
	int read;
	int fastpoll;
	fd_set fds;
	struct timeval tv;
	struct tun_frame *frame;

	frame = malloc(FRAMESIZE);
	fastpoll = 0;

	while (running) {
		if (fastpoll > 0) {
			fastpoll--;
			printf("Fast poll %d\n", fastpoll);
		}
		tv.tv_sec = poll_sec[fastpoll];
		tv.tv_usec = poll_usec[fastpoll];

		FD_ZERO(&fds);
		if (!dns_sending()) 
			FD_SET(tun_fd, &fds);
		FD_SET(dns_fd, &fds);

		i = select(MAX(tun_fd, dns_fd) + 1, &fds, NULL, NULL, &tv);
		
		if(i < 0) {
			if (running) {
				warn("select");
			}
			return 1;
		}
		
		if(i == 0) {
			dns_ping(dns_fd);
		} else {
			if(FD_ISSET(tun_fd, &fds)) {
				read = read_tun(tun_fd, frame, FRAMESIZE);
				if (read > 0) {
					printf("Got data on tun! %d bytes\n", read);
					dns_handle_tun(dns_fd, frame->data, read - 4);
				}
			}
			if(FD_ISSET(dns_fd, &fds)) {
				read = dns_read(dns_fd, frame->data, FRAMESIZE-4);
				if (read > 0) {
					printf("Got data on dns! %d bytes\n", read);

					frame->flags = htons(0x0000);
#ifdef LINUX
					frame->proto = htons(0x0800);	// Linux wants ETH_P_IP
#else
					frame->proto = htons(0x0002);	// BSD wants AF_INET as long word
#endif
					
					write_tun(tun_fd, frame, read + 4);
					fastpoll = POLL_MAX;
				}
			} 
		}
	}

	free(frame);

	return 0;
}

int
main(int argc, char **argv)
{
	int tun_fd;
	int dns_fd;

	if (argc != 3) {
		printf("Usage: %s nameserver topdomain\n", argv[0]);
		exit(2);
	}

	tun_fd = open_tun();
	dns_fd = open_dns(argv[1], argv[2]);

	signal(SIGINT, sigint);
	
	tunnel(tun_fd, dns_fd);

	printf("Closing tunnel\n");

	close_dns(dns_fd);
	close_tun(tun_fd);

	return 0;
}