import HEAD into svn+ssh://svn.samba.org/home/svn/samba/trunk
[metze/old/v3-2-winbind-ndr.git] / source / nmbd / asyncdns.c
1 /*
2    Unix SMB/CIFS implementation.
3    a async DNS handler
4    Copyright (C) Andrew Tridgell 1997-1998
5    
6    This program is free software; you can redistribute it and/or modify
7    it under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 2 of the License, or
9    (at your option) any later version.
10    
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU General Public License for more details.
15    
16    You should have received a copy of the GNU General Public License
17    along with this program; if not, write to the Free Software
18    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19    */
20
21 #include "includes.h"
22
23 /***************************************************************************
24   Add a DNS result to the name cache.
25 ****************************************************************************/
26
27 static struct name_record *add_dns_result(struct nmb_name *question, struct in_addr addr)
28 {
29         int name_type = question->name_type;
30         unstring qname;
31
32         pull_ascii_nstring(qname, sizeof(qname), question->name);
33   
34         if (!addr.s_addr) {
35                 /* add the fail to WINS cache of names. give it 1 hour in the cache */
36                 DEBUG(3,("add_dns_result: Negative DNS answer for %s\n", qname));
37                 (void)add_name_to_subnet( wins_server_subnet, qname, name_type,
38                                 NB_ACTIVE, 60*60, DNSFAIL_NAME, 1, &addr );
39                 return( NULL );
40         }
41
42         /* add it to our WINS cache of names. give it 2 hours in the cache */
43         DEBUG(3,("add_dns_result: DNS gave answer for %s of %s\n", qname, inet_ntoa(addr)));
44
45         return( add_name_to_subnet( wins_server_subnet, qname, name_type,
46                               NB_ACTIVE, 2*60*60, DNS_NAME, 1, &addr ) );
47 }
48
49 #ifndef SYNC_DNS
50
51 static int fd_in = -1, fd_out = -1;
52 static pid_t child_pid = -1;
53 static int in_dns;
54
55 /* this is the structure that is passed between the parent and child */
56 struct query_record {
57         struct nmb_name name;
58         struct in_addr result;
59 };
60
61 /* a queue of pending requests waiting to be sent to the DNS child */
62 static struct packet_struct *dns_queue;
63
64 /* the packet currently being processed by the dns child */
65 static struct packet_struct *dns_current;
66
67
68 /***************************************************************************
69   return the fd used to gather async dns replies. This is added to the select
70   loop
71   ****************************************************************************/
72
73 int asyncdns_fd(void)
74 {
75         return fd_in;
76 }
77
78 /***************************************************************************
79   handle DNS queries arriving from the parent
80   ****************************************************************************/
81 static void asyncdns_process(void)
82 {
83         struct query_record r;
84         unstring qname;
85
86         DEBUGLEVEL = -1;
87
88         while (1) {
89                 if (read_data(fd_in, (char *)&r, sizeof(r)) != sizeof(r)) 
90                         break;
91
92                 pull_ascii_nstring( qname, sizeof(qname), r.name.name);
93                 r.result.s_addr = interpret_addr(qname);
94
95                 if (write_data(fd_out, (char *)&r, sizeof(r)) != sizeof(r))
96                         break;
97         }
98
99         _exit(0);
100 }
101
102 /**************************************************************************** **
103   catch a sigterm (in the child process - the parent has a different handler
104   see nmbd.c for details).
105   We need a separate term handler here so we don't release any 
106   names that our parent is going to release, or overwrite a 
107   WINS db that our parent is going to write.
108  **************************************************************************** */
109
110 static void sig_term(int sig)
111 {
112         _exit(0);
113 }
114
115 /***************************************************************************
116  Called by the parent process when it receives a SIGTERM - also kills the
117  child so we don't get child async dns processes lying around, causing trouble.
118   ****************************************************************************/
119
120 void kill_async_dns_child(void)
121 {
122         if (child_pid > 0) {
123                 kill(child_pid, SIGTERM);
124                 child_pid = -1;
125         }
126 }
127
128 /***************************************************************************
129   create a child process to handle DNS lookups
130   ****************************************************************************/
131 void start_async_dns(void)
132 {
133         int fd1[2], fd2[2];
134
135         CatchChild();
136
137         if (pipe(fd1) || pipe(fd2)) {
138                 DEBUG(0,("can't create asyncdns pipes\n"));
139                 return;
140         }
141
142         child_pid = sys_fork();
143
144         if (child_pid) {
145                 fd_in = fd1[0];
146                 fd_out = fd2[1];
147                 close(fd1[1]);
148                 close(fd2[0]);
149                 DEBUG(0,("started asyncdns process %d\n", (int)child_pid));
150                 return;
151         }
152
153         fd_in = fd2[0];
154         fd_out = fd1[1];
155
156         CatchSignal(SIGUSR2, SIG_IGN);
157         CatchSignal(SIGUSR1, SIG_IGN);
158         CatchSignal(SIGHUP, SIG_IGN);
159         CatchSignal(SIGTERM, SIGNAL_CAST sig_term );
160
161         asyncdns_process();
162 }
163
164
165 /***************************************************************************
166 check if a particular name is already being queried
167   ****************************************************************************/
168 static BOOL query_current(struct query_record *r)
169 {
170         return dns_current &&
171                 nmb_name_equal(&r->name, 
172                            &dns_current->packet.nmb.question.question_name);
173 }
174
175
176 /***************************************************************************
177   write a query to the child process
178   ****************************************************************************/
179 static BOOL write_child(struct packet_struct *p)
180 {
181         struct query_record r;
182
183         r.name = p->packet.nmb.question.question_name;
184
185         return write_data(fd_out, (char *)&r, sizeof(r)) == sizeof(r);
186 }
187
188 /***************************************************************************
189   check the DNS queue
190   ****************************************************************************/
191 void run_dns_queue(void)
192 {
193         struct query_record r;
194         struct packet_struct *p, *p2;
195         struct name_record *namerec;
196         int size;
197
198         if (fd_in == -1)
199                 return;
200
201         /* Allow SIGTERM to kill us. */
202         BlockSignals(False, SIGTERM);
203
204         if (!process_exists(child_pid)) {
205                 close(fd_in);
206                 start_async_dns();
207         }
208
209         if ((size=read_data(fd_in, (char *)&r, sizeof(r))) != sizeof(r)) {
210                 if (size) {
211                         DEBUG(0,("Incomplete DNS answer from child!\n"));
212                         fd_in = -1;
213                 }
214                 BlockSignals(True, SIGTERM);
215                 return;
216         }
217
218         BlockSignals(True, SIGTERM);
219
220         namerec = add_dns_result(&r.name, r.result);
221
222         if (dns_current) {
223                 if (query_current(&r)) {
224                         DEBUG(3,("DNS calling send_wins_name_query_response\n"));
225                         in_dns = 1;
226                         if(namerec == NULL)
227                                 send_wins_name_query_response(NAM_ERR, dns_current, NULL);
228                         else
229                                 send_wins_name_query_response(0,dns_current,namerec);
230                         in_dns = 0;
231                 }
232
233                 dns_current->locked = False;
234                 free_packet(dns_current);
235                 dns_current = NULL;
236         }
237
238         /* loop over the whole dns queue looking for entries that
239            match the result we just got */
240         for (p = dns_queue; p;) {
241                 struct nmb_packet *nmb = &p->packet.nmb;
242                 struct nmb_name *question = &nmb->question.question_name;
243
244                 if (nmb_name_equal(question, &r.name)) {
245                         DEBUG(3,("DNS calling send_wins_name_query_response\n"));
246                         in_dns = 1;
247                         if(namerec == NULL)
248                                 send_wins_name_query_response(NAM_ERR, p, NULL);
249                         else
250                                 send_wins_name_query_response(0,p,namerec);
251                         in_dns = 0;
252                         p->locked = False;
253
254                         if (p->prev)
255                                 p->prev->next = p->next;
256                         else
257                                 dns_queue = p->next;
258                         if (p->next)
259                                 p->next->prev = p->prev;
260                         p2 = p->next;
261                         free_packet(p);
262                         p = p2;
263                 } else {
264                         p = p->next;
265                 }
266         }
267
268         if (dns_queue) {
269                 dns_current = dns_queue;
270                 dns_queue = dns_queue->next;
271                 if (dns_queue)
272                         dns_queue->prev = NULL;
273                 dns_current->next = NULL;
274
275                 if (!write_child(dns_current)) {
276                         DEBUG(3,("failed to send DNS query to child!\n"));
277                         return;
278                 }
279         }
280 }
281
282 /***************************************************************************
283 queue a DNS query
284   ****************************************************************************/
285
286 BOOL queue_dns_query(struct packet_struct *p,struct nmb_name *question,
287                      struct name_record **n)
288 {
289         if (in_dns || fd_in == -1)
290                 return False;
291
292         if (!dns_current) {
293                 if (!write_child(p)) {
294                         DEBUG(3,("failed to send DNS query to child!\n"));
295                         return False;
296                 }
297                 dns_current = p;
298                 p->locked = True;
299         } else {
300                 p->locked = True;
301                 p->next = dns_queue;
302                 p->prev = NULL;
303                 if (p->next)
304                         p->next->prev = p;
305                 dns_queue = p;
306         }
307
308         DEBUG(3,("added DNS query for %s\n", nmb_namestr(question)));
309         return True;
310 }
311
312 #else
313
314
315 /***************************************************************************
316   we use this when we can't do async DNS lookups
317   ****************************************************************************/
318
319 BOOL queue_dns_query(struct packet_struct *p,struct nmb_name *question,
320                      struct name_record **n)
321 {
322         struct in_addr dns_ip;
323         unstring qname;
324
325         pull_ascii_nstring(qname, question->name);
326
327         DEBUG(3,("DNS search for %s - ", nmb_namestr(question)));
328
329         /* Unblock TERM signal so we can be killed in DNS lookup. */
330         BlockSignals(False, SIGTERM);
331
332         dns_ip.s_addr = interpret_addr(qname);
333
334         /* Re-block TERM signal. */
335         BlockSignals(True, SIGTERM);
336
337         *n = add_dns_result(question, dns_ip);
338         if(*n == NULL)
339                 send_wins_name_query_response(NAM_ERR, p, NULL);
340         else
341                 send_wins_name_query_response(0, p, *n);
342         return False;
343 }
344
345 /***************************************************************************
346  With sync dns there is no child to kill on SIGTERM.
347   ****************************************************************************/
348
349 void kill_async_dns_child(void)
350 {
351         return;
352 }
353 #endif