s4-server: avoid using environ as it is not portable
[sfrench/samba-autobuild/.git] / source4 / smb_server / smb_samba3.c
1 /*
2    Unix SMB/CIFS implementation.
3
4    process incoming connections and fork a samba3 in inetd mode
5
6    Copyright (C) Stefan Metzmacher      2008
7
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 3 of the License, or
11    (at your option) any later version.
12
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with this program.  If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #include "includes.h"
23 #include "smbd/service.h"
24 #include "libcli/smb2/smb2.h"
25 #include "system/network.h"
26 #include "lib/socket/netif.h"
27 #include "param/param.h"
28 #include "dynconfig/dynconfig.h"
29 #include "smbd/process_model.h"
30
31 /*
32   initialise a server_context from a open socket and register a event handler
33   for reading from that socket
34 */
35 static void samba3_smb_accept(struct stream_connection *conn)
36 {
37         int i;
38         int fd = socket_get_fd(conn->socket);
39         const char *prog;
40         char *argv[2];
41         char *reason;
42
43         close(0);
44         close(1);
45         dup2(fd, 0);
46         dup2(fd, 1);
47         dup2(fd, 2);
48         for (i=3;i<256;i++) {
49                 close(i);
50         }
51
52         prog = lpcfg_parm_string(conn->lp_ctx, NULL, "samba3", "smbd");
53
54         if (prog == NULL) {
55                 argv[0] = talloc_asprintf(conn, "%s/%s", dyn_BINDIR, "smbd3");
56         }
57         else {
58                 argv[0] = talloc_strdup(conn, prog);
59         }
60
61         if (argv[0] == NULL) {
62                 stream_terminate_connection(conn, "out of memory");
63                 return;
64         }
65         argv[1] = NULL;
66
67         execv(argv[0], argv);
68
69         /*
70          * Should never get here
71          */
72         reason = talloc_asprintf(conn, "Could not execute %s", argv[0]);
73         if (reason == NULL) {
74                 stream_terminate_connection(conn, "out of memory");
75                 return;
76         }
77         stream_terminate_connection(conn, reason);
78         talloc_free(reason);
79 }
80
81 static const struct stream_server_ops samba3_smb_stream_ops = {
82         .name                   = "samba3",
83         .accept_connection      = samba3_smb_accept,
84 };
85
86 /*
87   setup a listening socket on all the SMB ports for a particular address
88 */
89 static NTSTATUS samba3_add_socket(struct tevent_context *event_context,
90                                   struct loadparm_context *lp_ctx,
91                                   const struct model_ops *model_ops,
92                                   const char *address)
93 {
94         const char **ports = lpcfg_smb_ports(lp_ctx);
95         int i;
96         NTSTATUS status;
97
98         for (i=0;ports[i];i++) {
99                 uint16_t port = atoi(ports[i]);
100                 if (port == 0) continue;
101                 status = stream_setup_socket(event_context, lp_ctx,
102                                              model_ops, &samba3_smb_stream_ops,
103                                              "ip", address, &port,
104                                              lpcfg_socket_options(lp_ctx),
105                                              NULL);
106                 NT_STATUS_NOT_OK_RETURN(status);
107         }
108
109         return NT_STATUS_OK;
110 }
111
112
113 /*
114   open the smb server sockets
115 */
116 static void samba3_smb_task_init(struct task_server *task)
117 {
118         NTSTATUS status;
119         const struct model_ops *model_ops;
120
121         model_ops = process_model_startup("standard");
122
123         if (model_ops == NULL) {
124                 goto failed;
125         }
126
127         task_server_set_title(task, "task[samba3_smb]");
128
129         if (lpcfg_interfaces(task->lp_ctx)
130             && lpcfg_bind_interfaces_only(task->lp_ctx)) {
131                 int num_interfaces;
132                 int i;
133                 struct interface *ifaces;
134
135                 load_interfaces(task, lpcfg_interfaces(task->lp_ctx), &ifaces);
136
137                 num_interfaces = iface_count(ifaces);
138
139                 /* We have been given an interfaces line, and been
140                    told to only bind to those interfaces. Create a
141                    socket per interface and bind to only these.
142                 */
143                 for(i = 0; i < num_interfaces; i++) {
144                         const char *address = iface_n_ip(ifaces, i);
145                         status = samba3_add_socket(task->event_ctx,
146                                                    task->lp_ctx,
147                                                    model_ops, address);
148                         if (!NT_STATUS_IS_OK(status)) goto failed;
149                 }
150         } else {
151                 /* Just bind to lpcfg_socket_address() (usually 0.0.0.0) */
152                 status = samba3_add_socket(task->event_ctx, task->lp_ctx,
153                                            model_ops,
154                                            lpcfg_socket_address(task->lp_ctx));
155                 if (!NT_STATUS_IS_OK(status)) goto failed;
156         }
157
158         return;
159 failed:
160         task_server_terminate(task, "Failed to startup samba3 smb task", true);
161 }
162
163 /* called at smbd startup - register ourselves as a server service */
164 NTSTATUS server_service_samba3_smb_init(void)
165 {
166         return register_server_service("samba3_smb", samba3_smb_task_init);
167 }