/*
	finger.c
	Provides a finger client services for NCSA 2.3.
        Reference: RFC 742

	By James Nau, College of Engineering,
	University of Nebraska--Lincoln
*/

#define FINGER_PORT 79

#define ALARM 128

#ifdef __TURBOC__
#include "turboc.h"
#endif
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <stdlib.h>
#include <dos.h>
#include <ctype.h>
#ifdef MSC
#include <signal.h>
#include <time.h>
#endif


#ifdef MEMORY_DEBUG
#include "memdebug.h"
#endif
#include "netevent.h"
#include "hostform.h"
#include "whatami.h"
#include "externs.h"

#include "netutils.h"

int debug = 0;          /* enable with -D option */
int timeout=300;        /* timeout period in clicks */
//int bypass_passwd=0;    /* whether to bypass the password check, not used */

unsigned char path_name[_MAX_DRIVE+_MAX_DIR],		/* character storage for the path name */
	temp_str[20],buf[_MAX_DIR],temp_data[30];

/* Function Prototypes */
int main(int argc, char *argv[]);
#ifndef __TURBOC__
static void randomize(void );
#endif
void usage(void);
int index (char *string, char ch);
void do_finger(char *host, char *line);
void filter(char *buffer, int buffer_len);

/*
   finger [-h filename] [-l | -w] [user]@hostname
   -h        filename is alternative CONFIG.TEL file
   -l -w     implements longer finger (whois)
   user      username to query
   hostname  the NAME (or Number?) of the host to finger
*/

int main(int argc, char *argv[])
{
   int i;
   char userinfo[128];  /* Ought not to be > 128 char usernames */
   int longform=0;      /* if 1, then try a long finger (whois) */
   int gotuser=0;       /* if 1, doing lookup on a particular user */
   int gothost=0;       /* if 1, we've found the host */
   int atsign;          /* location of @ */
   char *ptr=0;         /* pointer to CONFIG.TEL file */

   char remote_host[256];    /* address of remote host */

#ifdef __TURBOC__
	fnsplit(argv[0],path_name,buf,temp_str,temp_data);	 /* split path up */
#else
   _splitpath(argv[0],path_name,buf,temp_str,temp_data);   /* split path up */
#endif
   strcat(path_name,buf);         /* append the path name */
   strcat(path_name,temp_str);    /* append filename */

   userinfo[0] = '\0';  /* init to a null string */

/* get the command line arguments */
   for (i=1; i<argc; i++)
      if (argv[i][0] == '-')
      {
         switch (argv[i][1])
         {
            case 'D':
               debug = 1;
               if (debug) printf("Debugging now ON\n");
               break;
            case 'h':
               if (i+1 < argc)
                  ptr = argv[i+1];
               else
                  usage();
               if (debug) printf("Using config file [%s]\n",ptr);
               break;
            case 'l':
            case 'w':
               longform = 1;
               if (debug) printf("using long finger form\n");
               break;
			case 't':
			   i++;
			   timeout=atoi(argv[i]);
			   printf("Timeout set to %d clicks.\n",timeout);
			   break;
            default:
               usage ();   /* Tell user how to use it */
         }
         if (debug) printf("argv[%d][1]=-%c\n", i, argv[i][1]);
      }

   if (longform) strcpy(userinfo, "/W ");   /* long finger form, from RFC742 */

   if ((atsign = index(argv[argc-1], '@'))) /* find the host */
   {
      if (debug) printf("atsign [%d]\n", atsign);
      strcpy(remote_host,(argv[argc-1]+atsign));
      gothost++;
      if (atsign != 1)  /* Then, we have a username too */
      {
         strncat(userinfo, argv[argc-1], atsign-1); /* username */
         gotuser++;     /* Add 1 to users */
      }
   }
   else
      usage();     /* Tell them how to use it */

/* OK, we should have all the info we need to do the finger
   So, now let's go do it */

   if (debug) printf("remote_host [%s]\n", remote_host);
   if (debug) printf("userinfo    [%s]\n", userinfo);
   if (debug) printf("gothost [%d]\n", gothost);
   if (debug) printf("gotuser [%d]\n", gotuser);

/* exit (0); */  /* For debugging if you have no network! */

   signal(SIGINT,SIG_IGN);   /* Microsoft intercept of break */

/* Do session initialization.  Snetinit reads config file. */
   /* go find a valid CONFIG.TEL file */
   if (ptr == (char *)NULL) ptr = getenv("CONFIG.TEL");
   if (debug) printf("ptr after getenv [%s]\n",ptr);
   if (ptr != (char *)NULL) Shostfile(ptr);

   if (Snetinit()) /* Should return 0 if network is OK */
   {
      printf("network init failed\n");
      exit (1);
   }

   strcat(userinfo, "\x0d\x0a");  /* end with <CR><LF> as per RFC 742*/

   if (debug) printf("sending [%s] to [%s]\n",userinfo, remote_host);

/* Just Do It */
   do_finger(remote_host, userinfo);

   netshut();      /* shut down all network stuff */
   exit(0);
   return(0);
}


void do_finger(char *remote_host, char *sendline)
{
   int from_port;
   int conn_id;
   struct machinfo *finger_host;
   char buff[132]; /* text returned from the server */
   int bufflen=132;
   int len;        /* length of text read from server */
   int i;

   int theclass, dat;
   int event;

    /* pick a source port at random from the set of privileged ports */
    randomize();
    from_port = rand() % 1023;

    /* do name lookup for server */
    finger_host = gethostinfo(remote_host);
   if (finger_host == (struct machinfo *)NULL)     /* couldn't do it, message in gethostinfo */
   {
      printf("Couldn't lookup host [%s]\n", remote_host);
      return;
   }

/* print out the IP number of the destination host */
   	printf("[");
   	for (i=0; i<4; i++) {
      	printf("%d",finger_host->hostip[i]);
		if (i < 3)
			printf(".");
	}
   	printf("]\n");

        /* open the connection */
        conn_id = connect_sock(finger_host, from_port, FINGER_PORT);
        if (conn_id < 0)
        {
           netshut();
           printf("connect_sock returned %d, exiting\n",conn_id);
        }
        if (debug) printf("connection ident [%d]\n",conn_id);

        /* send the request */
        netwrite(conn_id, sendline, strlen(sendline));
        if (debug) printf("netwrite succeeded--flushing buffer\n");

        netpush(conn_id);
        if (debug) printf("buffer flushing\n");

        if (debug)
        if (!netest(conn_id))
           printf("Connection OK\n");
        else
           printf("nettest: %d\n", netest(conn_id));

/* OK, now, we'll attempt to set an alarm to time out in timeout seconds
   if we get a connection, but no response */

        Stimerset(USERCLASS, ALARM, 0, timeout);
        if (debug) printf("timer set to go off in %d seconds\n", timeout);
        theclass = 0;
        event = 0;
        while ((theclass != USERCLASS || event != ALARM) && !netest(conn_id))
                /* no alarm and good connection */
        {
           Stask();     /* I think I have to call this to post my alarm? */
           event = Sgetevent(CONCLASS | USERCLASS, &theclass, &dat);
           if (debug)
              printf("event[%d] theclass[%d] dat[%d]\n",event, theclass, dat);
           if (!event) continue;
           if (conn_id != dat) continue;

           if (event == CONDATA)
           {
              len = netread(conn_id, buff, bufflen);
              if (len == 0) continue;
              filter(buff, len);
              printf("%.*s", len, buff);
           }
                      
        }
        if (theclass == USERCLASS && event == ALARM)
        {
           printf("Connection timed out in %d clicks\n", timeout);
           netshut();
           exit (2);
        }

#ifdef OLD_WAY
  if (debug) printf("returning eof\n");
 return (EOF);
		while ((event = Sgetevent(CONCLASS,&theclass,&dat)) != CONDATA)
		{
		   printf("event [%d] [%d] [%d]\n",event, theclass, dat);
		   if (conn_id == dat)
		   {
		}
		if (debug) printf("got event CONDATA [%d]\n",CONDATA);
		printf("Event [%d] [%d] [%d]\n",event, theclass, dat);

		   len = netread(conn_id, buff, bufflen);
		   if (debug) printf("len is [%d]\n", len);
		   if (len <=0 ) break;
		   printf("%.*s",len,buff);
   }
   }
#endif
        if (debug) printf("Closing Connection\n");
        netclose(conn_id);
}


#ifdef MSC
#ifndef __TURBOC__
/******************************************************************
*
* randomize()
*
* replicates the randomize function of Turbo C
* MSC 5.1 does not contain it so we have to write it ourselves.
*
*/

static void randomize(void )
{
	srand((unsigned)time(NULL));
}
#endif
#endif


void filter (char *buffer, int buffer_len)
/* filter out control characters, escape sequences, etc
   keeps from reprogramming keys, ...
*/
{
   int i;
   char ch;

   for (i=0; i<buffer_len; i++)
   {
      ch = *(buffer+i);
      if (!(isprint(ch) || isspace(ch))) *(buffer+i) = '?';
   }
}


int index(char *string, char ch)
{
/* shouldn't there be one of these somewhere? */
   int i;

   for (i=0; i<(int)strlen(string); i++)
      if ( *(string+i) == ch) return (i+1);
   return (0);     /* if not found */
}

void usage()
{
   printf("Usage: %s [-h filename] [-t ##] [-l | -w] [user]@hostname\n\n", path_name);

   printf("   -h        filename is alternative CONFIG.TEL file\n");
   printf("   -t ##     set timeout period to ## clicks (default 300)\n");
   printf("   -l -w     implements longer finger (whois)\n");
   printf("   user      username to query\n");
   printf("   hostname  the NAME of the host to finger\n");
   exit (-1);
}