#include <cstdlib>
#include <iostream>
#include "winsock2.h"

#define MY_PORT 89
using namespace std;

#define PRINTNUSERS if (nclients) printf("%d user online\n",nclients);else printf("No User on line\n");
DWORD WINAPI SexToClient(LPVOID client_socket);
int nclients = 0;

int main(int argc, char *argv[])
{
    char buff[1024];
    if (WSAStartup(0x0202,(WSADATA *) &buff[0]))
    {
        // Ошибка!
        printf("Error WSAStartup %d\n",WSAGetLastError());
        return -1;
    }
    
    SOCKET mysocket;
    if ((mysocket=socket(AF_INET,SOCK_STREAM,0))<0)
    {
        // Ошибка!
        printf("Error socket %d\n",WSAGetLastError());
        WSACleanup(); // Деиницилизация библиотеки Winsock
        return -1;
    }
    
    sockaddr_in local_addr;
    local_addr.sin_family=AF_INET;
    local_addr.sin_port=htons(MY_PORT); // не забываем о сетевом порядке!!!
    local_addr.sin_addr.s_addr=0;
    
    if (bind(mysocket,(sockaddr *) &local_addr, sizeof(local_addr)))
    {
        // Ошибка
        printf("Error bind %d\n",WSAGetLastError());
        closesocket(mysocket); // закрываем сокет!
        WSACleanup();
        return -1;
    }
    
    if (listen(mysocket, 0x100))
    {
        // Ошибка
        printf("Error listen %d\n",WSAGetLastError());
        closesocket(mysocket);
        WSACleanup();
        return -1;
    }
    
    printf("OZHIDANIE…\n");
    SOCKET client_socket; // сокет для клиента
    sockaddr_in client_addr; // адрес клиента (заполняется системой)

    // функции accept необходимо передать размер структуры
    int client_addr_size=sizeof(client_addr);
    // цикл извлечения запросов на подключение из очереди
    while((client_socket=accept(mysocket, (sockaddr *) &client_addr, &client_addr_size)))
    {
        nclients++; // увеличиваем счетчик подключившихся клиентов
        // пытаемся получить имя хоста
        HOSTENT *hst;
        hst=gethostbyaddr((char *) &client_addr.sin_addr.s_addr,4,AF_INET);
        // вывод сведений о клиенте
        printf("+%s [%s] new connect!\n",
        (hst)?hst->h_name:"",inet_ntoa(client_addr.sin_addr));
        PRINTNUSERS
        // Вызов нового потока для обслужвания клиента
        // Да, для этого рекомендуется использовать _beginthreadex
        // но, поскольку никаких вызов функций стандартной Си библиотеки
        // поток не делает, можно обойтись и CreateThread
        DWORD thID;
        CreateThread(0,0,SexToClient,&client_socket,0,&thID);
    }
    return 0;
    
    //---------------------------------------------
    //system("PAUSE");
    return EXIT_SUCCESS;
}

DWORD WINAPI SexToClient(LPVOID client_socket)
{
    SOCKET my_sock;
    my_sock=((SOCKET *) client_socket)[0];
    char buff[20*1024];
    #define sHELLO "Hello, Sailor\r\n"
    if (send(my_sock, "HTTP/1.1 200 OK\n", 16, 0) == -1)
    {
    printf("ERROR HTTP\r\n");
    return -1;
    }
    if (send(my_sock, "Server: 192.168.1.195\n", 16, 0) == -1)
    {
    printf("ERROR Server\r\n");
    return -1;
    }
    if (send(my_sock, "Content-Length: 5\n", 16, 0) == -1)
    {
    printf("ERROR Content-Length\r\n");
    return -1;
    }
    if (send(my_sock, "Content-Type: text/html\n\n", 16, 0) == -1)
    {
    printf("ERROR Content-Type\r\n");
    return -1;
    }
    if (send(my_sock, "HELLO", 16, 0) == -1)
    {
    printf("ERROR HELLO\r\n");
    return -1;
    }
    // отправляем клиенту приветствие
    //send(my_sock,sHELLO,sizeof(sHELLO),0);
    // цикл эхосервера: прием строки от клиента и возвращение ее клиенту
    int bytes_recv;
   /* while( ( bytes_recv=recv(my_sock,&buff[0],sizeof(buff),0)) &&    (bytes_recv !=SOCKET_ERROR)){
           send(my_sock,&buff[0],bytes_recv,0);
    }*/
    // если мы здесь, то произошел выход из цикла по причине
    // возращения функцией recv ошибки – соединение с клиентом разорвано
    nclients--; // уменьшаем счетчик активных клиентов
    printf("disconnect\n"); PRINTNUSERS
    // закрываем сокет
    closesocket(my_sock);
    return 0;
}