2 Unix SMB/CIFS implementation.
3 NBT netbios routines and daemon - version 2
4 Copyright (C) Andrew Tridgell 1994-1998
5 Copyright (C) Luke Kenneth Casson Leighton 1994-1998
6 Copyright (C) Jeremy Allison 1994-1998
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.
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.
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.
29 extern fstring global_myworkgroup
;
30 extern char **my_netbios_names
;
34 /*******************************************************************
35 Remove all the servers in a work group.
36 ******************************************************************/
38 void remove_all_servers(struct work_record
*work
)
40 struct server_record
*servrec
;
41 struct server_record
*nexts
;
43 for (servrec
= work
->serverlist
; servrec
; servrec
= nexts
)
45 DEBUG(7,("remove_all_servers: Removing server %s\n",servrec
->serv
.name
));
46 nexts
= servrec
->next
;
49 servrec
->prev
->next
= servrec
->next
;
51 servrec
->next
->prev
= servrec
->prev
;
53 if (work
->serverlist
== servrec
)
54 work
->serverlist
= servrec
->next
;
56 ZERO_STRUCTP(servrec
);
61 work
->subnet
->work_changed
= True
;
64 /***************************************************************************
65 Add a server into the a workgroup serverlist.
66 **************************************************************************/
68 static void add_server_to_workgroup(struct work_record
*work
,
69 struct server_record
*servrec
)
71 struct server_record
*servrec2
;
73 if (!work
->serverlist
)
75 work
->serverlist
= servrec
;
81 for (servrec2
= work
->serverlist
; servrec2
->next
; servrec2
= servrec2
->next
)
84 servrec2
->next
= servrec
;
86 servrec
->prev
= servrec2
;
87 work
->subnet
->work_changed
= True
;
90 /****************************************************************************
91 Find a server in a server list.
92 **************************************************************************/
94 struct server_record
*find_server_in_workgroup(struct work_record
*work
, char *name
)
96 struct server_record
*ret
;
98 for (ret
= work
->serverlist
; ret
; ret
= ret
->next
)
100 if (strequal(ret
->serv
.name
,name
))
107 /****************************************************************************
108 Remove a server entry from this workgroup.
109 ****************************************************************************/
111 void remove_server_from_workgroup(struct work_record
*work
, struct server_record
*servrec
)
114 servrec
->prev
->next
= servrec
->next
;
116 servrec
->next
->prev
= servrec
->prev
;
118 if (work
->serverlist
== servrec
)
119 work
->serverlist
= servrec
->next
;
121 ZERO_STRUCTP(servrec
);
123 work
->subnet
->work_changed
= True
;
126 /****************************************************************************
127 Create a server entry on this workgroup.
128 ****************************************************************************/
130 struct server_record
*create_server_on_workgroup(struct work_record
*work
,
131 char *name
,int servertype
,
132 int ttl
,char *comment
)
134 struct server_record
*servrec
;
138 DEBUG(7,("create_server_on_workgroup: not adding name starting with '*' (%s)\n",
143 if((servrec
= find_server_in_workgroup(work
, name
)) != NULL
)
145 DEBUG(0,("create_server_on_workgroup: Server %s already exists on \
146 workgroup %s. This is a bug.\n", name
, work
->work_group
));
150 if((servrec
= (struct server_record
*)malloc(sizeof(*servrec
))) == NULL
)
152 DEBUG(0,("create_server_entry_on_workgroup: malloc fail !\n"));
156 memset((char *)servrec
,'\0',sizeof(*servrec
));
158 servrec
->subnet
= work
->subnet
;
160 StrnCpy(servrec
->serv
.name
,name
,sizeof(servrec
->serv
.name
)-1);
161 StrnCpy(servrec
->serv
.comment
,comment
,sizeof(servrec
->serv
.comment
)-1);
162 strupper(servrec
->serv
.name
);
163 servrec
->serv
.type
= servertype
;
165 update_server_ttl(servrec
, ttl
);
167 add_server_to_workgroup(work
, servrec
);
169 DEBUG(3,("create_server_on_workgroup: Created server entry %s of type %x (%s) on \
170 workgroup %s.\n", name
,servertype
,comment
, work
->work_group
));
172 work
->subnet
->work_changed
= True
;
177 /*******************************************************************
178 Update the ttl field of a server record.
179 *******************************************************************/
181 void update_server_ttl(struct server_record
*servrec
, int ttl
)
183 if(ttl
> lp_max_ttl())
186 if(is_myname(servrec
->serv
.name
))
187 servrec
->death_time
= PERMANENT_TTL
;
189 servrec
->death_time
= (ttl
!= PERMANENT_TTL
) ? time(NULL
)+(ttl
*3) : PERMANENT_TTL
;
191 servrec
->subnet
->work_changed
= True
;
194 /*******************************************************************
195 Expire old servers in the serverlist. A time of -1 indicates
196 everybody dies except those with a death_time of PERMANENT_TTL (which is 0).
197 This should only be called from expire_workgroups_and_servers().
198 ******************************************************************/
200 void expire_servers(struct work_record
*work
, time_t t
)
202 struct server_record
*servrec
;
203 struct server_record
*nexts
;
205 for (servrec
= work
->serverlist
; servrec
; servrec
= nexts
)
207 nexts
= servrec
->next
;
209 if ((servrec
->death_time
!= PERMANENT_TTL
) && ((t
== -1) || (servrec
->death_time
< t
)))
211 DEBUG(3,("expire_old_servers: Removing timed out server %s\n",servrec
->serv
.name
));
212 remove_server_from_workgroup(work
, servrec
);
213 work
->subnet
->work_changed
= True
;
218 /*******************************************************************
219 Decide if we should write out a server record for this server.
220 We return zero if we should not. Check if we've already written
221 out this server record from an earlier subnet.
222 ******************************************************************/
224 static uint32
write_this_server_name( struct subnet_record
*subrec
,
225 struct work_record
*work
,
226 struct server_record
*servrec
)
228 struct subnet_record
*ssub
;
229 struct work_record
*iwork
;
231 /* Go through all the subnets we have already seen. */
232 for (ssub
= FIRST_SUBNET
; ssub
!= subrec
; ssub
= NEXT_SUBNET_INCLUDING_UNICAST(ssub
))
234 for(iwork
= ssub
->workgrouplist
; iwork
; iwork
= iwork
->next
)
236 if(find_server_in_workgroup( iwork
, servrec
->serv
.name
) != NULL
)
239 * We have already written out this server record, don't
240 * do it again. This gives precedence to servers we have seen
241 * on the broadcast subnets over servers that may have been
242 * added via a sync on the unicast_subet.
244 * The correct way to do this is to have a serverlist file
245 * per subnet - this means changes to smbd as well. I may
246 * add this at a later date (JRA).
254 return servrec
->serv
.type
;
257 /*******************************************************************
258 Decide if we should write out a workgroup record for this workgroup.
259 We return zero if we should not. Don't write out global_myworkgroup (we've
260 already done it) and also don't write out a second workgroup record
261 on the unicast subnet that we've already written out on one of the
263 ******************************************************************/
265 static uint32
write_this_workgroup_name( struct subnet_record
*subrec
,
266 struct work_record
*work
)
268 struct subnet_record
*ssub
;
270 if(strequal(global_myworkgroup
, work
->work_group
))
273 /* This is a workgroup we have seen on a broadcast subnet. All
274 these have the same type. */
276 if(subrec
!= unicast_subnet
)
277 return (SV_TYPE_DOMAIN_ENUM
|SV_TYPE_NT
|SV_TYPE_LOCAL_LIST_ONLY
);
279 for(ssub
= FIRST_SUBNET
; ssub
; ssub
= NEXT_SUBNET_EXCLUDING_UNICAST(ssub
))
281 /* This is the unicast subnet so check if we've already written out
282 this subnet when we passed over the broadcast subnets. */
284 if(find_workgroup_on_subnet( ssub
, work
->work_group
) != NULL
)
288 /* All workgroups on the unicast subnet (except our own, which we
289 have already written out) cannot be local. */
291 return (SV_TYPE_DOMAIN_ENUM
|SV_TYPE_NT
);
294 /*******************************************************************
295 Write out the browse.dat file.
296 ******************************************************************/
298 void write_browse_list_entry(XFILE
*fp
, fstring name
, uint32 rec_type
,
299 fstring local_master_browser_name
, fstring description
)
303 slprintf(tmp
,sizeof(tmp
)-1, "\"%s\"", name
);
304 x_fprintf(fp
, "%-25s ", tmp
);
305 x_fprintf(fp
, "%08x ", rec_type
);
306 slprintf(tmp
, sizeof(tmp
)-1, "\"%s\" ", local_master_browser_name
);
307 x_fprintf(fp
, "%-30s", tmp
);
308 x_fprintf(fp
, "\"%s\"\n", description
);
311 void write_browse_list(time_t t
, BOOL force_write
)
313 struct subnet_record
*subrec
;
314 struct work_record
*work
;
315 struct server_record
*servrec
;
316 pstring fname
,fnamenew
;
320 BOOL list_changed
= force_write
;
321 static time_t lasttime
= 0;
323 /* Always dump if we're being told to by a signal. */
324 if(force_write
== False
)
328 if (t
- lasttime
< 5)
334 dump_workgroups(force_write
);
336 for (subrec
= FIRST_SUBNET
; subrec
; subrec
= NEXT_SUBNET_INCLUDING_UNICAST(subrec
))
338 if(subrec
->work_changed
)
350 pstrcpy(fname
,lp_lockdir());
351 trim_string(fname
,NULL
,"/");
353 pstrcat(fname
,SERVER_LIST
);
354 pstrcpy(fnamenew
,fname
);
355 pstrcat(fnamenew
,".");
357 fp
= x_fopen(fnamenew
,O_WRONLY
|O_CREAT
|O_TRUNC
, 0644);
361 DEBUG(0,("write_browse_list: Can't open file %s. Error was %s\n",
362 fnamenew
,strerror(errno
)));
367 * Write out a record for our workgroup. Use the record from the first
371 if((work
= find_workgroup_on_subnet(FIRST_SUBNET
, global_myworkgroup
)) == NULL
)
373 DEBUG(0,("write_browse_list: Fatal error - cannot find my workgroup %s\n",
374 global_myworkgroup
));
379 write_browse_list_entry(fp
, work
->work_group
,
380 SV_TYPE_DOMAIN_ENUM
|SV_TYPE_NT
|SV_TYPE_LOCAL_LIST_ONLY
,
381 work
->local_master_browser_name
, work
->work_group
);
384 * We need to do something special for our own names.
385 * This is due to the fact that we may be a local master browser on
386 * one of our broadcast subnets, and a domain master on the unicast
387 * subnet. We iterate over the subnets and only write out the name
391 for (i
=0; my_netbios_names
[i
]; i
++)
394 for (subrec
= FIRST_SUBNET
; subrec
; subrec
= NEXT_SUBNET_INCLUDING_UNICAST(subrec
))
396 if((work
= find_workgroup_on_subnet( subrec
, global_myworkgroup
)) == NULL
)
398 if((servrec
= find_server_in_workgroup( work
, my_netbios_names
[i
])) == NULL
)
401 stype
|= servrec
->serv
.type
;
404 /* Output server details, plus what workgroup they're in. */
405 write_browse_list_entry(fp
, my_netbios_names
[i
], stype
,
406 string_truncate(lp_serverstring(), MAX_SERVER_STRING_LENGTH
), global_myworkgroup
);
409 for (subrec
= FIRST_SUBNET
; subrec
; subrec
= NEXT_SUBNET_INCLUDING_UNICAST(subrec
))
411 subrec
->work_changed
= False
;
413 for (work
= subrec
->workgrouplist
; work
; work
= work
->next
)
415 /* Write out a workgroup record for a workgroup. */
416 uint32 wg_type
= write_this_workgroup_name( subrec
, work
);
420 write_browse_list_entry(fp
, work
->work_group
, wg_type
,
421 work
->local_master_browser_name
,
425 /* Now write out any server records a workgroup may have. */
427 for (servrec
= work
->serverlist
; servrec
; servrec
= servrec
->next
)
431 /* We have already written our names here. */
432 if(is_myname(servrec
->serv
.name
))
435 serv_type
= write_this_server_name(subrec
, work
, servrec
);
439 /* Output server details, plus what workgroup they're in. */
440 write_browse_list_entry(fp
, servrec
->serv
.name
, serv_type
,
441 servrec
->serv
.comment
, work
->work_group
);
449 chmod(fnamenew
,0644);
450 rename(fnamenew
,fname
);
451 DEBUG(3,("write_browse_list: Wrote browse list into file %s\n",fname
));