#include <winsock2.h>
#include <ws2tcpip.h>
#include <stdio.h>
#include <time.h>

#define IP 		"0.0.0.0"
#define PORT 		1980
#define BUF_SIZE 	4096

int main(int argc, char *argv[])
{
	int err_num;
	WSADATA wsa_data;
	SOCKET lisn_sock = INVALID_SOCKET;
	SOCKET conn_sock = INVALID_SOCKET;
	struct sockaddr_in sockaddr;
	char buf[BUF_SIZE];
	time_t now;
	char *ptime;

	err_num = WSAStartup(MAKEWORD(2,2), &wsa_data);
	if(0 != err_num) {
		printf("WSAStartup err: %d\n", err_num);
		goto quit;
	}

	lisn_sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
	if(INVALID_SOCKET == lisn_sock) {
		err_num = WSAGetLastError();
		printf("socket err: %d\n", err_num);
		goto quit;
	}
	printf("lisn_sock: %ld\n", (long)lisn_sock);

	memset(&sockaddr, 0, sizeof(sockaddr));
	sockaddr.sin_family = AF_INET;
	sockaddr.sin_port = htons(PORT);
	sockaddr.sin_addr.s_addr = inet_addr(IP);
	if(SOCKET_ERROR == bind(lisn_sock, (struct sockaddr*)&sockaddr, sizeof(sockaddr))) {
		err_num = WSAGetLastError();
		printf("bind err: %d\n", err_num);
		goto quit;
	}

	if(SOCKET_ERROR == listen(lisn_sock, SOMAXCONN)) {
		err_num = WSAGetLastError();
		printf("listen err: %d\n", err_num);
		goto quit;
	}

	for(;;) {
		printf("accept:\n");
		socklen_t sockaddr_size = sizeof(sockaddr);
		conn_sock = accept(lisn_sock, (struct sockaddr*)&sockaddr, &sockaddr_size);
		if(INVALID_SOCKET == conn_sock) {
			err_num = WSAGetLastError();
			printf("accept err: %d\n", err_num);
			goto quit;
		}
		printf("accept: %ld, %s:%u\n", (long)conn_sock, inet_ntoa(sockaddr.sin_addr), ntohs(sockaddr.sin_port));

		if(SOCKET_ERROR == getsockname(conn_sock, (struct sockaddr*)&sockaddr, (void*)&sockaddr_size)) {
			err_num = WSAGetLastError();
			printf("getsockname err: %d\n", err_num);
			goto close;
		}
		printf("getsockname: %s:%d\n", inet_ntoa(sockaddr.sin_addr), ntohs(sockaddr.sin_port));

		if(SOCKET_ERROR == getpeername(conn_sock, (struct sockaddr*)&sockaddr, (void*)&sockaddr_size)) {
			err_num = WSAGetLastError();
			printf("getpeername err: %d\n", err_num);
			goto close;
		}
		printf("getpeername: %s:%d\n", inet_ntoa(sockaddr.sin_addr), ntohs(sockaddr.sin_port));

		now = time(NULL);
		if(-1 == now) {
			err_num = errno;
			printf("time err: %d\n", err_num);
			goto close;
		}
		ptime = ctime(&now);
		if(NULL == ptime) {
			err_num = errno;
			printf("ctime err: %d\n", err_num);
			goto close;
		}
		strcpy(buf, ptime);

		int send_size = send(conn_sock, buf, strlen(buf), 0);
		if(send_size<0) {
			err_num = WSAGetLastError();
			printf("send err: %d\n", err_num);
			goto close;
		}
		if(send_size==0) {
			printf("send closed\n");
			goto close;
		}
		printf("send_size: %d\n", send_size);
	close:
		printf("close\n");
		closesocket(conn_sock);
	}

	err_num = 0;
quit:
	closesocket(lisn_sock);
	WSACleanup();

	return err_num;
}