/**********************************************************************
 * usage tracking library
 *
 * $Author: brlewis $
 * $Source: /afs/athena.mit.edu/contrib/games/src/X/xconq5.4/RCS/log.c,v $
 * $Header: /afs/athena.mit.edu/contrib/games/src/X/xconq5.4/RCS/log.c,v 1.1 91/12/17 17:02:52 brlewis Exp Locker: brlewis $
 *
 *
 * Copyright (C) 1991 by the Massachusetts Institute of Technology.
 * For copying and distribution information, see the file "mit-copyright.h".
 **********************************************************************/

#ifndef lint
#ifndef SABER
static char rcsid[] = "$Header: /afs/athena.mit.edu/contrib/games/src/X/xconq5.4/RCS/log.c,v 1.1 91/12/17 17:02:52 brlewis Exp Locker: brlewis $";
#endif
#endif

#include <mit-copyright.h>

#include <sys/types.h>
#include <sys/param.h>
#include <sys/socket.h>
#include <sys/time.h>
#ifdef _POSIX_SOURCE
#include <sys/select.h>
#endif
#if defined(_AUX_SOURCE) || defined(_POSIX_SOURCE)
#include <time.h>
#endif
#include <netinet/in.h>
#include <netdb.h>
#include <stdio.h>
#include <strings.h>
#ifdef HESIOD
#include <hesiod.h>
#define HESIOD_LOG_TYPE	"tloc"
#endif

#ifdef NEEDS_SELECT_MACROS
#define NBBY    8 /* number of bits in a byte */
#define NFDBITS (sizeof(long) * NBBY)        /* bits per mask */

#define FD_SET(n, p)    ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
#define FD_CLR(n, p)    ((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
#define FD_ISSET(n, p)  ((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
#define FD_ZERO(p)      bzero((char *)(p), sizeof(*(p)))

#endif

static int session_id;
static int fd;
static int punt = 0;
static struct sockaddr_in name;

void
log_startup(type)
     char *type;
{
  char buf[BUFSIZ];
  char hostnm[MAXHOSTNAMELEN+1];
  char usernm[128];
  char log_host[MAXHOSTNAMELEN];
  struct hostent *hp, *gethostbyname();
  struct servent *service;
  fd_set readfds;
  int nfound,len;
  struct timeval timeout;
  struct tm *tmnow;
  time_t now;
  int port;
#ifdef HESIOD  
  char **hesinfo;

/*
   Get location of usage logger from hesiod
   If the hesiod info doesn't exist, no logging to be done
   should be of the form "loggerhost port_num"
*/

  if ((hesinfo = hes_resolve(type,HESIOD_LOG_TYPE)) == NULL) {
    punt = 1;
    return;
  }

  if (p = index(*hesinfo,' ')) {
    *p++ = '\0';
    (void) strcpy(log_host,*hesinfo);
    port = htons(atoi(p));
  } else {
    punt = 1;
    return;
  }
#else
  /* No hesiod, have to hardcode it in */
  /* insert whatever's appropriate for you */
  strcpy(log_host,"theseus.mit.edu");
  port = htons(2543);
#endif
  if ((fd = socket(AF_INET,SOCK_DGRAM,0)) < 0) {
    punt = 1;
    return;
  }

  if ((hp = gethostbyname(log_host)) == NULL) {
    punt = 1;
    return;
  }
  
  bcopy(hp->h_addr,&name.sin_addr,hp->h_length);
  name.sin_family = AF_INET;
  name.sin_port = port;
  
  if (connect(fd, &name, sizeof(name))< 0) {
    punt = 1;
    return;
  }

  /* get hostname encrypted */
  gethostname(hostnm,MAXHOSTNAMELEN);
  strncpy(hostnm, (char *)crypt(hostnm, "Ho")+2, MAXHOSTNAMELEN);

  /* get username encrypted */
  if (getenv("USER"))
    strncpy(usernm, (char *)crypt(getenv("USER"), "Us")+2, 127);
  else
    strcpy(usernm, "...........");

  /* get time */
  now = time(0);
  tmnow = localtime(&now);
  
  sprintf(buf,"S%04d.%02d.%02d.%02d.%d %s %s %s", tmnow->tm_year+1900,
	  tmnow->tm_mon+1, tmnow->tm_mday, tmnow->tm_hour, tmnow->tm_wday,
	  hostnm, usernm, type);

  if (send(fd, buf, strlen(buf), 0) <0)
    return;
  
  timeout.tv_sec = 5;
  timeout.tv_usec = 0;
    
  FD_ZERO(&readfds);
  FD_SET(fd,&readfds);
  nfound = select(fd+1,&readfds,NULL,NULL,&timeout);
  if (nfound != 0) {
    len = recv(fd,buf,1024,0);
    if (len > 0)
      session_id = atoi(buf);
  }
}

void
log_view(view_id)
     char *view_id;
{
  time_t now;
  char buf[BUFSIZ];
  char *t, *p;

  if (punt || !fd)
    return;
  
  now = time(0);
  t = ctime(&now);
  p = index(t,'\n');
  if (p != NULL)
    *p = '\0';
  sprintf(buf,"M%d %s", session_id, view_id);
  send(fd, buf, strlen(buf), 0);
  return;
}