/* FINGER.C

 * 

 * Portions Copyright (c) 1993-2004 Nokia Corporation and/or its subsidiary(-ies).

 * All rights reserved.

 */

/*

 * Copyright (c) 1989, 1993

 *	The Regents of the University of California.  All rights reserved.

 *

 * This code is derived from software contributed to Berkeley by

 * Tony Nardo of the Johns Hopkins University/Applied Physics Lab.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 *	This product includes software developed by the University of

 *	California, Berkeley and its contributors.

 * 4. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 */

#include <sys/types.h>

#include <sys/socket.h>

#include <libc/netinet/in.h>

#include <libc/arpa/inet.h>

#include <netdb.h>

#include <unistd.h>

#include <stdio.h>

#include <ctype.h>

#include <string.h>

#include <stdlib.h>

int main (int argc, char* argv[])

{

	int c, lastc;

	struct in_addr defaddr;

	struct hostent *hp, def;

	struct sockaddr_in sin;

	int s, i;

	char *alist[1], *host;

	char request[100];

	char input[80];

	char* name;

	if (argc >= 2)

		{

		name = argv[1];

		}

	else

		{

		printf("user@hostname? ");

		fflush(stdout);

		name = input;

		do 

			{

			c = getchar();

			if (c=='\b')		/* DIY backspace processing */

				{

				if (name > input)

					name--;

				continue;

				}

			if (c=='\n' || c=='\r')

				break;

			*name++ = c;

			}

		while (name < input+78);

		*name++ = '\0';

		name = input;

		}

	host = strrchr(name, '@');

	if (host==0)

		{

		printf("Usage: finger user@hostname\n");

		exit(-2);

		}

	*host++ = NULL;

	/* Step 1 - resolve the IP address */

	printf("\nLooking up IP address of %s...\n", host);

	if (isdigit(*host) && (defaddr.s_addr = inet_addr(host)) != INADDR_ANY) 

		{

		def.h_name = host;

		def.h_addr_list = alist;

		def.h_addr = (char *)&defaddr;

		def.h_length = sizeof(struct in_addr);

		def.h_addrtype = AF_INET;

		def.h_aliases = 0;

		hp = &def;

		} 

	else

		{

		hp = gethostbyname(host);

		if(!hp) 

			{

			(void)fprintf(stderr, "finger: unknown host: %s\n", host);

			exit(-3);

			}

		}

	sin.sin_family = hp->h_addrtype;

	memcpy((char *)&sin.sin_addr, hp->h_addr, hp->h_length);

	if ((s = socket(hp->h_addrtype, SOCK_STREAM, 0)) < 0) {

		perror("finger: socket");

		exit(-4);

	}

	(void)printf("\n    %s => %s\n", hp->h_name, inet_ntoa(sin.sin_addr));

	/* Step 2 - Connect to the finger port on the target host */

	printf("\nConnecting to %s...", host);

	fflush(stdout);

	sin.sin_port = htons(IPPORT_FINGER);

	if (connect(s, (struct sockaddr *)&sin, sizeof (sin))) {

		perror("finger: connect");

		exit(-5);

	}

	printf("OK\n");

	/* Step 3 - Finger the user and read the result... */

	printf("\nFinger %s@%s\n", name, host);

	/* send the name followed by <CR><LF> */

	sprintf(request, "%s\r\n", name);

	if (write(s, request, strlen(request)) < 0) {

		perror("finger: write");

		close(s);

		exit(-6);

	}

	/* Read from the remote system; once we're connected, we assume some

	 * data.  If none arrives, we hang until the user interrupts.

	 *

	 * If we see a <CR> or a <CR> with the high bit set, treat it as

	 * a newline; if followed by a newline character, only output one

	 * newline.

	 *

	 * Otherwise, all high bits are stripped; if it isn't printable and

	 * it isn't a space, we can simply set the 7th bit.  Every ASCII

	 * character with bit 7 set is printable.

	 */

	lastc = '\n';

	while (recv(s, &request[0], 1, 0) > 0) {

		c = request[0];

		if (c == 0x0d) {

			if (lastc == '\r')	/* ^M^M - skip dupes */

				continue;

			c = '\n';

			lastc = '\r';

		} else {

			if (!isprint(c) && !isspace(c)) {

				c &= 0x7f;

				c |= 0x40;

			}

			if (lastc != '\r' || c != '\n')

				lastc = c;

			else {

				lastc = '\n';

				continue;

			}

		}

		putchar(c);

	}

	if (lastc != '\n')

		putchar('\n');

	close(s);

	/* Step 4 - Check the time on the remote machine as well */

	if ((s = socket(hp->h_addrtype, SOCK_STREAM, 0)) < 0) {

		perror("finger: socket");

		exit(-7);

	}

	sin.sin_port = htons(IPPORT_DAYTIME);

	if (connect(s, (struct sockaddr *)&sin, sizeof (sin))) {

		perror("finger: connect");

		exit(-8);

	}

	i = recv(s, request, sizeof(request)-1, 0);

	if (i<0)

		{

		perror("finger: recv");

		exit(-9);

		}

	request[i] = '\0';

	printf("\nThe time on %s is %s\n", host, request);

	close(s);

	return 0;

}