[awesomized/libmemcached] / tests / server.c

/* LibMemcached
 * Copyright (C) 2006-2009 Brian Aker
 * All rights reserved.
 *
 * Use and distribution licensed under the BSD license.  See
 * the COPYING file in the parent directory for full text.
 *
 * Summary:
 *
 */

/*
  Startup, and shutdown the memcached servers.
*/

#define TEST_PORT_BASE MEMCACHED_DEFAULT_PORT+10

#include "config.h"

#include <assert.h>
#include <limits.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/time.h>
#include <time.h>
#include <unistd.h>

#include <libmemcached/memcached.h>
#include <libmemcached/util.h>

#include "server.h"

static void kill_file(const char *file_buffer)
{
  FILE *fp= fopen(file_buffer, "r");

  if (fp != NULL)
  {
    char pid_buffer[1024];

    if (fgets(pid_buffer, sizeof(pid_buffer), fp) != NULL)
    {
      pid_t pid= (pid_t)atoi(pid_buffer);
      if (pid != 0)
      {
        if (kill(pid, SIGTERM) == -1)
        {
          perror(file_buffer);
        }
      }
    }

    fclose(fp);
  }
}

void server_startup(server_startup_st *construct)
{
  if ((construct->server_list= getenv("MEMCACHED_SERVERS")))
  {
    printf("servers %s\n", construct->server_list);
    construct->servers= memcached_servers_parse(construct->server_list);
    construct->server_list= NULL;
    construct->count= 0;
  }
  else
  {
    {
      char server_string_buffer[8096];
      char *end_ptr;
      end_ptr= server_string_buffer;

      for (uint32_t x= 0; x < construct->count; x++)
      {
        int count;
        int status;
        in_port_t port;

        {
          char *var;
          char variable_buffer[1024];

          snprintf(variable_buffer, sizeof(variable_buffer), "LIBMEMCACHED_PORT_%u", x);

          if ((var= getenv(variable_buffer)))
          {
            port= (in_port_t)atoi(var);
          }
          else
          {
            port= (in_port_t)(x + TEST_PORT_BASE);
          }
        }

        char buffer[PATH_MAX];

        snprintf(buffer, sizeof(buffer), "/tmp/%umemc.pid", x);

        uint32_t counter= 3;
        while (--counter)
        {
          if (access(buffer, F_OK) == 0)
          {
            kill_file(buffer);
#ifndef WIN32
            struct timespec req= { .tv_sec= 0, .tv_nsec= 5000 };
            nanosleep(&req, NULL);
#endif
          }
          else
          {
            break;
          }
        }

        if (x == 0)
        {
          snprintf(buffer, sizeof(buffer), "%s -d -u root -P /tmp/%umemc.pid -t 1 -p %u -U %u -m 128",
                   MEMCACHED_BINARY, x, port, port);
        }
        else
        {
          snprintf(buffer, sizeof(buffer), "%s -d -u root -P /tmp/%umemc.pid -t 1 -p %u -U %u",
                   MEMCACHED_BINARY, x, port, port);
        }
        if (libmemcached_util_ping("localhost", port, NULL))
        {
          fprintf(stderr, "Server on port %u already exists\n", port);
        }
        else
        {
          status= system(buffer);
          fprintf(stderr, "STARTING SERVER: %s  status:%d\n", buffer, status);
        }
        count= sprintf(end_ptr, "localhost:%u,", port);
        end_ptr+= count;
      }
      *end_ptr= 0;

      for (uint32_t x= 0; x < construct->count; x++)
      {
        uint32_t counter= 3;
        char buffer[PATH_MAX]; /* Nothing special for number */

        snprintf(buffer, sizeof(buffer), "/tmp/%umemc.pid", x);

        bool was_started= false;
        while (--counter)
        {
          int memcached_pid;

          FILE *file;
          file= fopen(buffer, "r");
          if (file == NULL)
          {
#ifndef WIN32
            struct timespec req= { .tv_sec= 0, .tv_nsec= 5000 };
            nanosleep(&req, NULL);
#endif
            continue;
          }
          char *found= fgets(buffer, sizeof(buffer), file);
          if (!found)
            continue;
          
          // Yes, we currently pitch this and don't make use of it.
          memcached_pid= atoi(buffer);
          fclose(file);
          was_started= true;
          break;
        }

        if (was_started == false)
        {
          fprintf(stderr, "Failed to open buffer %s\n", buffer);
          abort();
        }
      }

      construct->server_list= strdup(server_string_buffer);
    }
    printf("servers %s\n", construct->server_list);
    construct->servers= memcached_servers_parse(construct->server_list);
  }

  assert(construct->servers);

  srandom((unsigned int)time(NULL));

  for (uint32_t x= 0; x < memcached_server_list_count(construct->servers); x++)
  {
    printf("\t%s : %d\n", memcached_server_name(&construct->servers[x]), memcached_server_port(&construct->servers[x]));
    assert(construct->servers[x].fd == -1);
    assert(construct->servers[x].cursor_active == 0);
  }

  printf("\n");
}

void server_shutdown(server_startup_st *construct)
{
  if (construct->server_list)
  {
    for (uint32_t x= 0; x < construct->count; x++)
    {
      char file_buffer[PATH_MAX]; /* Nothing special for number */
      snprintf(file_buffer, sizeof(file_buffer), "/tmp/%umemc.pid", x);
      kill_file(file_buffer);
    }

    free(construct->server_list);
  }
}