source3/nameserv.c

   1 /*
   2    Unix SMB/Netbios implementation.
   3    Version 1.9.
   4    NBT netbios routines and daemon - version 2
   5    Copyright (C) Andrew Tridgell 1994-1996
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20
  21    Module name: nameserv.c
  22
  23    Revision History:
  24
  25    14 jan 96: lkcl@pires.co.uk
  26    added multiple workgroup domain master support
  27
  28    04 jul 96: lkcl@pires.co.uk
  29    module nameserv contains name server management functions
  30 */
  31
  32 #include "includes.h"
  33
  34 extern int ClientNMB;
  35
  36 extern int DEBUGLEVEL;
  37
  38 extern pstring scope;
  39 extern pstring myname;
  40 extern struct in_addr ipzero;
  41 extern struct in_addr ipgrp;
  42
  43 extern struct subnet_record *subnetlist;
  44
  45 extern uint16 nb_type; /* samba's NetBIOS type */
  46
  47 /****************************************************************************
  48   remove an entry from the name list
  49
  50   note: the name will _always_ be removed
  51   XXXX at present, the name is removed _even_ if a WINS server says keep it.
  52
  53   ****************************************************************************/
  54 void remove_name_entry(struct subnet_record *d, char *name,int type)
  55 {
  56   /* XXXX BUG: if samba is offering WINS support, it should still broadcast
  57       a de-registration packet to the local subnet before removing the
  58       name from its local-subnet name database. */
  59
  60   struct name_record n;
  61   struct name_record *n2=NULL;
  62
  63   make_nmb_name(&n.name,name,type,scope);
  64
  65   if ((n2 = find_name_search(&d, &n.name, FIND_SELF, ipzero)))
  66   {
  67     /* check name isn't already being de-registered */
  68     if (NAME_DEREG(n2->ip_flgs[0].nb_flags))
  69       return;
  70
  71     /* mark the name as in the process of deletion. */
  72     n2->ip_flgs[0].nb_flags &= NB_DEREG;
  73   }
  74
  75   if (!n2) return;
  76
  77   /* remove the name immediately. even if the spec says we should
  78      first try to release them, this is too dangerous with our current
  79      name structures as otherwise we will end up replying to names we
  80      don't really own */
  81   remove_netbios_name(d,name,type,SELF,n2->ip_flgs[0].ip);
  82
  83   if (ip_equal(d->bcast_ip, ipgrp)) {
  84     if (!lp_wins_support()) {
  85       /* not a WINS server: we have to release them on the network */
  86       queue_netbios_pkt_wins(d,ClientNMB,NMB_REL,NAME_RELEASE,
  87                              name, type, 0, 0,0,NULL,NULL,
  88                              False, True, ipzero, ipzero);
  89     }
  90   } else {
  91     /* local interface: release them on the network */
  92     queue_netbios_packet(d,ClientNMB,NMB_REL,NAME_RELEASE,
  93                          name, type, 0, 0,0,NULL,NULL,
  94                          True, True, d->bcast_ip, d->bcast_ip);
  95   }
  96 }
  97
  98
  99 /****************************************************************************
 100   add an entry to the name list
 101
 102   big note: our name will _always_ be added (if there are no objections).
 103   it's just a matter of when this will be done (e.g after a time-out).
 104
 105   ****************************************************************************/
 106 void add_my_name_entry(struct subnet_record *d,char *name,int type,int nb_flags)
 107 {
 108   BOOL re_reg = False;
 109   struct nmb_name n;
 110
 111   if (!d) return;
 112
 113   /* not that it particularly matters, but if the SELF name already exists,
 114      it must be re-registered, rather than just registered */
 115
 116   make_nmb_name(&n, name, type, scope);
 117   if (find_name(d->namelist, &n, SELF))
 118         re_reg = True;
 119
 120   /* XXXX BUG: if samba is offering WINS support, it should still add the
 121      name entry to a local-subnet name database. see rfc1001.txt 15.1.1 p28
 122      regarding the point about M-nodes. */
 123
 124   if (ip_equal(d->bcast_ip, ipgrp))
 125   {
 126     if (lp_wins_support())
 127     {
 128       /* we are a WINS server. */
 129       /* XXXX assume that if we are a WINS server that we are therefore
 130          not pointing to another WINS server as well. this may later NOT
 131          actually be true
 132        */
 133
 134       DEBUG(4,("samba as WINS server adding: "));
 135       /* this will call add_netbios_entry() */
 136       name_register_work(d, name, type, nb_flags,0, ipzero, False);
 137     }
 138     else
 139     {
 140       /* a time-to-live allows us to refresh this name with the WINS server. */
 141           queue_netbios_pkt_wins(d,ClientNMB,
 142                                  re_reg ? NMB_REG_REFRESH : NMB_REG, NAME_REGISTER,
 143                              name, type, nb_flags, GET_TTL(0),0,NULL,NULL,
 144                              False, True, ipzero, ipzero);
 145     }
 146   }
 147   else
 148   {
 149     /* broadcast the packet, but it comes from ipzero */
 150         queue_netbios_packet(d,ClientNMB,
 151                                  re_reg ? NMB_REG_REFRESH : NMB_REG, NAME_REGISTER,
 152                              name, type, nb_flags, GET_TTL(0),0,NULL,NULL,
 153                              True, True, d->bcast_ip, ipzero);
 154   }
 155 }
 156
 157
 158 /****************************************************************************
 159   add the domain logon server and domain master browser names
 160
 161   this code was written so that several samba servers can co-operate in
 162   sharing the task of (one server) being a domain master, and of being
 163   domain logon servers.
 164
 165   **************************************************************************/
 166 void add_domain_names(time_t t)
 167 {
 168   static time_t lastrun = 0;
 169   struct subnet_record *d;
 170
 171   if (lastrun != 0 && t < lastrun + CHECK_TIME_ADD_DOM_NAMES * 60) return;
 172   lastrun = t;
 173
 174   for (d = subnetlist; d; d = d->next)
 175   {
 176     struct work_record *work = find_workgroupstruct(d, lp_workgroup(), False);
 177     struct nmb_name n;
 178
 179     if (lp_domain_logons() && work && work->log_state == LOGON_NONE)
 180     {
 181       make_nmb_name(&n,lp_workgroup(),0x1c,scope);
 182       if (!find_name(d->namelist, &n, FIND_SELF))
 183       {
 184         DEBUG(0,("%s attempting to become logon server for %s %s\n",
 185              timestring(), lp_workgroup(), inet_ntoa(d->bcast_ip)));
 186         become_logon_server(d, work);
 187       }
 188     }
 189     if (lp_domain_master() && work && work->dom_state == DOMAIN_NONE)
 190     {
 191       make_nmb_name(&n,lp_workgroup(),0x1b,scope);
 192       if (!find_name(d->namelist, &n, FIND_SELF))
 193       {
 194         DEBUG(1,("%s attempting to become logon server for %s %s\n",
 195              timestring(), lp_workgroup(), inet_ntoa(d->bcast_ip)));
 196         become_domain_master(d, work);
 197       }
 198     }
 199   }
 200 }
 201
 202
 203 /****************************************************************************
 204   add the magic samba names, useful for finding samba servers
 205   **************************************************************************/
 206 void add_my_names(void)
 207 {
 208   struct subnet_record *d;
 209   /* each subnet entry, including WINS pseudo-subnet, has SELF names */
 210
 211   /* XXXX if there was a transport layer added to samba (ipx/spx etc) then
 212      there would be yet _another_ for-loop, this time on the transport type
 213    */
 214
 215   for (d = subnetlist; d; d = d->next)
 216   {
 217     BOOL wins = lp_wins_support() && ip_equal(d->bcast_ip,ipgrp);
 218     struct work_record *work = find_workgroupstruct(d, lp_workgroup(), False);
 219
 220     add_my_name_entry(d, myname,0x20,nb_type|NB_ACTIVE);
 221     add_my_name_entry(d, myname,0x03,nb_type|NB_ACTIVE);
 222     add_my_name_entry(d, myname,0x00,nb_type|NB_ACTIVE);
 223     add_my_name_entry(d, myname,0x1f,nb_type|NB_ACTIVE);
 224
 225     /* these names are added permanently (ttl of zero) and will NOT be
 226        refreshed with the WINS server  */
 227     add_netbios_entry(d,"*",0x0,nb_type|NB_ACTIVE,0,SELF,d->myip,False,wins);
 228     add_netbios_entry(d,"*",0x20,nb_type|NB_ACTIVE,0,SELF,d->myip,False,wins);
 229     add_netbios_entry(d,"__SAMBA__",0x20,nb_type|NB_ACTIVE,0,SELF,d->myip,False,wins);
 230     add_netbios_entry(d,"__SAMBA__",0x00,nb_type|NB_ACTIVE,0,SELF,d->myip,False,wins);
 231
 232     if (lp_domain_logons() && work && work->log_state == LOGON_NONE)
 233     {
 234       become_logon_server(d, work);
 235     }
 236     if (lp_domain_master() && work && work->dom_state == DOMAIN_NONE)
 237     {
 238       become_domain_master(d, work);
 239     }
 240   }
 241 }
 242
 243
 244 /****************************************************************************
 245   remove all the samba names... from a WINS server if necessary.
 246   **************************************************************************/
 247 void remove_my_names()
 248 {
 249         struct subnet_record *d;
 250
 251         for (d = subnetlist; d; d = d->next)
 252         {
 253                 struct name_record *n, *next;
 254
 255                 for (n = d->namelist; n; n = next)
 256                 {
 257                         next = n->next;
 258                         if (n->source == SELF)
 259                         {
 260                                 /* get all SELF names removed from the WINS server's database */
 261                                 /* XXXX note: problem occurs if this removes the wrong one! */
 262
 263                                 remove_name_entry(d,n->name.name, n->name.name_type);
 264                         }
 265                 }
 266         }
 267 }
 268
 269
 270 /*******************************************************************
 271   refresh my own names
 272   ******************************************************************/
 273 void refresh_my_names(time_t t)
 274 {
 275   struct subnet_record *d;
 276
 277   for (d = subnetlist; d; d = d->next)
 278   {
 279     struct name_record *n;
 280
 281         for (n = d->namelist; n; n = n->next)
 282     {
 283       /* each SELF name has an individual time to be refreshed */
 284       if (n->source == SELF && n->refresh_time < t &&
 285           n->death_time != 0)
 286       {
 287         add_my_name_entry(d,n->name.name,n->name.name_type,
 288                           n->ip_flgs[0].nb_flags);
 289         /* they get a new lease on life :-) */
 290         n->death_time += GET_TTL(0);
 291         n->refresh_time += GET_TTL(0);
 292       }
 293     }
 294   }
 295 }
 296
 297
 298 /*******************************************************************
 299   queries names occasionally. an over-cautious, non-trusting WINS server!
 300
 301   this function has been added because nmbd could be restarted. it
 302   is generally a good idea to check all the names that have been
 303   reloaded from file.
 304
 305   XXXX which names to poll and which not can be refined at a later date.
 306   ******************************************************************/
 307 void query_refresh_names(time_t t)
 308 {
 309         struct name_record *n;
 310         struct subnet_record *d = find_subnet(ipgrp);
 311
 312         static time_t lasttime = 0;
 313
 314         int count = 0;
 315         int name_refresh_time = NAME_POLL_REFRESH_TIME;
 316         int max_count = name_refresh_time * 2 / NAME_POLL_INTERVAL;
 317         if (max_count > 10) max_count = 10;
 318
 319         name_refresh_time = NAME_POLL_INTERVAL * max_count / 2;
 320
 321         /* if (!lp_poll_wins()) return; polling of registered names allowed */
 322
 323         if (!d) return;
 324
 325     if (!lasttime) lasttime = t;
 326         if (t - lasttime < NAME_POLL_INTERVAL) return;
 327
 328     lasttime = time(NULL);
 329
 330         for (n = d->namelist; n; n = n->next)
 331         {
 332                 /* only do unique, registered names */
 333
 334                 if (n->source != REGISTER) continue;
 335                 if (!NAME_GROUP(n->ip_flgs[0].nb_flags)) continue;
 336
 337                 if (n->refresh_time < t)
 338                 {
 339                   DEBUG(3,("Polling name %s\n", namestr(&n->name)));
 340
 341           queue_netbios_packet(d,ClientNMB,NMB_QUERY,NAME_QUERY_CONFIRM,
 342                                 n->name.name, n->name.name_type,
 343                                 0,0,0,NULL,NULL,
 344                                 False,False,n->ip_flgs[0].ip,n->ip_flgs[0].ip);
 345                   count++;
 346                 }
 347
 348                 if (count >= max_count)
 349                 {
 350                         /* don't do too many of these at once, but do enough to
 351                            cover everyone in the list */
 352                         return;
 353                 }
 354
 355                 /* this name will be checked on again, if it's not removed */
 356                 n->refresh_time += name_refresh_time;
 357         }
 358 }
 359