/********************************************************************
 * $Author: lindner $
 * $Revision: 1.1 $
 * $Date: 1992/12/10 23:13:27 $
 * $Source: /home/mudhoney/GopherSrc/release1.11/gopherd/RCS/site.c,v $
 * $Status: $
 *
 * Paul Lindner, University of Minnesota CIS.
 *
 * Copyright 1991, 1992 by the Regents of the University of Minnesota
 * see the file "Copyright" in the distribution for conditions of use.
 *********************************************************************
 * MODULE: site.c
 * Routines to build up a table of hostnames and access levels
 *********************************************************************
 * Revision History:
 * $Log: site.c,v $
 * Revision 1.1  1992/12/10  23:13:27  lindner
 * gopher 1.1 release
 *
 *
 *********************************************************************/

#include "site.h"
#include "Malloc.h"
#include "ctype.h"

extern boolean DEBUG;

static Site *
SiteNew()
{
     Site *temp;

     temp = (Site *) malloc(sizeof(Site));

     if (temp == NULL)
	  return(NULL);

     temp->domain = STRnew();
     STRinit(temp->domain);

     temp->Level = ACC_FULL;
     temp->isnum = FALSE;

     return(temp);
}

static void 
SiteDestroy(site)
  Site *site;
{
     STRdestroy(site->domain);
     free(site);
}

static void
Sitecpy(site1, site2)
  Site *site1, *site2;
{
     STRcpy(site1->domain, site2->domain);
     
     site1->Level = site2->Level;
     site1->isnum = site2->isnum;
}

static void
SiteSet(site, dom, access)
  Site *site;
  char *dom;
  Accesslevel access;
{
     STRset(site->domain, dom);
     site->Level = access;
     
     if (isdigit(*dom))
	  site->isnum = TRUE;
     else
	  site->isnum = FALSE;
}

/******************************************************/

SiteArray *
SiteArrayNew()
{
     SiteArray *temp;
     
     temp = DAnew(20, SiteNew, NULL, SiteDestroy, Sitecpy);
     
     return(temp);
}

void
SiteArrayAdd(sitearr, name, Level)
  SiteArray *sitearr;
  char *name;
  Accesslevel Level;
{
     Site *temp;

     temp = SiteNew();

     SiteSet(temp, name, Level);

     SiteArrPush(sitearr, temp);
     return;
}


Accesslevel
SiteAccess(sitearr, name)
  SiteArray *sitearr;
  char *name;
{
     int i;
     Site *temp;

     if (name == NULL)
	  return(ACC_UNKNOWN);  /*** ??? We need to compare *something* ***/

     for (i=0; i< DAgetTop(sitearr); i++) {
	  
	  temp = SiteArrgetEntry(sitearr, i);

	  if (DEBUG) 
	       printf("Testing for %s\n", STRget(temp->domain));

	  if (temp->isnum == TRUE) {
	       /*** Check for a match from the beginning ***/
	       int namelen, domainlen;

	       namelen = strlen(name);
	       domainlen = strlen(STRget(temp->domain));

	       if (namelen >domainlen)
		    namelen = domainlen;

	       if (strncmp(name, STRget(temp->domain), namelen) == 0)
		    return(temp->Level);
	  } else {
	       /*** Check for a match from the end ***/
	       /*** It's a domain name ***/
	       int namelen, domainlen;

	       namelen = strlen(name);
	       domainlen = strlen(STRget(temp->domain));


	       /*** don't compare if incoming name is shorter than domain ***/
	       if (domainlen <= namelen)
		    if (strcasecmp((name+namelen-domainlen), 
				   STRget(temp->domain))==0)
			 return(temp->Level);
	       
	  }
     }

     /*** Hmmm, didn't find a match, return -1 ***/
     return(ACC_UNKNOWN);
}


boolean
SiteArrCanRead(sitearr, hostname, ipnum)
  SiteArray *sitearr;
  char *hostname, *ipnum;
{
     Accesslevel level;

     if (hostname != NULL) {
	  level = SiteAccess(sitearr, hostname);
	  if (DEBUG) printf("Host siteaccess %d\n", level);
	  if ((level & ACC_READ) == ACC_READ && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }
     
     /** Test the ipnum second **/
     if (ipnum != NULL) {
	  level = SiteAccess(sitearr, ipnum);
	  if (DEBUG) printf("IPnum siteaccess %d\n", level);
	  if ((level & ACC_READ) == ACC_READ && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }

     /*** No matches found, so let's return the default ***/

     return(ACC_UNKNOWN);
}



boolean
SiteArrCanBrowse(sitearr, hostname, ipnum)
  SiteArray *sitearr;
  char *hostname, *ipnum;
{
     Accesslevel level;

     if (hostname != NULL) {
	  level = SiteAccess(sitearr, hostname);
	  if (DEBUG) printf("Host siteaccess %d\n", level);
	  if ((level & ACC_BROWSE) == ACC_BROWSE && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }
     
     /** Test the ipnum second **/
     if (ipnum != NULL) {
	  level = SiteAccess(sitearr, ipnum);
	  if (DEBUG) printf("IPnum siteaccess %d\n", level);
	  if ((level & ACC_BROWSE) == ACC_BROWSE && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }

     if (DEBUG)  printf("No matches...\n");
     /*** No matches found, so let's return unknown ***/
     return(ACC_UNKNOWN);
}



boolean
SiteArrCanSearch(sitearr, hostname, ipnum)
  SiteArray *sitearr;
  char *hostname, *ipnum;
{
     Accesslevel level;

     if (hostname != NULL) {
	  level = SiteAccess(sitearr, hostname);
	  if (DEBUG) printf("Host siteaccess %d\n", level);
	  if ((level & ACC_SEARCH) == ACC_SEARCH && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }
     
     /** Test the ipnum second **/
     if (ipnum != NULL) {
	  level = SiteAccess(sitearr, ipnum);
	  if (DEBUG) printf("IPnum siteaccess %d\n", level);
	  if ((level & ACC_SEARCH) == ACC_SEARCH && level != ACC_UNKNOWN)
	       return(TRUE);
	  else if (level != ACC_UNKNOWN)
	       return(FALSE);
     }

     if (DEBUG)  printf("No matches...\n");
     /*** No matches found, so let's return the default ***/

     return(ACC_UNKNOWN);

}







/*
 * process a site description line.
 */

boolean
SiteProcessLine(sitearr, inputline, defaccess)
  SiteArray   *sitearr;
  char        *inputline;
  Accesslevel defaccess;
{
     char name[256];
     char *namep = name;
     Accesslevel level = defaccess;
     
     /*** the first word is the domain/ip# ***/
     while (*inputline == ' ' || *inputline == '\t')
	  inputline++;

     while (*inputline != ' ' && *inputline != '\t') {
	  *namep = *inputline;
	  namep++;
	  inputline++;
     }
     
     *namep = '\0';  /*** Terminate it ***/

     if (namep == name)
	  return(FALSE); /*** bad line ***/
     
     while (*inputline != '\0') {

	  if (*inputline == ' ' || *inputline == '\t' || *inputline == ',') {
	       inputline++;
	       if (*inputline == '!')
		    inputline++;

	       switch (*inputline) {

	       case 'b':
		    /** Browse **/
		    if (*(inputline -1) == '!')
			 level &= (ACC_SEARCH | ACC_READ);
		    else
			 level |= ACC_BROWSE;
		    break;
	       case 'r':
		    /*** Read ***/
		    if (*(inputline -1) == '!')
			 level &= (ACC_BROWSE | ACC_SEARCH);
		    else
			 level |= ACC_READ;
		    break;

	       case 's':
		    /*** Search ***/
		    if (*(inputline -1) == '!')
			 level &= (ACC_BROWSE | ACC_READ);
		    else
			 level |= ACC_SEARCH;
		    break;
	       }
	  } else
	       inputline++;
	  
     }

     SiteArrayAdd(sitearr, name, level);
     return(TRUE);
}