/* 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;

 }