/*
   3APA3A simpliest proxy server
   (c) 2002-2004 by ZARAZA <3APA3A@security.nnov.ru>

   please read License Agreement

   $Id: sockmap.c,v 1.18 2005/05/20 13:18:55 vlad Exp $
*/

#include "proxy.h"

#define BUFSIZE ((param->service == S_UDPPM)?UDPBUFSIZE:TCPBUFSIZE)


int sockmap(struct clientparam * param, int timeo){
 int res=0, sent=0, received=0;
 SASIZETYPE sasize;
 struct pollfd fds[2];
 int sleeptime = 0, stop = 0;

 fds[0].fd = param->clisock;
 fds[1].fd = param->remsock;

 if(!param->waitclient){
	if(!param->srvbuf && (!(param->srvbuf=myalloc(BUFSIZE)) || !(param->srvbufsize = BUFSIZE))){
		return (21);
	}
 }
 if(!param->waitserver){
	if(!param->clibuf && (!(param->clibuf=myalloc(BUFSIZE)) || !(param->clibufsize = BUFSIZE))){
		return (21);
	}
 }

 for (;!stop;){
	sasize = sizeof(struct sockaddr_in);
	if(param->maxtraf && param->statssrv >= param->maxtraf){
		return (90);
	}
	fds[0].events = fds[1].events = 0;
	if(param->srvinbuf > param->srvoffset && !param->waitclient) {
		fds[0].events |= POLLOUT;
	}
	if(param->srvinbuf < param->srvbufsize && !param->waitclient) {
		fds[1].events |= POLLIN;
	}

	if(param->cliinbuf > param->clioffset && !param->singlepacket && !param->waitserver) {
		fds[1].events |= POLLOUT;
	}
    	if(param->cliinbuf < param->clibufsize && !param->singlepacket && !param->waitserver) {
		fds[0].events |= POLLIN;
	}
	if((res = poll(fds, 2, timeo*1000)) < 1){
		return res?91:92;
	}
	if((fds[0].revents & POLLOUT)){
		if(param->bandlimfunc) {
			sleeptime = (*param->bandlimfunc)(param, param->srvinbuf - param->srvoffset);
		}
		res = sendto(param->clisock, param->srvbuf + param->srvoffset, param->srvinbuf - param->srvoffset, 0, (struct sockaddr*)&param->sinc, sasize);
		if(res < 0) {
			if(errno != EAGAIN) return 96;
			continue;
		}
		param->srvoffset += res;
		param->statssrv += res;
		received += res;
		if(param->srvoffset == param->srvinbuf) param->srvoffset = param->srvinbuf = 0;
		if(param->waitserver && param->waitserver<= received){
			return (98);
		}
	}
	if((fds[1].revents & POLLOUT)){
		res = sendto(param->remsock, param->clibuf + param->clioffset, param->cliinbuf - param->clioffset, 0, (struct sockaddr*)&param->sins, sasize);
		if(res < 0) {
			if(errno != EAGAIN) return 97;
			continue;
		}
		param->clioffset += res;
		sent += res;
		param->statscli += res;
		if(param->clioffset == param->cliinbuf) param->clioffset = param->cliinbuf = 0;
		if(param->waitclient && param->waitclient<= sent) {
			return (99);
		}
	}
	if ((fds[0].revents & POLLIN)) {
		res = recvfrom(param->clisock, param->clibuf + param->cliinbuf, param->clibufsize - param->cliinbuf, 0, (struct sockaddr *)&param->sinc, &sasize);
		if (res==0) {
			shutdown(param->clisock, SHUT_RDWR);
			closesocket(param->clisock);
			fds[0].fd = param->clisock = INVALID_SOCKET;
			stop = 1;
		}
		else {
			if (res < 0 && errno != EAGAIN) {
				return (94);
			}
			param->cliinbuf += res;
		}
	}
	if (!stop && (fds[1].revents & POLLIN)) {
		res = recvfrom(param->remsock, param->srvbuf + param->srvinbuf, param->srvbufsize - param->srvinbuf, 0, NULL, &sasize);
		if (res==0) {
			shutdown(param->remsock, SHUT_RDWR);
			closesocket(param->remsock);
			fds[1].fd = param->remsock = INVALID_SOCKET;
			stop = 1;
		}
		else {
			if (res < 0 && errno != EAGAIN) {
				return (93);
			}
			param->srvinbuf += res;
		}
	}
	if(sleeptime > 0) {
		if(sleeptime > (timeo * 1000)){return (95);}
		usleep(sleeptime * SLEEPTIME);
		sleeptime = 0;
	}
 }
 if(param->srvinbuf > param->srvoffset && fds[1].fd != INVALID_SOCKET){
	res = socksend(fds[1].fd, param->srvbuf + param->srvoffset, param->srvinbuf - param->srvoffset, conf.timeouts[STRING_S]);
	if(res > 0){
		param->srvoffset += res;
		if(param->srvoffset == param->srvinbuf) param->srvoffset = param->srvinbuf = 0;
	}
 } 
 if(param->cliinbuf > param->clioffset && fds[0].fd != INVALID_SOCKET){
	res = socksend(fds[0].fd, param->clibuf + param->clioffset, param->cliinbuf - param->clioffset, conf.timeouts[STRING_S]);
	if(res > 0){
		param->clioffset += res;
		if(param->cliinbuf == param->clioffset) param->cliinbuf = param->clioffset = 0;
	}
 } 
 return 0;
}