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


#define Maks_liczba_klientow 5


char *Klienci[Maks_liczba_klientow];
int Gniazda[5] = {-1, -1, -1, -1, -1};


void Wyslij_wiadomosc(int Gniazdo_klienta, char *Adres_klienta)
{
    char Wiadomosc[2048];
    int i = 0;

    memset(Wiadomosc, 0, 2048);

    recv(Gniazdo_klienta, Wiadomosc, 2048, 0);

    printf("%s\n", Wiadomosc);

    for (i = 0; i < Maks_liczba_klientow; i++) {
        printf("%s\n", Klienci[i]);
        if (Klienci[i][0] != '\0' && strcmp(Klienci[i], Adres_klienta) != 0) {
            printf("Wysyłam do klienta %s\n", Klienci[i]);
            send(Gniazda[i], Wiadomosc, strlen(Wiadomosc), 0);
        }
    }

    return;
}


int main(void)
{
    short Klient_istnieje = -1;
    short Wolne_miejsce = Maks_liczba_klientow;
    int i = 0;
    int Port;
    char Buffor[1024];
    int Gniazdo_serwera, Gniazdo_klienta;

    struct sockaddr_in Serwer, Klient;

    for (i = 0; i < Maks_liczba_klientow; i++)
    {
        Klienci[i] = malloc(64 * sizeof(char));
    }

    socklen_t Rozmiar_gniazda_serwera = sizeof(struct sockaddr_in);

    printf("Podaj port do nasluchiwania:");
    scanf("%u", &Port);

    Gniazdo_serwera = socket(PF_INET, SOCK_STREAM, 0);

    Serwer.sin_family = AF_INET;
    Serwer.sin_port = htons(Port);
    Serwer.sin_addr.s_addr = INADDR_ANY;

    memset(Serwer.sin_zero, 0, sizeof(Serwer.sin_zero));

    if (bind(Gniazdo_serwera, (struct sockaddr*) &Serwer, Rozmiar_gniazda_serwera) < 0)
    {
        printf("Bind nie powiodl sie.\n");
        return 1;
    }

    if (listen(Gniazdo_serwera, 10) < 0)
    {
        printf("Listen nie powiodl sie.\n");
        return 1;
    }

    printf("Czekam na polaczenie ...\n");

    while (1)
    {
        Gniazdo_klienta = accept(Gniazdo_serwera, (struct sockaddr*) &Klient, &Rozmiar_gniazda_serwera);

        printf("Wiadomosc od %s: %s\n", inet_ntoa(Klient.sin_addr), Buffor);

        Klient_istnieje = -1;

        for (i = 0; i < Maks_liczba_klientow; i++)
        {
            if (strcmp(Klienci[i], inet_ntoa(Klient.sin_addr)) == 0)
            {
                Klient_istnieje = i;
                break;
            }
        }


        if (Klient_istnieje < 0)
        {
            if (Wolne_miejsce > 0)
            {
                Wolne_miejsce -= 1;

                for (i = 0; i < Maks_liczba_klientow; i++)
                {
                    if (Klienci[i][0] == '\0')
                    {
                        strcpy(Klienci[i], inet_ntoa(Klient.sin_addr));
                        Gniazda[i] = Gniazdo_klienta;
                        Klient_istnieje = i;
                        break;
                    }
                }

            }
        }

        if (Klient_istnieje >= 0)
        {
            if (fork() == 0)
            {
                printf("Obsługuję klienta...\n");

                Wyslij_wiadomosc(Gniazdo_klienta, Klienci[Klient_istnieje]);

                printf("Skończyłem\n");

                close(Gniazdo_klienta);

                exit(0);
            }

            close(Gniazdo_klienta);
        }

    }

    close(Gniazdo_serwera);

    return 0;
}