--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cstdlib/TSTLIB/FINGER.C Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,220 @@
+/* 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;
+}