0
|
1 /*
|
|
2 ** id_parse.c Receive and parse a reply from an IDENT server
|
|
3 **
|
|
4 ** Author: Peter Eriksson <pen@lysator.liu.se>
|
|
5 ** Fiddling: Pär Emanuelsson <pell@lysator.liu.se>
|
|
6 */
|
|
7
|
|
8 #ifdef NeXT3
|
|
9 # include <libc.h>
|
|
10 #endif
|
|
11
|
|
12 #include <stdio.h>
|
|
13 #include <string.h>
|
|
14 #include <errno.h>
|
|
15 #include <ctype.h>
|
|
16
|
|
17 #ifdef HAVE_ANSIHEADERS
|
|
18 # include <stdlib.h>
|
|
19 # include <string.h>
|
|
20 # include <unistd.h>
|
|
21 #endif
|
|
22
|
|
23 #include <sys/types.h>
|
|
24 #include <sys/wait.h>
|
|
25 #include <sys/time.h>
|
|
26
|
|
27 #ifdef _AIX
|
|
28 # include <sys/select.h>
|
|
29 #endif
|
|
30
|
|
31 #ifdef _AIX
|
|
32 # include <sys/select.h>
|
|
33 #endif
|
|
34 #ifdef VMS
|
|
35 # include <sys/socket.h> /* for fd_set */
|
|
36 #endif
|
|
37 #define IN_LIBIDENT_SRC
|
|
38 #include "ident.h"
|
|
39
|
|
40
|
|
41 /*
|
|
42 int id_parse __P7(ident_t *, id,
|
|
43 struct timeval *, timeout,
|
|
44 int *, lport,
|
|
45 int *, fport,
|
|
46 char **, identifier,
|
|
47 char **, opsys,
|
|
48 char **, charset)
|
|
49 */
|
|
50
|
|
51 int id_parse __P(( ident_t *id,
|
|
52 __STRUCT_TIMEVAL_P timeout,
|
|
53 int *lport,
|
|
54 int *fport,
|
|
55 char **identifier,
|
|
56 char **opsys,
|
|
57 char **charset))
|
|
58 {
|
|
59 char c, *cp, *tmp_charset;
|
|
60 fd_set rs;
|
|
61 int pos, res=0, lp, fp;
|
|
62
|
|
63 errno = 0;
|
|
64
|
|
65 tmp_charset = 0;
|
|
66
|
|
67 if (!id)
|
|
68 return -1;
|
|
69 if (lport)
|
|
70 *lport = 0;
|
|
71 if (fport)
|
|
72 *fport = 0;
|
|
73 if (identifier)
|
|
74 *identifier = 0;
|
|
75 if (opsys)
|
|
76 *opsys = 0;
|
|
77 if (charset)
|
|
78 *charset = 0;
|
|
79
|
|
80 pos = strlen(id->buf);
|
|
81
|
|
82 if (timeout)
|
|
83 {
|
|
84 FD_ZERO(&rs);
|
|
85 FD_SET(id->fd, &rs);
|
|
86
|
|
87 #ifdef __hpux
|
|
88 if ((res = select(FD_SETSIZE, (int *) &rs, (int *)0, (int *)0, timeout)) < 0)
|
|
89 #else
|
|
90 if ((res = select(FD_SETSIZE, &rs, (fd_set *)0, (fd_set *)0, timeout)) < 0)
|
|
91 #endif
|
|
92 return -1;
|
|
93
|
|
94 if (res == 0)
|
|
95 {
|
|
96 errno = ETIMEDOUT;
|
|
97 return -1;
|
|
98 }
|
|
99 }
|
|
100
|
|
101 /* Every octal value is allowed except 0, \n and \r */
|
|
102 while (pos < sizeof(id->buf) &&
|
|
103 (res = read(id->fd, id->buf + pos, 1)) == 1 &&
|
|
104 id->buf[pos] != '\n' && id->buf[pos] != '\r')
|
|
105 pos++;
|
|
106
|
|
107 if (res < 0)
|
|
108 return -1;
|
|
109
|
|
110 if (res == 0)
|
|
111 {
|
|
112 errno = ENOTCONN;
|
|
113 return -1;
|
|
114 }
|
|
115
|
|
116 if (id->buf[pos] != '\n' && id->buf[pos] != '\r')
|
|
117 return 0; /* Not properly terminated string */
|
|
118
|
|
119 id->buf[pos++] = '\0';
|
|
120
|
|
121 /*
|
|
122 ** Get first field (<lport> , <fport>)
|
|
123 */
|
|
124 cp = id_strtok(id->buf, ":", &c);
|
|
125 if (!cp)
|
|
126 return -2;
|
|
127
|
|
128 if (sscanf(cp, " %d , %d", &lp, &fp) != 2)
|
|
129 {
|
|
130 if (identifier)
|
|
131 {
|
|
132 *identifier = id_strdup(cp);
|
|
133 if (*identifier == NULL)
|
|
134 return -4;
|
|
135 }
|
|
136 return -2;
|
|
137 }
|
|
138
|
|
139 if (lport)
|
|
140 *lport = lp;
|
|
141 if (fport)
|
|
142 *fport = fp;
|
|
143
|
|
144 /*
|
|
145 ** Get second field (USERID or ERROR)
|
|
146 */
|
|
147 cp = id_strtok((char *)0, ":", &c);
|
|
148 if (!cp)
|
|
149 return -2;
|
|
150
|
|
151 if (strcmp(cp, "ERROR") == 0)
|
|
152 {
|
|
153 cp = id_strtok((char *)0, "\n\r", &c);
|
|
154 if (!cp)
|
|
155 return -2;
|
|
156
|
|
157 if (identifier)
|
|
158 {
|
|
159 *identifier = id_strdup(cp);
|
|
160 if (*identifier == NULL)
|
|
161 return -4;
|
|
162 }
|
|
163
|
|
164 return 2;
|
|
165 }
|
|
166 else if (strcmp(cp, "USERID") == 0)
|
|
167 {
|
|
168 /*
|
|
169 ** Get first subfield of third field <opsys>
|
|
170 */
|
|
171 cp = id_strtok((char *) 0, ",:", &c);
|
|
172 if (!cp)
|
|
173 return -2;
|
|
174
|
|
175 if (opsys)
|
|
176 {
|
|
177 *opsys = id_strdup(cp);
|
|
178 if (*opsys == NULL)
|
|
179 return -4;
|
|
180 }
|
|
181
|
|
182 /*
|
|
183 ** We have a second subfield (<charset>)
|
|
184 */
|
|
185 if (c == ',')
|
|
186 {
|
|
187 cp = id_strtok((char *)0, ":", &c);
|
|
188 if (!cp)
|
|
189 return -2;
|
|
190
|
|
191 tmp_charset = cp;
|
|
192 if (charset)
|
|
193 {
|
|
194 *charset = id_strdup(cp);
|
|
195 if (*charset == NULL)
|
|
196 return -4;
|
|
197 }
|
|
198
|
|
199 /*
|
|
200 ** We have even more subfields - ignore them
|
|
201 */
|
|
202 if (c == ',')
|
|
203 id_strtok((char *)0, ":", &c);
|
|
204 }
|
|
205
|
|
206 if (tmp_charset && strcmp(tmp_charset, "OCTET") == 0)
|
|
207 cp = id_strtok((char *)0, (char *)0, &c);
|
|
208 else
|
|
209 cp = id_strtok((char *)0, "\n\r", &c);
|
|
210
|
|
211 if (identifier)
|
|
212 {
|
|
213 *identifier = id_strdup(cp);
|
|
214 if (*identifier == NULL)
|
|
215 return -4;
|
|
216 }
|
|
217 return 1;
|
|
218 }
|
|
219 else
|
|
220 {
|
|
221 if (identifier)
|
|
222 {
|
|
223 *identifier = id_strdup(cp);
|
|
224 if (*identifier == NULL)
|
|
225 return -4;
|
|
226 }
|
|
227 return -3;
|
|
228 }
|
|
229 }
|