/*
 *      $Source: /v/ossp/cvs/ossp-pkg/petidomo/tool.c,v $
 *      $Revision: 1.1.1.1 $
 *      $Date: 2000/12/13 13:19:25 $
 *
 *      Copyright (C) 1996 by CyberSolutions GmbH.
 *      All rights reserved.
 */

#include <sys/types.h>
#include <sys/stat.h>
#include <ctype.h>
#include <string.h>

#include <text.h>
#include <petidomo.h>

bool
isSubscribed(const char * listname, const char * address,
	     char ** listfile, char ** subscriber, bool dofuzzy)
{
    struct stat    sb;
    char *         buffer;
    char *         list;
    char *         p;
    unsigned int   len;
    bool            rc;

    buffer = text_easy_sprintf("lists/%s/list", listname);
    if (stat(buffer, &sb) != 0)
      return FALSE;
    list = loadfile(buffer);
    if (list == NULL)
      return FALSE;

    debug((DEBUG_COMMAND, 3, "Searching for subscriber \"%s\" in list \"%s\".",
	   address, listname));

    for (len = strlen(address), p = list; *p != '\0'; p = text_find_next_line(p)) {
	if (strncasecmp(p, address, len) == 0 &&
	    (p == list || p[-1] == '\n') &&
	    (isspace((int)p[len]) || p[len] == '\0')) {
	    break;
	}
    }

    if (*p == '\0' && dofuzzy == TRUE) {
	debug((DEBUG_COMMAND, 3, "No success, trying fuzzy matching."));
	address = buildFuzzyMatchAddress(address);
	if (address != NULL) {
	    for (len = strlen(address), p = list; *p != '\0'; p = text_find_next_line(p)) {
		if (text_easy_pattern_match(p, address) == TRUE &&
		    (p == list || p[-1] == '\n')) {
		    break;
		}
	    }
	}
    }

#if DEBUG
    if (*p != '\0') {
	debug((DEBUG_COMMAND, 3, "Found address: \"%s\".", p));
    }
    else {
	debug((DEBUG_COMMAND, 3, "Nope, couldn't find address."));
    }
#endif

    /* Save the returncode now, because p may be invalid in a few
       moments. */

    rc = ((*p != '\0') ? TRUE : FALSE);

    /* Did the caller want results back? Then give them to him. */

    if (listfile != NULL) {
	*listfile = list;
	if (subscriber != NULL)
	  *subscriber = (*p != '\0') ? p : NULL;
    }
    else
      free(list);

    /* Return the result. */

    return rc;
}

char *
buildFuzzyMatchAddress(const char * address)
{
    char *   fuzzyaddress;
    int      rc;

    debug((DEBUG_COMMAND, 5, "Turning \"%s\" into a fuzzy match address.", address));

    fuzzyaddress = xmalloc(strlen(address)+16);
    rc = text_transform_text(fuzzyaddress, address, "([^@]+)@[^\\.]+\\.([^\\.]+\\..*)",
		       "\\1@([^\\\\.]+\\\\.)?\\2");
    if (rc == TEXT_REGEX_TRANSFORM_DIDNT_MATCH) {
	rc = text_transform_text(fuzzyaddress, address, "([^@]+)@([^\\.]+\\.[^\\.]+)",
		       "\\1@([^\\\\.]+\\\\.)?\\2");
    }

    switch (rc) {
      case TEXT_REGEX_ERROR:
	  syslog(LOG_CRIT, "Internal error in buildFuzzyMatchAddress(): "\
	      "Regular expression can't be compiled.");
	  break;
      case TEXT_REGEX_TRANSFORM_DIDNT_MATCH:
	  break;
      case TEXT_REGEX_OK:
	  debug((DEBUG_COMMAND, 4, "Fuzzy-match address is \"%s\".", fuzzyaddress));
	  return fuzzyaddress;
      default:
	  syslog(LOG_CRIT, "Internal error: Unexpected returncode in ParseMessageIdLine().");
    }
    debug((DEBUG_COMMAND, 3, "No fuzzy match address could be built."));
    free(fuzzyaddress);
    return NULL;
}



bool
isValidListName(const char * listname)
{
    struct stat   sb;
    char *        buffer;

    assert(listname != NULL);

    if ((strchr(listname, '/') != NULL) || (strchr(listname, ':') != NULL)) {
	debug((DEBUG_COMMAND, 1, "listname '%s' contains a slash or colon!", listname));
	return FALSE;
    }

    buffer = text_easy_sprintf("lists/%s", listname);
    if (stat(buffer, &sb) != 0)
      return FALSE;		/* Doesn't exist at all. */
    else if ((sb.st_mode & S_IFDIR) == 0)
      return FALSE;		/* Entry isn't a directory. */
    else {
	buffer = text_easy_sprintf("lists/%s/config", listname);
	if (stat(buffer, &sb) != 0)
	  return FALSE;
    }
    return TRUE;
}