7e1bddd23bf10422935b2ae77dc44384008db1d8
[kai/samba.git] / source3 / smbd / server.c
1 /*
2    Unix SMB/CIFS implementation.
3    Main SMB server routines
4    Copyright (C) Andrew Tridgell                1992-1998
5    Copyright (C) Martin Pool                    2002
6    Copyright (C) Jelmer Vernooij                2002-2003
7    Copyright (C) Volker Lendecke                1993-2007
8    Copyright (C) Jeremy Allison                 1993-2007
9
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 3 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program.  If not, see <http://www.gnu.org/licenses/>.
22 */
23
24 #include "includes.h"
25 #include "system/filesys.h"
26 #include "popt_common.h"
27 #include "smbd/smbd.h"
28 #include "smbd/globals.h"
29 #include "registry/reg_init_full.h"
30 #include "libcli/auth/schannel.h"
31 #include "secrets.h"
32 #include "memcache.h"
33 #include "ctdbd_conn.h"
34 #include "printing/queue_process.h"
35 #include "rpc_server/rpc_service_setup.h"
36 #include "rpc_server/rpc_config.h"
37 #include "serverid.h"
38 #include "passdb.h"
39 #include "auth.h"
40 #include "messages.h"
41 #include "smbprofile.h"
42 #include "lib/id_cache.h"
43 #include "lib/param/param.h"
44
45 struct smbd_open_socket;
46 struct smbd_child_pid;
47
48 struct smbd_parent_context {
49         bool interactive;
50
51         struct tevent_context *ev_ctx;
52         struct messaging_context *msg_ctx;
53
54         /* the list of listening sockets */
55         struct smbd_open_socket *sockets;
56
57         /* the list of current child processes */
58         struct smbd_child_pid *children;
59         size_t num_children;
60
61         struct timed_event *cleanup_te;
62 };
63
64 struct smbd_open_socket {
65         struct smbd_open_socket *prev, *next;
66         struct smbd_parent_context *parent;
67         int fd;
68         struct tevent_fd *fde;
69 };
70
71 struct smbd_child_pid {
72         struct smbd_child_pid *prev, *next;
73         pid_t pid;
74 };
75
76 extern void start_epmd(struct tevent_context *ev_ctx,
77                        struct messaging_context *msg_ctx);
78
79 extern void start_lsasd(struct event_context *ev_ctx,
80                         struct messaging_context *msg_ctx);
81
82 #ifdef WITH_DFS
83 extern int dcelogin_atmost_once;
84 #endif /* WITH_DFS */
85
86 /*******************************************************************
87  What to do when smb.conf is updated.
88  ********************************************************************/
89
90 static void smb_conf_updated(struct messaging_context *msg,
91                              void *private_data,
92                              uint32_t msg_type,
93                              struct server_id server_id,
94                              DATA_BLOB *data)
95 {
96         struct tevent_context *ev_ctx =
97                 talloc_get_type_abort(private_data, struct tevent_context);
98         struct smbd_server_connection *sconn = msg_ctx_to_sconn(msg);
99
100         DEBUG(10,("smb_conf_updated: Got message saying smb.conf was "
101                   "updated. Reloading.\n"));
102         change_to_root_user();
103         reload_services(msg, sconn->sock, False);
104         if (am_parent) {
105                 printing_subsystem_update(ev_ctx, msg, false);
106         }
107 }
108
109 /*******************************************************************
110  What to do when printcap is updated.
111  ********************************************************************/
112
113 static void smb_pcap_updated(struct messaging_context *msg,
114                              void *private_data,
115                              uint32_t msg_type,
116                              struct server_id server_id,
117                              DATA_BLOB *data)
118 {
119         struct tevent_context *ev_ctx =
120                 talloc_get_type_abort(private_data, struct tevent_context);
121
122         DEBUG(10,("Got message saying pcap was updated. Reloading.\n"));
123         change_to_root_user();
124         delete_and_reload_printers(ev_ctx, msg);
125 }
126
127 /*******************************************************************
128  Delete a statcache entry.
129  ********************************************************************/
130
131 static void smb_stat_cache_delete(struct messaging_context *msg,
132                                   void *private_data,
133                                   uint32_t msg_tnype,
134                                   struct server_id server_id,
135                                   DATA_BLOB *data)
136 {
137         const char *name = (const char *)data->data;
138         DEBUG(10,("smb_stat_cache_delete: delete name %s\n", name));
139         stat_cache_delete(name);
140 }
141
142 /****************************************************************************
143   Send a SIGTERM to our process group.
144 *****************************************************************************/
145
146 static void  killkids(void)
147 {
148         if(am_parent) kill(0,SIGTERM);
149 }
150
151 static void msg_exit_server(struct messaging_context *msg,
152                             void *private_data,
153                             uint32_t msg_type,
154                             struct server_id server_id,
155                             DATA_BLOB *data)
156 {
157         DEBUG(3, ("got a SHUTDOWN message\n"));
158         exit_server_cleanly(NULL);
159 }
160
161 #ifdef DEVELOPER
162 static void msg_inject_fault(struct messaging_context *msg,
163                              void *private_data,
164                              uint32_t msg_type,
165                              struct server_id src,
166                              DATA_BLOB *data)
167 {
168         int sig;
169
170         if (data->length != sizeof(sig)) {
171                 DEBUG(0, ("Process %s sent bogus signal injection request\n",
172                           procid_str_static(&src)));
173                 return;
174         }
175
176         sig = *(int *)data->data;
177         if (sig == -1) {
178                 exit_server("internal error injected");
179                 return;
180         }
181
182 #if HAVE_STRSIGNAL
183         DEBUG(0, ("Process %s requested injection of signal %d (%s)\n",
184                   procid_str_static(&src), sig, strsignal(sig)));
185 #else
186         DEBUG(0, ("Process %s requested injection of signal %d\n",
187                   procid_str_static(&src), sig));
188 #endif
189
190         kill(sys_getpid(), sig);
191 }
192 #endif /* DEVELOPER */
193
194 NTSTATUS messaging_send_to_children(struct messaging_context *msg_ctx,
195                                     uint32_t msg_type, DATA_BLOB* data)
196 {
197         NTSTATUS status;
198         struct smbd_parent_context *parent = am_parent;
199         struct smbd_child_pid *child;
200
201         if (parent == NULL) {
202                 return NT_STATUS_INTERNAL_ERROR;
203         }
204
205         for (child = parent->children; child != NULL; child = child->next) {
206                 status = messaging_send(parent->msg_ctx,
207                                         pid_to_procid(child->pid),
208                                         msg_type, data);
209                 if (!NT_STATUS_IS_OK(status)) {
210                         return status;
211                 }
212         }
213         return NT_STATUS_OK;
214 }
215
216 /*
217  * Parent smbd process sets its own debug level first and then
218  * sends a message to all the smbd children to adjust their debug
219  * level to that of the parent.
220  */
221
222 static void smbd_msg_debug(struct messaging_context *msg_ctx,
223                            void *private_data,
224                            uint32_t msg_type,
225                            struct server_id server_id,
226                            DATA_BLOB *data)
227 {
228         debug_message(msg_ctx, private_data, MSG_DEBUG, server_id, data);
229
230         messaging_send_to_children(msg_ctx, MSG_DEBUG, data);
231 }
232
233 static void smbd_parent_id_cache_kill(struct messaging_context *msg_ctx,
234                                       void *private_data,
235                                       uint32_t msg_type,
236                                       struct server_id server_id,
237                                       DATA_BLOB* data)
238 {
239         const char *msg = (data && data->data)
240                 ? (const char *)data->data : "<NULL>";
241         struct id_cache_ref id;
242
243         if (!id_cache_ref_parse(msg, &id)) {
244                 DEBUG(0, ("Invalid ?ID: %s\n", msg));
245                 return;
246         }
247
248         id_cache_delete_from_cache(&id);
249
250         messaging_send_to_children(msg_ctx, msg_type, data);
251 }
252
253 static void smbd_parent_id_cache_flush(struct messaging_context *ctx,
254                                        void* data,
255                                        uint32_t msg_type,
256                                        struct server_id srv_id,
257                                        DATA_BLOB* msg_data)
258 {
259         id_cache_flush_message(ctx, data, msg_type, srv_id, msg_data);
260
261         messaging_send_to_children(ctx, msg_type, msg_data);
262 }
263
264 static void smbd_parent_id_cache_delete(struct messaging_context *ctx,
265                                         void* data,
266                                         uint32_t msg_type,
267                                         struct server_id srv_id,
268                                         DATA_BLOB* msg_data)
269 {
270         id_cache_delete_message(ctx, data, msg_type, srv_id, msg_data);
271
272         messaging_send_to_children(ctx, msg_type, msg_data);
273 }
274
275 static void add_child_pid(struct smbd_parent_context *parent,
276                           pid_t pid)
277 {
278         struct smbd_child_pid *child;
279
280         child = talloc_zero(parent, struct smbd_child_pid);
281         if (child == NULL) {
282                 DEBUG(0, ("Could not add child struct -- malloc failed\n"));
283                 return;
284         }
285         child->pid = pid;
286         DLIST_ADD(parent->children, child);
287         parent->num_children += 1;
288 }
289
290 /*
291   at most every smbd:cleanuptime seconds (default 20), we scan the BRL
292   and locking database for entries to cleanup. As a side effect this
293   also cleans up dead entries in the connections database (due to the
294   traversal in message_send_all()
295
296   Using a timer for this prevents a flood of traversals when a large
297   number of clients disconnect at the same time (perhaps due to a
298   network outage).  
299 */
300
301 static void cleanup_timeout_fn(struct event_context *event_ctx,
302                                 struct timed_event *te,
303                                 struct timeval now,
304                                 void *private_data)
305 {
306         struct smbd_parent_context *parent =
307                 talloc_get_type_abort(private_data,
308                 struct smbd_parent_context);
309
310         parent->cleanup_te = NULL;
311
312         DEBUG(1,("Cleaning up brl and lock database after unclean shutdown\n"));
313         message_send_all(parent->msg_ctx, MSG_SMB_UNLOCK, NULL, 0, NULL);
314         messaging_send_buf(parent->msg_ctx,
315                            messaging_server_id(parent->msg_ctx),
316                            MSG_SMB_BRL_VALIDATE, NULL, 0);
317 }
318
319 static void remove_child_pid(struct smbd_parent_context *parent,
320                              pid_t pid,
321                              bool unclean_shutdown)
322 {
323         struct smbd_child_pid *child;
324         struct server_id child_id;
325
326         if (unclean_shutdown) {
327                 /* a child terminated uncleanly so tickle all
328                    processes to see if they can grab any of the
329                    pending locks
330                 */
331                 DEBUG(3,(__location__ " Unclean shutdown of pid %u\n",
332                         (unsigned int)pid));
333                 if (parent->cleanup_te == NULL) {
334                         /* call the cleanup timer, but not too often */
335                         int cleanup_time = lp_parm_int(-1, "smbd", "cleanuptime", 20);
336                         parent->cleanup_te = tevent_add_timer(parent->ev_ctx,
337                                                 parent,
338                                                 timeval_current_ofs(cleanup_time, 0),
339                                                 cleanup_timeout_fn,
340                                                 parent);
341                         DEBUG(1,("Scheduled cleanup of brl and lock database after unclean shutdown\n"));
342                 }
343         }
344
345         child_id = pid_to_procid(pid);
346
347         if (!serverid_deregister(child_id)) {
348                 DEBUG(1, ("Could not remove pid %d from serverid.tdb\n",
349                           (int)pid));
350         }
351
352         for (child = parent->children; child != NULL; child = child->next) {
353                 if (child->pid == pid) {
354                         struct smbd_child_pid *tmp = child;
355                         DLIST_REMOVE(parent->children, child);
356                         TALLOC_FREE(tmp);
357                         parent->num_children -= 1;
358                         return;
359                 }
360         }
361
362         /* not all forked child processes are added to the children list */
363         DEBUG(1, ("Could not find child %d -- ignoring\n", (int)pid));
364 }
365
366 /****************************************************************************
367  Have we reached the process limit ?
368 ****************************************************************************/
369
370 static bool allowable_number_of_smbd_processes(struct smbd_parent_context *parent)
371 {
372         int max_processes = lp_max_smbd_processes();
373
374         if (!max_processes)
375                 return True;
376
377         return parent->num_children < max_processes;
378 }
379
380 static void smbd_sig_chld_handler(struct tevent_context *ev,
381                                   struct tevent_signal *se,
382                                   int signum,
383                                   int count,
384                                   void *siginfo,
385                                   void *private_data)
386 {
387         pid_t pid;
388         int status;
389         struct smbd_parent_context *parent =
390                 talloc_get_type_abort(private_data,
391                 struct smbd_parent_context);
392
393         while ((pid = sys_waitpid(-1, &status, WNOHANG)) > 0) {
394                 bool unclean_shutdown = False;
395
396                 /* If the child terminated normally, assume
397                    it was an unclean shutdown unless the
398                    status is 0
399                 */
400                 if (WIFEXITED(status)) {
401                         unclean_shutdown = WEXITSTATUS(status);
402                 }
403                 /* If the child terminated due to a signal
404                    we always assume it was unclean.
405                 */
406                 if (WIFSIGNALED(status)) {
407                         unclean_shutdown = True;
408                 }
409                 remove_child_pid(parent, pid, unclean_shutdown);
410         }
411 }
412
413 static void smbd_setup_sig_chld_handler(struct smbd_parent_context *parent)
414 {
415         struct tevent_signal *se;
416
417         se = tevent_add_signal(parent->ev_ctx,
418                                parent, /* mem_ctx */
419                                SIGCHLD, 0,
420                                smbd_sig_chld_handler,
421                                parent);
422         if (!se) {
423                 exit_server("failed to setup SIGCHLD handler");
424         }
425 }
426
427 static void smbd_open_socket_close_fn(struct tevent_context *ev,
428                                       struct tevent_fd *fde,
429                                       int fd,
430                                       void *private_data)
431 {
432         /* this might be the socket_wrapper swrap_close() */
433         close(fd);
434 }
435
436 static void smbd_accept_connection(struct tevent_context *ev,
437                                    struct tevent_fd *fde,
438                                    uint16_t flags,
439                                    void *private_data)
440 {
441         struct smbd_open_socket *s = talloc_get_type_abort(private_data,
442                                      struct smbd_open_socket);
443         struct messaging_context *msg_ctx = s->parent->msg_ctx;
444         struct smbd_server_connection *sconn = smbd_server_conn;
445         struct sockaddr_storage addr;
446         socklen_t in_addrlen = sizeof(addr);
447         int fd;
448         pid_t pid = 0;
449         uint64_t unique_id;
450
451         fd = accept(s->fd, (struct sockaddr *)(void *)&addr,&in_addrlen);
452         sconn->sock = fd;
453         if (fd == -1 && errno == EINTR)
454                 return;
455
456         if (fd == -1) {
457                 DEBUG(0,("open_sockets_smbd: accept: %s\n",
458                          strerror(errno)));
459                 return;
460         }
461
462         if (s->parent->interactive) {
463                 smbd_process(ev, sconn);
464                 exit_server_cleanly("end of interactive mode");
465                 return;
466         }
467
468         if (!allowable_number_of_smbd_processes(s->parent)) {
469                 close(fd);
470                 sconn->sock = -1;
471                 return;
472         }
473
474         /*
475          * Generate a unique id in the parent process so that we use
476          * the global random state in the parent.
477          */
478         generate_random_buffer((uint8_t *)&unique_id, sizeof(unique_id));
479
480         pid = sys_fork();
481         if (pid == 0) {
482                 NTSTATUS status = NT_STATUS_OK;
483
484                 /* Child code ... */
485                 am_parent = NULL;
486
487                 /*
488                  * Can't use TALLOC_FREE here. Nulling out the argument to it
489                  * would overwrite memory we've just freed.
490                  */
491                 talloc_free(s->parent);
492                 s = NULL;
493
494                 set_my_unique_id(unique_id);
495
496                 /* Stop zombies, the parent explicitly handles
497                  * them, counting worker smbds. */
498                 CatchChild();
499
500                 /* close our standard file
501                    descriptors */
502                 if (!debug_get_output_is_stdout()) {
503                         close_low_fds(False); /* Don't close stderr */
504                 }
505
506                 status = reinit_after_fork(msg_ctx,
507                                            ev,
508                                            true);
509                 if (!NT_STATUS_IS_OK(status)) {
510                         if (NT_STATUS_EQUAL(status,
511                                             NT_STATUS_TOO_MANY_OPENED_FILES)) {
512                                 DEBUG(0,("child process cannot initialize "
513                                          "because too many files are open\n"));
514                                 goto exit;
515                         }
516                         if (lp_clustering() &&
517                             NT_STATUS_EQUAL(status,
518                             NT_STATUS_INTERNAL_DB_ERROR)) {
519                                 DEBUG(1,("child process cannot initialize "
520                                          "because connection to CTDB "
521                                          "has failed\n"));
522                                 goto exit;
523                         }
524
525                         DEBUG(0,("reinit_after_fork() failed\n"));
526                         smb_panic("reinit_after_fork() failed");
527                 }
528
529                 smbd_setup_sig_term_handler(sconn);
530                 smbd_setup_sig_hup_handler(sconn);
531
532                 if (!serverid_register(messaging_server_id(msg_ctx),
533                                        FLAG_MSG_GENERAL|FLAG_MSG_SMBD
534                                        |FLAG_MSG_DBWRAP
535                                        |FLAG_MSG_PRINT_GENERAL)) {
536                         exit_server_cleanly("Could not register myself in "
537                                             "serverid.tdb");
538                 }
539
540                 smbd_process(ev, sconn);
541          exit:
542                 exit_server_cleanly("end of child");
543                 return;
544         }
545
546         if (pid < 0) {
547                 DEBUG(0,("smbd_accept_connection: sys_fork() failed: %s\n",
548                          strerror(errno)));
549         }
550
551         /* The parent doesn't need this socket */
552         close(fd);
553
554         /* Sun May 6 18:56:14 2001 ackley@cs.unm.edu:
555                 Clear the closed fd info out of server_fd --
556                 and more importantly, out of client_fd in
557                 util_sock.c, to avoid a possible
558                 getpeername failure if we reopen the logs
559                 and use %I in the filename.
560         */
561         sconn->sock = -1;
562
563         if (pid != 0) {
564                 add_child_pid(s->parent, pid);
565         }
566
567         /* Force parent to check log size after
568          * spawning child.  Fix from
569          * klausr@ITAP.Physik.Uni-Stuttgart.De.  The
570          * parent smbd will log to logserver.smb.  It
571          * writes only two messages for each child
572          * started/finished. But each child writes,
573          * say, 50 messages also in logserver.smb,
574          * begining with the debug_count of the
575          * parent, before the child opens its own log
576          * file logserver.client. In a worst case
577          * scenario the size of logserver.smb would be
578          * checked after about 50*50=2500 messages
579          * (ca. 100kb).
580          * */
581         force_check_log_size();
582 }
583
584 static bool smbd_open_one_socket(struct smbd_parent_context *parent,
585                                  struct tevent_context *ev_ctx,
586                                  struct messaging_context *msg_ctx,
587                                  const struct sockaddr_storage *ifss,
588                                  uint16_t port)
589 {
590         struct smbd_open_socket *s;
591
592         s = talloc(parent, struct smbd_open_socket);
593         if (!s) {
594                 return false;
595         }
596
597         s->parent = parent;
598         s->fd = open_socket_in(SOCK_STREAM,
599                                port,
600                                parent->sockets == NULL ? 0 : 2,
601                                ifss,
602                                true);
603         if (s->fd == -1) {
604                 DEBUG(0,("smbd_open_once_socket: open_socket_in: "
605                         "%s\n", strerror(errno)));
606                 TALLOC_FREE(s);
607                 /*
608                  * We ignore an error here, as we've done before
609                  */
610                 return true;
611         }
612
613         /* ready to listen */
614         set_socket_options(s->fd, "SO_KEEPALIVE");
615         set_socket_options(s->fd, lp_socket_options());
616
617         /* Set server socket to
618          * non-blocking for the accept. */
619         set_blocking(s->fd, False);
620
621         if (listen(s->fd, SMBD_LISTEN_BACKLOG) == -1) {
622                 DEBUG(0,("open_sockets_smbd: listen: "
623                         "%s\n", strerror(errno)));
624                         close(s->fd);
625                 TALLOC_FREE(s);
626                 return false;
627         }
628
629         s->fde = tevent_add_fd(ev_ctx,
630                                s,
631                                s->fd, TEVENT_FD_READ,
632                                smbd_accept_connection,
633                                s);
634         if (!s->fde) {
635                 DEBUG(0,("open_sockets_smbd: "
636                          "tevent_add_fd: %s\n",
637                          strerror(errno)));
638                 close(s->fd);
639                 TALLOC_FREE(s);
640                 return false;
641         }
642         tevent_fd_set_close_fn(s->fde, smbd_open_socket_close_fn);
643
644         DLIST_ADD_END(parent->sockets, s, struct smbd_open_socket *);
645
646         return true;
647 }
648
649 /****************************************************************************
650  Open the socket communication.
651 ****************************************************************************/
652
653 static bool open_sockets_smbd(struct smbd_parent_context *parent,
654                               struct tevent_context *ev_ctx,
655                               struct messaging_context *msg_ctx,
656                               const char *smb_ports)
657 {
658         int num_interfaces = iface_count();
659         int i;
660         const char *ports;
661         unsigned dns_port = 0;
662
663 #ifdef HAVE_ATEXIT
664         atexit(killkids);
665 #endif
666
667         /* Stop zombies */
668         smbd_setup_sig_chld_handler(parent);
669
670         /* use a reasonable default set of ports - listing on 445 and 139 */
671         if (!smb_ports) {
672                 ports = lp_smb_ports();
673                 if (!ports || !*ports) {
674                         ports = talloc_strdup(talloc_tos(), SMB_PORTS);
675                 } else {
676                         ports = talloc_strdup(talloc_tos(), ports);
677                 }
678         } else {
679                 ports = talloc_strdup(talloc_tos(), smb_ports);
680         }
681
682         if (lp_interfaces() && lp_bind_interfaces_only()) {
683                 /* We have been given an interfaces line, and been
684                    told to only bind to those interfaces. Create a
685                    socket per interface and bind to only these.
686                 */
687
688                 /* Now open a listen socket for each of the
689                    interfaces. */
690                 for(i = 0; i < num_interfaces; i++) {
691                         const struct sockaddr_storage *ifss =
692                                         iface_n_sockaddr_storage(i);
693                         char *tok;
694                         const char *ptr;
695
696                         if (ifss == NULL) {
697                                 DEBUG(0,("open_sockets_smbd: "
698                                         "interface %d has NULL IP address !\n",
699                                         i));
700                                 continue;
701                         }
702
703                         for (ptr=ports;
704                              next_token_talloc(talloc_tos(),&ptr, &tok, " \t,");) {
705                                 unsigned port = atoi(tok);
706                                 if (port == 0 || port > 0xffff) {
707                                         continue;
708                                 }
709
710                                 /* Keep the first port for mDNS service
711                                  * registration.
712                                  */
713                                 if (dns_port == 0) {
714                                         dns_port = port;
715                                 }
716
717                                 if (!smbd_open_one_socket(parent,
718                                                           ev_ctx,
719                                                           msg_ctx,
720                                                           ifss,
721                                                           port)) {
722                                         return false;
723                                 }
724                         }
725                 }
726         } else {
727                 /* Just bind to 0.0.0.0 - accept connections
728                    from anywhere. */
729
730                 char *tok;
731                 const char *ptr;
732                 const char *sock_addr = lp_socket_address();
733                 char *sock_tok;
734                 const char *sock_ptr;
735
736                 if (strequal(sock_addr, "0.0.0.0") ||
737                     strequal(sock_addr, "::")) {
738 #if HAVE_IPV6
739                         sock_addr = "::,0.0.0.0";
740 #else
741                         sock_addr = "0.0.0.0";
742 #endif
743                 }
744
745                 for (sock_ptr=sock_addr;
746                      next_token_talloc(talloc_tos(), &sock_ptr, &sock_tok, " \t,"); ) {
747                         for (ptr=ports; next_token_talloc(talloc_tos(), &ptr, &tok, " \t,"); ) {
748                                 struct sockaddr_storage ss;
749
750                                 unsigned port = atoi(tok);
751                                 if (port == 0 || port > 0xffff) {
752                                         continue;
753                                 }
754
755                                 /* Keep the first port for mDNS service
756                                  * registration.
757                                  */
758                                 if (dns_port == 0) {
759                                         dns_port = port;
760                                 }
761
762                                 /* open an incoming socket */
763                                 if (!interpret_string_addr(&ss, sock_tok,
764                                                 AI_NUMERICHOST|AI_PASSIVE)) {
765                                         continue;
766                                 }
767
768                                 if (!smbd_open_one_socket(parent,
769                                                           ev_ctx,
770                                                           msg_ctx,
771                                                           &ss,
772                                                           port)) {
773                                         return false;
774                                 }
775                         }
776                 }
777         }
778
779         if (parent->sockets == NULL) {
780                 DEBUG(0,("open_sockets_smbd: No "
781                         "sockets available to bind to.\n"));
782                 return false;
783         }
784
785         /* Setup the main smbd so that we can get messages. Note that
786            do this after starting listening. This is needed as when in
787            clustered mode, ctdb won't allow us to start doing database
788            operations until it has gone thru a full startup, which
789            includes checking to see that smbd is listening. */
790
791         if (!serverid_register(messaging_server_id(msg_ctx),
792                                FLAG_MSG_GENERAL|FLAG_MSG_SMBD
793                                |FLAG_MSG_PRINT_GENERAL
794                                |FLAG_MSG_DBWRAP)) {
795                 DEBUG(0, ("open_sockets_smbd: Failed to register "
796                           "myself in serverid.tdb\n"));
797                 return false;
798         }
799
800         /* Listen to messages */
801
802         messaging_register(msg_ctx, NULL, MSG_SHUTDOWN, msg_exit_server);
803         messaging_register(msg_ctx, ev_ctx, MSG_SMB_CONF_UPDATED,
804                            smb_conf_updated);
805         messaging_register(msg_ctx, NULL, MSG_SMB_STAT_CACHE_DELETE,
806                            smb_stat_cache_delete);
807         messaging_register(msg_ctx, NULL, MSG_DEBUG, smbd_msg_debug);
808         messaging_register(msg_ctx, ev_ctx, MSG_PRINTER_PCAP,
809                            smb_pcap_updated);
810         messaging_register(msg_ctx, NULL, MSG_SMB_BRL_VALIDATE,
811                            brl_revalidate);
812
813         messaging_register(msg_ctx, NULL,
814                            ID_CACHE_FLUSH, smbd_parent_id_cache_flush);
815         messaging_register(msg_ctx, NULL,
816                            ID_CACHE_DELETE, smbd_parent_id_cache_delete);
817         messaging_register(msg_ctx, NULL,
818                            ID_CACHE_KILL, smbd_parent_id_cache_kill);
819
820 #ifdef CLUSTER_SUPPORT
821         if (lp_clustering()) {
822                 ctdbd_register_reconfigure(messaging_ctdbd_connection());
823         }
824 #endif
825
826 #ifdef DEVELOPER
827         messaging_register(msg_ctx, NULL, MSG_SMB_INJECT_FAULT,
828                            msg_inject_fault);
829 #endif
830
831         if (lp_multicast_dns_register() && (dns_port != 0)) {
832 #ifdef WITH_DNSSD_SUPPORT
833                 smbd_setup_mdns_registration(ev_ctx,
834                                              parent, dns_port);
835 #endif
836 #ifdef WITH_AVAHI_SUPPORT
837                 void *avahi_conn;
838
839                 avahi_conn = avahi_start_register(ev_ctx,
840                                                   ev_ctx,
841                                                   dns_port);
842                 if (avahi_conn == NULL) {
843                         DEBUG(10, ("avahi_start_register failed\n"));
844                 }
845 #endif
846         }
847
848         return true;
849 }
850
851 static void smbd_parent_loop(struct tevent_context *ev_ctx,
852                              struct smbd_parent_context *parent)
853 {
854         /* now accept incoming connections - forking a new process
855            for each incoming connection */
856         DEBUG(2,("waiting for connections\n"));
857         while (1) {
858                 int ret;
859                 TALLOC_CTX *frame = talloc_stackframe();
860
861                 ret = tevent_loop_once(ev_ctx);
862                 if (ret != 0) {
863                         exit_server_cleanly("tevent_loop_once() error");
864                 }
865
866                 TALLOC_FREE(frame);
867         } /* end while 1 */
868
869 /* NOTREACHED   return True; */
870 }
871
872
873 /****************************************************************************
874  Initialise connect, service and file structs.
875 ****************************************************************************/
876
877 static bool init_structs(void )
878 {
879         /*
880          * Set the machine NETBIOS name if not already
881          * set from the config file.
882          */
883
884         if (!init_names())
885                 return False;
886
887         if (!secrets_init())
888                 return False;
889
890         return True;
891 }
892
893 static void smbd_parent_sig_term_handler(struct tevent_context *ev,
894                                          struct tevent_signal *se,
895                                          int signum,
896                                          int count,
897                                          void *siginfo,
898                                          void *private_data)
899 {
900         exit_server_cleanly("termination signal");
901 }
902
903 static void smbd_parent_sig_hup_handler(struct tevent_context *ev,
904                                         struct tevent_signal *se,
905                                         int signum,
906                                         int count,
907                                         void *siginfo,
908                                         void *private_data)
909 {
910         struct smbd_parent_context *parent =
911                 talloc_get_type_abort(private_data,
912                 struct smbd_parent_context);
913
914         change_to_root_user();
915         DEBUG(1,("parent: Reloading services after SIGHUP\n"));
916         reload_services(parent->msg_ctx, -1, false);
917
918         printing_subsystem_update(parent->ev_ctx, parent->msg_ctx, true);
919 }
920
921 /****************************************************************************
922  main program.
923 ****************************************************************************/
924
925 /* Declare prototype for build_options() to avoid having to run it through
926    mkproto.h.  Mixing $(builddir) and $(srcdir) source files in the current
927    prototype generation system is too complicated. */
928
929 extern void build_options(bool screen);
930
931  int main(int argc,const char *argv[])
932 {
933         /* shall I run as a daemon */
934         bool is_daemon = false;
935         bool interactive = false;
936         bool Fork = true;
937         bool no_process_group = false;
938         bool log_stdout = false;
939         char *ports = NULL;
940         char *profile_level = NULL;
941         int opt;
942         poptContext pc;
943         bool print_build_options = False;
944         enum {
945                 OPT_DAEMON = 1000,
946                 OPT_INTERACTIVE,
947                 OPT_FORK,
948                 OPT_NO_PROCESS_GROUP,
949                 OPT_LOG_STDOUT
950         };
951         struct poptOption long_options[] = {
952         POPT_AUTOHELP
953         {"daemon", 'D', POPT_ARG_NONE, NULL, OPT_DAEMON, "Become a daemon (default)" },
954         {"interactive", 'i', POPT_ARG_NONE, NULL, OPT_INTERACTIVE, "Run interactive (not a daemon)"},
955         {"foreground", 'F', POPT_ARG_NONE, NULL, OPT_FORK, "Run daemon in foreground (for daemontools, etc.)" },
956         {"no-process-group", '\0', POPT_ARG_NONE, NULL, OPT_NO_PROCESS_GROUP, "Don't create a new process group" },
957         {"log-stdout", 'S', POPT_ARG_NONE, NULL, OPT_LOG_STDOUT, "Log to stdout" },
958         {"build-options", 'b', POPT_ARG_NONE, NULL, 'b', "Print build options" },
959         {"port", 'p', POPT_ARG_STRING, &ports, 0, "Listen on the specified ports"},
960         {"profiling-level", 'P', POPT_ARG_STRING, &profile_level, 0, "Set profiling level","PROFILE_LEVEL"},
961         POPT_COMMON_SAMBA
962         POPT_COMMON_DYNCONFIG
963         POPT_TABLEEND
964         };
965         struct smbd_parent_context *parent = NULL;
966         TALLOC_CTX *frame;
967         NTSTATUS status;
968         uint64_t unique_id;
969         struct tevent_context *ev_ctx;
970         struct messaging_context *msg_ctx;
971         struct tevent_signal *se;
972
973         /*
974          * Do this before any other talloc operation
975          */
976         talloc_enable_null_tracking();
977         frame = talloc_stackframe();
978
979         setup_logging(argv[0], DEBUG_DEFAULT_STDOUT);
980
981         load_case_tables();
982
983         smbd_init_globals();
984
985         TimeInit();
986
987 #ifdef HAVE_SET_AUTH_PARAMETERS
988         set_auth_parameters(argc,argv);
989 #endif
990
991         pc = poptGetContext("smbd", argc, argv, long_options, 0);
992         while((opt = poptGetNextOpt(pc)) != -1) {
993                 switch (opt)  {
994                 case OPT_DAEMON:
995                         is_daemon = true;
996                         break;
997                 case OPT_INTERACTIVE:
998                         interactive = true;
999                         break;
1000                 case OPT_FORK:
1001                         Fork = false;
1002                         break;
1003                 case OPT_NO_PROCESS_GROUP:
1004                         no_process_group = true;
1005                         break;
1006                 case OPT_LOG_STDOUT:
1007                         log_stdout = true;
1008                         break;
1009                 case 'b':
1010                         print_build_options = True;
1011                         break;
1012                 default:
1013                         d_fprintf(stderr, "\nInvalid option %s: %s\n\n",
1014                                   poptBadOption(pc, 0), poptStrerror(opt));
1015                         poptPrintUsage(pc, stderr, 0);
1016                         exit(1);
1017                 }
1018         }
1019         poptFreeContext(pc);
1020
1021         if (interactive) {
1022                 Fork = False;
1023                 log_stdout = True;
1024         }
1025
1026         if (log_stdout) {
1027                 setup_logging(argv[0], DEBUG_STDOUT);
1028         } else {
1029                 setup_logging(argv[0], DEBUG_FILE);
1030         }
1031
1032         if (print_build_options) {
1033                 build_options(True); /* Display output to screen as well as debug */
1034                 exit(0);
1035         }
1036
1037 #ifdef HAVE_SETLUID
1038         /* needed for SecureWare on SCO */
1039         setluid(0);
1040 #endif
1041
1042         set_remote_machine_name("smbd", False);
1043
1044         if (interactive && (DEBUGLEVEL >= 9)) {
1045                 talloc_enable_leak_report();
1046         }
1047
1048         if (log_stdout && Fork) {
1049                 DEBUG(0,("ERROR: Can't log to stdout (-S) unless daemon is in foreground (-F) or interactive (-i)\n"));
1050                 exit(1);
1051         }
1052
1053         /* we want to re-seed early to prevent time delays causing
1054            client problems at a later date. (tridge) */
1055         generate_random_buffer(NULL, 0);
1056
1057         /* get initial effective uid and gid */
1058         sec_init();
1059
1060         /* make absolutely sure we run as root - to handle cases where people
1061            are crazy enough to have it setuid */
1062         gain_root_privilege();
1063         gain_root_group_privilege();
1064
1065         fault_setup();
1066         dump_core_setup("smbd", lp_logfile());
1067
1068         /* we are never interested in SIGPIPE */
1069         BlockSignals(True,SIGPIPE);
1070
1071 #if defined(SIGFPE)
1072         /* we are never interested in SIGFPE */
1073         BlockSignals(True,SIGFPE);
1074 #endif
1075
1076 #if defined(SIGUSR2)
1077         /* We are no longer interested in USR2 */
1078         BlockSignals(True,SIGUSR2);
1079 #endif
1080
1081         /* POSIX demands that signals are inherited. If the invoking process has
1082          * these signals masked, we will have problems, as we won't recieve them. */
1083         BlockSignals(False, SIGHUP);
1084         BlockSignals(False, SIGUSR1);
1085         BlockSignals(False, SIGTERM);
1086
1087         /* Ensure we leave no zombies until we
1088          * correctly set up child handling below. */
1089
1090         CatchChild();
1091
1092         /* we want total control over the permissions on created files,
1093            so set our umask to 0 */
1094         umask(0);
1095
1096         reopen_logs();
1097
1098         DEBUG(0,("smbd version %s started.\n", samba_version_string()));
1099         DEBUGADD(0,("%s\n", COPYRIGHT_STARTUP_MESSAGE));
1100
1101         DEBUG(2,("uid=%d gid=%d euid=%d egid=%d\n",
1102                  (int)getuid(),(int)getgid(),(int)geteuid(),(int)getegid()));
1103
1104         /* Output the build options to the debug log */ 
1105         build_options(False);
1106
1107         if (sizeof(uint16) < 2 || sizeof(uint32) < 4) {
1108                 DEBUG(0,("ERROR: Samba is not configured correctly for the word size on your machine\n"));
1109                 exit(1);
1110         }
1111
1112         if (!lp_load_initial_only(get_dyn_CONFIGFILE())) {
1113                 DEBUG(0, ("error opening config file '%s'\n", get_dyn_CONFIGFILE()));
1114                 exit(1);
1115         }
1116
1117         /* Init the security context and global current_user */
1118         init_sec_ctx();
1119
1120         /*
1121          * Initialize the event context. The event context needs to be
1122          * initialized before the messaging context, cause the messaging
1123          * context holds an event context.
1124          * FIXME: This should be s3_tevent_context_init()
1125          */
1126         ev_ctx = server_event_context();
1127         if (ev_ctx == NULL) {
1128                 exit(1);
1129         }
1130
1131         /*
1132          * Init the messaging context
1133          * FIXME: This should only call messaging_init()
1134          */
1135         msg_ctx = server_messaging_context();
1136         if (msg_ctx == NULL) {
1137                 exit(1);
1138         }
1139
1140         /*
1141          * Reloading of the printers will not work here as we don't have a
1142          * server info and rpc services set up. It will be called later.
1143          */
1144         if (!reload_services(NULL, -1, False)) {
1145                 exit(1);
1146         }
1147
1148         /* ...NOTE... Log files are working from this point! */
1149
1150         DEBUG(3,("loaded services\n"));
1151
1152         init_structs();
1153
1154 #ifdef WITH_PROFILE
1155         if (!profile_setup(msg_ctx, False)) {
1156                 DEBUG(0,("ERROR: failed to setup profiling\n"));
1157                 return -1;
1158         }
1159         if (profile_level != NULL) {
1160                 int pl = atoi(profile_level);
1161                 struct server_id src;
1162
1163                 DEBUG(1, ("setting profiling level: %s\n",profile_level));
1164                 src.pid = getpid();
1165                 set_profile_level(pl, src);
1166         }
1167 #endif
1168
1169         if (!is_daemon && !is_a_socket(0)) {
1170                 if (!interactive)
1171                         DEBUG(0,("standard input is not a socket, assuming -D option\n"));
1172
1173                 /*
1174                  * Setting is_daemon here prevents us from eventually calling
1175                  * the open_sockets_inetd()
1176                  */
1177
1178                 is_daemon = True;
1179         }
1180
1181         if (is_daemon && !interactive) {
1182                 DEBUG( 3, ( "Becoming a daemon.\n" ) );
1183                 become_daemon(Fork, no_process_group, log_stdout);
1184         }
1185
1186         generate_random_buffer((uint8_t *)&unique_id, sizeof(unique_id));
1187         set_my_unique_id(unique_id);
1188
1189 #if HAVE_SETPGID
1190         /*
1191          * If we're interactive we want to set our own process group for
1192          * signal management.
1193          */
1194         if (interactive && !no_process_group)
1195                 setpgid( (pid_t)0, (pid_t)0);
1196 #endif
1197
1198         if (!directory_exist(lp_lockdir()))
1199                 mkdir(lp_lockdir(), 0755);
1200
1201         if (is_daemon)
1202                 pidfile_create("smbd");
1203
1204         status = reinit_after_fork(msg_ctx,
1205                                    ev_ctx,
1206                                    false);
1207         if (!NT_STATUS_IS_OK(status)) {
1208                 DEBUG(0,("reinit_after_fork() failed\n"));
1209                 exit(1);
1210         }
1211
1212         smbd_server_conn->msg_ctx = msg_ctx;
1213
1214         parent = talloc_zero(ev_ctx, struct smbd_parent_context);
1215         if (!parent) {
1216                 exit_server("talloc(struct smbd_parent_context) failed");
1217         }
1218         parent->interactive = interactive;
1219         parent->ev_ctx = ev_ctx;
1220         parent->msg_ctx = msg_ctx;
1221         am_parent = parent;
1222
1223         se = tevent_add_signal(parent->ev_ctx,
1224                                parent,
1225                                SIGTERM, 0,
1226                                smbd_parent_sig_term_handler,
1227                                parent);
1228         if (!se) {
1229                 exit_server("failed to setup SIGTERM handler");
1230         }
1231         se = tevent_add_signal(parent->ev_ctx,
1232                                parent,
1233                                SIGHUP, 0,
1234                                smbd_parent_sig_hup_handler,
1235                                parent);
1236         if (!se) {
1237                 exit_server("failed to setup SIGHUP handler");
1238         }
1239
1240         /* Setup all the TDB's - including CLEAR_IF_FIRST tdb's. */
1241
1242         if (smbd_memcache() == NULL) {
1243                 exit(1);
1244         }
1245
1246         memcache_set_global(smbd_memcache());
1247
1248         /* Initialise the password backed before the global_sam_sid
1249            to ensure that we fetch from ldap before we make a domain sid up */
1250
1251         if(!initialize_password_db(false, ev_ctx))
1252                 exit(1);
1253
1254         if (!secrets_init()) {
1255                 DEBUG(0, ("ERROR: smbd can not open secrets.tdb\n"));
1256                 exit(1);
1257         }
1258
1259         if (lp_server_role() == ROLE_DOMAIN_BDC || lp_server_role() == ROLE_DOMAIN_PDC) {
1260                 struct loadparm_context *lp_ctx = loadparm_init_s3(NULL, loadparm_s3_context());
1261                 if (!open_schannel_session_store(NULL, lp_ctx)) {
1262                         DEBUG(0,("ERROR: Samba cannot open schannel store for secured NETLOGON operations.\n"));
1263                         exit(1);
1264                 }
1265                 TALLOC_FREE(lp_ctx);
1266         }
1267
1268         if(!get_global_sam_sid()) {
1269                 DEBUG(0,("ERROR: Samba cannot create a SAM SID.\n"));
1270                 exit(1);
1271         }
1272
1273         if (!sessionid_init()) {
1274                 exit(1);
1275         }
1276
1277         if (!connections_init(True))
1278                 exit(1);
1279
1280         if (!locking_init())
1281                 exit(1);
1282
1283         if (!messaging_tdb_parent_init(ev_ctx)) {
1284                 exit(1);
1285         }
1286
1287         if (!notify_internal_parent_init(ev_ctx)) {
1288                 exit(1);
1289         }
1290
1291         if (!serverid_parent_init(ev_ctx)) {
1292                 exit(1);
1293         }
1294
1295         if (!W_ERROR_IS_OK(registry_init_full()))
1296                 exit(1);
1297
1298         /* Open the share_info.tdb here, so we don't have to open
1299            after the fork on every single connection.  This is a small
1300            performance improvment and reduces the total number of system
1301            fds used. */
1302         if (!share_info_db_init()) {
1303                 DEBUG(0,("ERROR: failed to load share info db.\n"));
1304                 exit(1);
1305         }
1306
1307         status = init_system_info();
1308         if (!NT_STATUS_IS_OK(status)) {
1309                 DEBUG(1, ("ERROR: failed to setup system user info: %s.\n",
1310                           nt_errstr(status)));
1311                 return -1;
1312         }
1313
1314         if (!init_guest_info()) {
1315                 DEBUG(0,("ERROR: failed to setup guest info.\n"));
1316                 return -1;
1317         }
1318
1319         if (!file_init(smbd_server_conn)) {
1320                 DEBUG(0, ("ERROR: file_init failed\n"));
1321                 return -1;
1322         }
1323
1324         /* This MUST be done before start_epmd() because otherwise
1325          * start_epmd() forks and races against dcesrv_ep_setup() to
1326          * call directory_create_or_exist() */
1327         if (!directory_create_or_exist(lp_ncalrpc_dir(), geteuid(), 0755)) {
1328                 DEBUG(0, ("Failed to create pipe directory %s - %s\n",
1329                           lp_ncalrpc_dir(), strerror(errno)));
1330                 return -1;
1331         }
1332
1333         if (is_daemon && !interactive) {
1334                 if (rpc_epmapper_daemon() == RPC_DAEMON_FORK) {
1335                         start_epmd(ev_ctx, msg_ctx);
1336                 }
1337         }
1338
1339         if (!dcesrv_ep_setup(ev_ctx, msg_ctx)) {
1340                 exit(1);
1341         }
1342
1343         /* only start other daemons if we are running as a daemon
1344          * -- bad things will happen if smbd is launched via inetd
1345          *  and we fork a copy of ourselves here */
1346         if (is_daemon && !interactive) {
1347
1348                 if (rpc_lsasd_daemon() == RPC_DAEMON_FORK) {
1349                         start_lsasd(ev_ctx, msg_ctx);
1350                 }
1351
1352                 if (!_lp_disable_spoolss() &&
1353                     (rpc_spoolss_daemon() != RPC_DAEMON_DISABLED)) {
1354                         bool bgq = lp_parm_bool(-1, "smbd", "backgroundqueue", true);
1355
1356                         if (!printing_subsystem_init(ev_ctx, msg_ctx, true, bgq)) {
1357                                 exit(1);
1358                         }
1359                 }
1360         } else if (!_lp_disable_spoolss() &&
1361                    (rpc_spoolss_daemon() != RPC_DAEMON_DISABLED)) {
1362                 if (!printing_subsystem_init(ev_ctx, msg_ctx, false, false)) {
1363                         exit(1);
1364                 }
1365         }
1366
1367         if (!is_daemon) {
1368                 /* inetd mode */
1369                 TALLOC_FREE(frame);
1370
1371                 /* Started from inetd. fd 0 is the socket. */
1372                 /* We will abort gracefully when the client or remote system
1373                    goes away */
1374                 smbd_server_conn->sock = dup(0);
1375
1376                 /* close our standard file descriptors */
1377                 if (!debug_get_output_is_stdout()) {
1378                         close_low_fds(False); /* Don't close stderr */
1379                 }
1380
1381 #ifdef HAVE_ATEXIT
1382                 atexit(killkids);
1383 #endif
1384
1385                 /* Stop zombies */
1386                 smbd_setup_sig_chld_handler(parent);
1387
1388                 smbd_process(ev_ctx, smbd_server_conn);
1389
1390                 exit_server_cleanly(NULL);
1391                 return(0);
1392         }
1393
1394         if (!open_sockets_smbd(parent, ev_ctx, msg_ctx, ports))
1395                 exit_server("open_sockets_smbd() failed");
1396
1397         /* do a printer update now that all messaging has been set up,
1398          * before we allow clients to start connecting */
1399         printing_subsystem_update(ev_ctx, msg_ctx, false);
1400
1401         TALLOC_FREE(frame);
1402         /* make sure we always have a valid stackframe */
1403         frame = talloc_stackframe();
1404
1405         smbd_parent_loop(ev_ctx, parent);
1406
1407         exit_server_cleanly(NULL);
1408         TALLOC_FREE(frame);
1409         return(0);
1410 }