masqmail

view src/libident/id_open.c @ 91:3e7136221104

find changesets by author, revision, files, or words in the commit message
correct masqmail path in rmail script; remove docs on uninstall on install the correct path to the masqmail executable gets inserted into the rmail script now. now documentation, examples, and the templates are removed on uninstall. Empty directories are the only thing that may remain if one installs masqmail into an unusual path.
author meillo@marmaro.de
date Mon, 21 Jun 2010 09:40:16 +0200
parents 08114f7dcc23
children
line source
1 /*
2 ** id_open.c Establish/initiate a connection to an IDENT server
3 **
4 ** Author: Peter Eriksson <pen@lysator.liu.se>
5 ** Fixes: 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 <errno.h>
14 #include <fcntl.h>
15
16 #ifdef HAVE_ANSIHEADERS
17 # include <stdlib.h>
18 # include <string.h>
19 # include <unistd.h>
20 # if !defined(__sgi) && !defined(VMS)
21 # define bzero(p,l) memset(p, 0, l)
22 # endif
23 #endif
24
25 #include <sys/types.h>
26 #include <sys/socket.h>
27 #include <sys/wait.h>
28 #include <sys/time.h>
29 #include <sys/file.h>
30
31 #define IN_LIBIDENT_SRC
32 #include "ident.h"
33
34 #include <arpa/inet.h>
35
36 #ifdef _AIX
37 # include <sys/select.h>
38 #endif
39
40
41 /*
42 ident_t *id_open __P3(struct in_addr *, laddr, struct in_addr *, faddr, struct timeval *, timeout)
43 */
44
45 ident_t*
46 id_open __P((__STRUCT_IN_ADDR_P laddr, __STRUCT_IN_ADDR_P faddr, __STRUCT_TIMEVAL_P timeout))
47 {
48 ident_t *id;
49 int res, tmperrno;
50 struct sockaddr_in sin_laddr, sin_faddr;
51 fd_set rs, ws, es;
52 #ifndef OLD_SETSOCKOPT
53 int on = 1;
54 struct linger linger;
55 #endif
56
57 if ((id = (ident_t *) malloc(sizeof(*id))) == 0)
58 return 0;
59
60 if ((id->fd = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
61 free(id);
62 return 0;
63 }
64
65 if (timeout) {
66 if ((res = fcntl(id->fd, F_GETFL, 0)) < 0)
67 goto ERROR;
68
69 #ifndef VMS
70 if (fcntl(id->fd, F_SETFL, res | FNDELAY) < 0)
71 goto ERROR;
72 #endif
73 }
74
75 /* We silently ignore errors if we can't change LINGER */
76 #ifdef OLD_SETSOCKOPT
77 /* Old style setsockopt() */
78 (void) setsockopt(id->fd, SOL_SOCKET, SO_DONTLINGER);
79 (void) setsockopt(id->fd, SOL_SOCKET, SO_REUSEADDR);
80 #else
81 /* New style setsockopt() */
82 linger.l_onoff = 0;
83 linger.l_linger = 0;
84
85 (void) setsockopt(id->fd, SOL_SOCKET, SO_LINGER, (void *) &linger, sizeof(linger));
86 (void) setsockopt(id->fd, SOL_SOCKET, SO_REUSEADDR, (void *) &on, sizeof(on));
87 #endif
88
89 id->buf[0] = '\0';
90
91 bzero((char *) &sin_laddr, sizeof(sin_laddr));
92 sin_laddr.sin_family = AF_INET;
93 sin_laddr.sin_addr = *laddr;
94 sin_laddr.sin_port = 0;
95
96 if (bind(id->fd, (struct sockaddr *) &sin_laddr, sizeof(sin_laddr)) < 0) {
97 #ifdef DEBUG
98 perror("libident: bind");
99 #endif
100 goto ERROR;
101 }
102
103 bzero((char *) &sin_faddr, sizeof(sin_faddr));
104 sin_faddr.sin_family = AF_INET;
105 sin_faddr.sin_addr = *faddr;
106 sin_faddr.sin_port = htons(IDPORT);
107
108 errno = 0;
109 res = connect(id->fd, (struct sockaddr *) &sin_faddr, sizeof(sin_faddr));
110 if (res < 0 && errno != EINPROGRESS) {
111 #ifdef DEBUG
112 perror("libident: connect");
113 #endif
114 goto ERROR;
115 }
116
117 if (timeout) {
118 FD_ZERO(&rs);
119 FD_ZERO(&ws);
120 FD_ZERO(&es);
121
122 FD_SET(id->fd, &rs);
123 FD_SET(id->fd, &ws);
124 FD_SET(id->fd, &es);
125
126 #ifdef __hpux
127 if ((res = select(FD_SETSIZE, (int *) &rs, (int *) &ws, (int *) &es, timeout)) < 0)
128 #else
129 if ((res = select(FD_SETSIZE, &rs, &ws, &es, timeout)) < 0)
130 #endif
131 {
132 #ifdef DEBUG
133 perror("libident: select");
134 #endif
135 goto ERROR;
136 }
137
138 if (res == 0) {
139 errno = ETIMEDOUT;
140 goto ERROR;
141 }
142
143 if (FD_ISSET(id->fd, &es))
144 goto ERROR;
145
146 if (!FD_ISSET(id->fd, &rs) && !FD_ISSET(id->fd, &ws))
147 goto ERROR;
148 }
149
150 return id;
151
152 ERROR:
153 tmperrno = errno; /* Save, so close() won't erase it */
154 close(id->fd);
155 free(id);
156 errno = tmperrno;
157 return 0;
158 }