1/* $NetBSD: net.c,v 1.23 2009/04/12 06:18:54 lukem Exp $ */
2
3/*
4 * Copyright (c) 1989, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Tony Nardo of the Johns Hopkins University/Applied Physics Lab.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35#include <sys/cdefs.h>
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)net.c 8.4 (Berkeley) 4/28/95";
39#else
40__RCSID("$NetBSD: net.c,v 1.23 2009/04/12 06:18:54 lukem Exp $");
41#endif
42#endif /* not lint */
43
44#include <sys/types.h>
45#include <sys/socket.h>
46
47#include <netinet/in.h>
48
49#include <arpa/inet.h>
50
51#include <netdb.h>
52#include <time.h>
53#include <db.h>
54#include <unistd.h>
55#include <pwd.h>
56#include <stdio.h>
57#include <string.h>
58#include <ctype.h>
59#include <err.h>
60
61#include "utmpentry.h"
62
63#include "finger.h"
64#include "extern.h"
65
66void
67netfinger(char *name)
68{
69 FILE *fp;
70 int c, lastc;
71 int s;
72 char *host;
73 struct addrinfo hints, *res, *res0;
74 int error;
75 const char *emsg = NULL;
76
77 lastc = 0;
78 if (!(host = strrchr(name, '@')))
79 return;
80 *host++ = '\0';
81 memset(&hints, 0, sizeof(hints));
82 hints.ai_family = PF_UNSPEC;
83 hints.ai_socktype = SOCK_STREAM;
84 hints.ai_flags = AI_CANONNAME;
85 error = getaddrinfo(host, "finger", &hints, &res0);
86 if (error) {
87 warnx("%s: %s", gai_strerror(error), host);
88 return;
89 }
90
91 s = -1;
92 for (res = res0; res; res = res->ai_next) {
93 s = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
94 if (s < 0) {
95 emsg = "socket";
96 continue;
97 }
98
99 if (connect(s, res->ai_addr, res->ai_addrlen)) {
100 close(s);
101 s = -1;
102 emsg = "connect";
103 continue;
104 }
105
106 break;
107 }
108 if (s < 0) {
109 if (emsg != NULL)
110 warn("%s", emsg);
111 return;
112 }
113
114 /* have network connection; identify the host connected with */
115 (void)printf("[%s]\n", res0->ai_canonname ? res0->ai_canonname : host);
116
117 /* -l flag for remote fingerd */
118 if (lflag)
119 write(s, "/W ", 3);
120 /* send the name followed by <CR><LF> */
121 (void)write(s, name, strlen(name));
122 (void)write(s, "\r\n", 2);
123
124 /*
125 * Read from the remote system; once we're connected, we assume some
126 * data. If none arrives, we hang until the user interrupts.
127 *
128 * If we see a <CR> followed by a newline character, only output
129 * one newline.
130 *
131 * If a character isn't printable and it isn't a space, we strip the
132 * 8th bit and set the 7th bit. Every ASCII character with bit 7 set
133 * is printable.
134 */
135 if ((fp = fdopen(s, "r")) != NULL)
136 while ((c = getc(fp)) != EOF) {
137 if (c == '\r') {
138 if (lastc == '\r') /* ^M^M - skip dupes */
139 continue;
140 c = '\n';
141 lastc = '\r';
142 } else {
143 if (!(eightflag || isprint(c) || isspace(c))) {
144 c &= 0x7f;
145 c |= 0x40;
146 }
147 if (lastc != '\r' || c != '\n')
148 lastc = c;
149 else {
150 lastc = '\n';
151 continue;
152 }
153 }
154 putchar(c);
155 }
156 if (lastc != '\n')
157 putchar('\n');
158 (void)fclose(fp);
159}
