Patch from metze to generalise POPT_COMMON_SAMBA, with some minor changes
[samba.git] / source / utils / smbtree.c
1 /* 
2    Unix SMB/CIFS implementation.
3    Network neighbourhood browser.
4    
5    Copyright (C) Tim Potter      2000
6    Copyright (C) Jelmer Vernooij 2003
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 2 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, write to the Free Software
20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #include "includes.h"
24
25 static BOOL use_bcast;
26
27 /* How low can we go? */
28
29 enum tree_level {LEV_WORKGROUP, LEV_SERVER, LEV_SHARE};
30 static enum tree_level level = LEV_SHARE;
31
32 /* Holds a list of workgroups or servers */
33
34 struct name_list {
35         struct name_list *prev, *next;
36         pstring name, comment;
37         uint32 server_type;
38 };
39
40 static struct name_list *workgroups, *servers, *shares;
41
42 static void free_name_list(struct name_list *list)
43 {
44         while(list)
45                 DLIST_REMOVE(list, list);
46 }
47
48 static void add_name(const char *machine_name, uint32 server_type,
49                      const char *comment, void *state)
50 {
51         struct name_list **name_list = (struct name_list **)state;
52         struct name_list *new_name;
53
54         new_name = (struct name_list *)malloc(sizeof(struct name_list));
55
56         if (!new_name)
57                 return;
58
59         ZERO_STRUCTP(new_name);
60
61         pstrcpy(new_name->name, machine_name);
62         pstrcpy(new_name->comment, comment);
63         new_name->server_type = server_type;
64
65         DLIST_ADD(*name_list, new_name);
66 }
67
68 /* Return a cli_state pointing at the IPC$ share for the given server */
69
70 static struct cli_state *get_ipc_connect(char *server, struct in_addr *server_ip,
71                                          struct user_auth_info *user_info)
72 {
73         struct cli_state *cli;
74         pstring myname;
75         NTSTATUS nt_status;
76
77         get_myname(myname);
78         
79         nt_status = cli_full_connection(&cli, myname, server, server_ip, 0, "IPC$", "IPC", 
80                                         user_info->username, lp_workgroup(), user_info->password, 
81                                         CLI_FULL_CONNECTION_ANNONYMOUS_FALLBACK, NULL);
82
83         if (NT_STATUS_IS_OK(nt_status)) {
84                 return cli;
85         } else {
86                 return NULL;
87         }
88 }
89
90 /* Return the IP address and workgroup of a master browser on the 
91    network. */
92
93 static BOOL find_master_ip_bcast(pstring workgroup, struct in_addr *server_ip)
94 {
95         struct in_addr *ip_list;
96         int i, count;
97
98         /* Go looking for workgroups by broadcasting on the local network */ 
99
100         if (!name_resolve_bcast(MSBROWSE, 1, &ip_list, &count)) {
101                 return False;
102         }
103
104         for (i = 0; i < count; i++) {
105                 static fstring name;
106
107                 if (!name_status_find("*", 0, 0x1d, ip_list[i], name))
108                         continue;
109
110                 if (!find_master_ip(name, server_ip))
111                         continue;
112
113                 pstrcpy(workgroup, name);
114
115                 DEBUG(4, ("found master browser %s, %s\n", 
116                           name, inet_ntoa(ip_list[i])));
117
118                 return True;
119         }
120
121         return False;
122 }
123
124 /****************************************************************************
125   display tree of smb workgroups, servers and shares
126 ****************************************************************************/
127 static BOOL get_workgroups(struct user_auth_info *user_info)
128 {
129         struct cli_state *cli;
130         struct in_addr server_ip;
131         pstring master_workgroup;
132
133         /* Try to connect to a #1d name of our current workgroup.  If that
134            doesn't work broadcast for a master browser and then jump off
135            that workgroup. */
136
137         pstrcpy(master_workgroup, lp_workgroup());
138
139         if (use_bcast || !find_master_ip(lp_workgroup(), &server_ip)) {
140                 DEBUG(4, ("Unable to find master browser for workgroup %s\n", 
141                           master_workgroup));
142                 if (!find_master_ip_bcast(master_workgroup, &server_ip)) {
143                         DEBUG(4, ("Unable to find master browser by "
144                                   "broadcast\n"));
145                         return False;
146                 }
147         }
148
149         if (!(cli = get_ipc_connect(inet_ntoa(server_ip), &server_ip, user_info)))
150                 return False;
151
152         if (!cli_NetServerEnum(cli, master_workgroup, 
153                                SV_TYPE_DOMAIN_ENUM, add_name, &workgroups))
154                 return False;
155
156         return True;
157 }
158
159 /* Retrieve the list of servers for a given workgroup */
160
161 static BOOL get_servers(char *workgroup, struct user_auth_info *user_info)
162 {
163         struct cli_state *cli;
164         struct in_addr server_ip;
165
166         /* Open an IPC$ connection to the master browser for the workgroup */
167
168         if (!find_master_ip(workgroup, &server_ip)) {
169                 DEBUG(4, ("Cannot find master browser for workgroup %s\n",
170                           workgroup));
171                 return False;
172         }
173
174         if (!(cli = get_ipc_connect(inet_ntoa(server_ip), &server_ip, user_info)))
175                 return False;
176
177         if (!cli_NetServerEnum(cli, workgroup, SV_TYPE_ALL, add_name, 
178                                &servers))
179                 return False;
180
181         return True;
182 }
183
184 static BOOL get_shares(char *server_name, struct user_auth_info *user_info)
185 {
186         struct cli_state *cli;
187
188         if (!(cli = get_ipc_connect(server_name, NULL, user_info)))
189                 return False;
190
191         if (!cli_RNetShareEnum(cli, add_name, &shares))
192                 return False;
193
194         return True;
195 }
196
197 static BOOL print_tree(struct user_auth_info *user_info)
198 {
199         struct name_list *wg, *sv, *sh;
200
201         /* List workgroups */
202
203         if (!get_workgroups(user_info))
204                 return False;
205
206         for (wg = workgroups; wg; wg = wg->next) {
207
208                 printf("%s\n", wg->name);
209
210                 /* List servers */
211
212                 free_name_list(servers);
213                 servers = NULL;
214
215                 if (level == LEV_WORKGROUP || 
216                     !get_servers(wg->name, user_info))
217                         continue;
218
219                 for (sv = servers; sv; sv = sv->next) {
220
221                         printf("\t\\\\%-15s\t\t%s\n", 
222                                sv->name, sv->comment);
223
224                         /* List shares */
225
226                         free_name_list(shares);
227                         shares = NULL;
228
229                         if (level == LEV_SERVER ||
230                             !get_shares(sv->name, user_info))
231                                 continue;
232
233                         for (sh = shares; sh; sh = sh->next) {
234                                 printf("\t\t\\\\%s\\%-15s\t%s\n", 
235                                        sv->name, sh->name, sh->comment);
236                         }
237                 }
238         }
239
240         return True;
241 }
242
243 /****************************************************************************
244   main program
245 ****************************************************************************/
246  int main(int argc,char *argv[])
247 {
248         struct poptOption long_options[] = {
249                 POPT_AUTOHELP
250                 { "broadcast", 'b', POPT_ARG_VAL, &use_bcast, True, "Use broadcast instead of using the master browser" },
251                 { "domains", 'D', POPT_ARG_VAL, &level, LEV_WORKGROUP, "List only domains (workgroups) of tree" },
252                 { "servers", 'S', POPT_ARG_VAL, &level, LEV_SERVER, "List domains(workgroups) and servers of tree" },
253                 POPT_COMMON_SAMBA
254                 POPT_CREDENTIALS
255                 POPT_TABLEEND
256         };
257         poptContext pc;
258         
259         /* Initialise samba stuff */
260
261         setlinebuf(stdout);
262
263         dbf = x_stderr;
264
265         setup_logging(argv[0],True);
266
267         pc = poptGetContext("smbtree", argc, (const char **)argv, long_options, 
268                                                 POPT_CONTEXT_KEEP_FIRST);
269         while(poptGetNextOpt(pc) != -1);
270         poptFreeContext(pc);
271
272         lp_load(dyn_CONFIGFILE,True,False,False);
273         load_interfaces();
274
275         /* Parse command line args */
276
277         if (!cmdline_auth_info.got_pass) {
278                 char *pass = getpass("Password: ");
279                 if (pass) {
280                         pstrcpy(cmdline_auth_info.password, pass);
281                 }
282         cmdline_auth_info.got_pass = True;
283         }
284
285         /* Now do our stuff */
286
287         if (!print_tree(&cmdline_auth_info))
288                 return 1;
289
290         return 0;
291 }