#include "bipc.h"

#define SERVER "server"
#define CLIENT "client"
#define DATE   "DATE"



static void
fatal(const char *func, int rv)
{
        fprintf(stderr, "%s: %s\n", func, bipc_strerror(rv));
        exit(1);
}

char *
date(void)
{
        time_t now = time(&now);
        struct tm *info = localtime(&now);
        char *text = asctime(info);
        text[strlen(text)-1] = '\0'; // remove '\n'
        return (text);
}

int
server(const char *url)
{
    bipc_socket_t sock;
    int rv;

    
    if ((rv = bipc_listen(&sock, url, SURVEY)) != 0) {
        fatal("nng_listen", rv);
    }
    for (;;) {
        printf("SERVER: SENDING DATE SURVEY REQUEST\n");
        if ((rv = bipc_send(&sock, DATE, strlen(DATE) + 1)) != 0) {
            fatal("nng_send", rv);
        }

        for (;;) {
            char *buf = NULL;
            size_t sz;
            rv = bipc_recv(&sock, &buf, &sz);
            if (rv == BIPC_ETIMEDOUT) {
                break;
            }
            if (rv != 0) {
                fatal("nng_recv", rv);
            }
            printf("SERVER: RECEIVED \"%s\" SURVEY RESPONSE\n", buf);
            bipc_free(buf, sz);
        }

        printf("SERVER: SURVEY COMPLETE\n");
    }
}

int
client(const char *url, const char *name)
{
        bipc_socket_t sock;
        int rv;
         
        if ((rv = bipc_connect(&sock, url, SURVEY)) != 0) {
            fatal("nng_dial", rv);
        }
        for (;;) {
            char *buf = NULL;
            size_t sz;
            if ((rv = bipc_recv(&sock, &buf, &sz)) == 0) {
                printf("CLIENT (%s): RECEIVED \"%s\" SURVEY REQUEST, length=%d\n", name, buf, sz);
                bipc_free(buf, sz);
                char *d = date();
                printf("CLIENT (%s): SENDING DATE SURVEY RESPONSE\n", name);
                if ((rv = bipc_send(&sock, d, strlen(d) + 1)) != 0) {
                    fatal("nng_send", rv);
                }
            }
        }
}

int
main(const int argc, const char **argv)
{
    if ((argc >= 2) && (strcmp(SERVER, argv[1]) == 0))
        return (server(argv[2]));

    if ((argc >= 3) && (strcmp(CLIENT, argv[1]) == 0))
        return (client(argv[2], argv[3]));

    fprintf(stderr, "Usage: survey %s|%s <URL> <ARG> ...\n",
        SERVER, CLIENT);
    return 1;
}