source3/namedbsubnet.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-1997
   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    Revision History:
  22
  23    14 jan 96: lkcl@pires.co.uk
  24    added multiple workgroup domain master support
  25
  26    04 jul 96: lkcl@pires.co.uk
  27    created module namedbsubnet containing subnet database functions
  28
  29 */
  30
  31 #include "includes.h"
  32 #include "smb.h"
  33
  34 extern int ClientNMB;
  35 extern int ClientDGRAM;
  36
  37 extern int DEBUGLEVEL;
  38
  39 extern struct in_addr wins_ip;
  40 extern struct in_addr ipzero;
  41
  42 extern pstring myname;
  43 extern fstring myworkgroup;
  44 extern char **my_netbios_names;
  45
  46 BOOL updatedlists = True;
  47 int updatecount = 0;
  48
  49 /* local interfaces structure */
  50 extern struct interface *local_interfaces;
  51
  52 /* this is our domain/workgroup/server database */
  53 struct subnet_record *subnetlist = NULL;
  54
  55 /* WINS subnet - keep this separate so enumeration code doesn't
  56    run onto it by mistake. */
  57 struct subnet_record *wins_subnet = NULL;
  58
  59 extern uint16 nb_type; /* samba's NetBIOS name type */
  60
  61 /****************************************************************************
  62   add a domain into the list
  63   **************************************************************************/
  64 static void add_subnet(struct subnet_record *d)
  65 {
  66   struct subnet_record *d2;
  67
  68   if (!subnetlist)
  69   {
  70     subnetlist = d;
  71     d->prev = NULL;
  72     d->next = NULL;
  73     return;
  74   }
  75
  76   for (d2 = subnetlist; d2->next; d2 = d2->next);
  77
  78   d2->next = d;
  79   d->next = NULL;
  80   d->prev = d2;
  81 }
  82
  83
  84 /****************************************************************************
  85   find a subnet in the subnetlist - not including WINS.
  86   **************************************************************************/
  87 struct subnet_record *find_subnet(struct in_addr bcast_ip)
  88 {
  89   struct subnet_record *d;
  90
  91   /* search through subnet list for broadcast/netmask that matches
  92      the source ip address. */
  93
  94   for (d = FIRST_SUBNET; d; d = NEXT_SUBNET_EXCLUDING_WINS(d))
  95     {
  96       if (same_net(bcast_ip, d->bcast_ip, d->mask_ip))
  97         return d;
  98     }
  99
 100   return (NULL);
 101 }
 102
 103
 104 /****************************************************************************
 105   finds the appropriate subnet structure. directed packets (non-bcast) are
 106   assumed to come from a point-to-point (P or M node), and so the subnet we
 107   return in this instance is the WINS 'pseudo-subnet' with ip 255.255.255.255
 108   ****************************************************************************/
 109 struct subnet_record *find_req_subnet(struct in_addr ip, BOOL bcast)
 110 {
 111   if (bcast)
 112   {
 113     /* identify the subnet the broadcast request came from */
 114     return find_subnet(*iface_bcast(ip));
 115   }
 116   /* Return the subnet with the pseudo-ip of 255.255.255.255 */
 117   return wins_subnet;
 118 }
 119
 120 /****************************************************************************
 121   find a subnet in the subnetlist - if the subnet is not found
 122   then return the WINS subnet.
 123   **************************************************************************/
 124 struct subnet_record *find_subnet_all(struct in_addr bcast_ip)
 125 {
 126   struct subnet_record *d = find_subnet(bcast_ip);
 127   if(!d)
 128     return wins_subnet;
 129   return d;
 130 }
 131
 132 /****************************************************************************
 133   create a domain entry
 134   ****************************************************************************/
 135 static struct subnet_record *make_subnet(struct in_addr bcast_ip, struct in_addr mask_ip, BOOL add)
 136 {
 137   struct subnet_record *d;
 138   d = (struct subnet_record *)malloc(sizeof(*d));
 139
 140   if (!d) return(NULL);
 141
 142   bzero((char *)d,sizeof(*d));
 143
 144   DEBUG(4, ("making subnet %s ", inet_ntoa(bcast_ip)));
 145   DEBUG(4, ("%s\n", inet_ntoa(mask_ip)));
 146
 147   d->bcast_ip = bcast_ip;
 148   d->mask_ip  = mask_ip;
 149   d->workgrouplist = NULL;
 150
 151   if(add)
 152     add_subnet(d);
 153
 154   return d;
 155 }
 156
 157 /****************************************************************************
 158   add a domain entry. creates a workgroup, if necessary, and adds the domain
 159   to the named a workgroup.
 160   ****************************************************************************/
 161 static struct subnet_record *add_subnet_entry(struct in_addr bcast_ip,
 162                                        struct in_addr mask_ip, char *name,
 163                                        BOOL create_subnets, BOOL add)
 164 {
 165   struct subnet_record *d = NULL;
 166
 167   if (zero_ip(bcast_ip))
 168     bcast_ip = *iface_bcast(bcast_ip);
 169
 170   /* Note that we should also add into the WINS subnet as add_subnet_entry
 171     should be called to add NetBIOS names and server entries on all
 172     interfaces, including the WINS interface
 173    */
 174
 175   if(create_subnets == True)
 176   {
 177     /* Create new subnets. */
 178     if((d = make_subnet(bcast_ip, mask_ip, add)) == NULL)
 179     {
 180       DEBUG(0,("add_subnet_entry: Unable to create subnet %s\n",
 181                inet_ntoa(bcast_ip) ));
 182       return NULL;
 183     }
 184     return d;
 185   }
 186   if(ip_equal(bcast_ip, wins_ip))
 187     return wins_subnet;
 188   return find_subnet(bcast_ip);
 189 }
 190
 191 /****************************************************************************
 192  Add a workgroup into a subnet, and if it's our primary workgroup,
 193  add the required names to it.
 194 **************************************************************************/
 195
 196 void add_workgroup_to_subnet( struct subnet_record *d, char *group)
 197 {
 198   struct work_record *w = NULL;
 199
 200   DEBUG(5,("add_workgroup_to_subnet: Adding workgroup %s to subnet %s\n",
 201             group, inet_ntoa(d->bcast_ip)));
 202
 203   /* This next statement creates the workgroup struct if it doesn't
 204      already exist.
 205    */
 206   if((w = find_workgroupstruct(d, group, True)) == NULL)
 207   {
 208     DEBUG(0,("add_workgroup_to_subnet: Unable to add workgroup %s to subnet %s\n",
 209               group, inet_ntoa(d->bcast_ip) ));
 210     return;
 211   }
 212
 213   /* add WORKGROUP(00) entries into name database
 214      or register with WINS server, if it's our workgroup.
 215    */
 216   if (strequal(myworkgroup, group))
 217   {
 218     int n;
 219
 220     add_my_name_entry(d,group,0x0 ,nb_type|NB_ACTIVE|NB_GROUP);
 221
 222     /* Only register the WORKGROUP<0x1e> name if we could be a local master
 223        browser. */
 224     if(lp_local_master())
 225       add_my_name_entry(d,group,0x1e,nb_type|NB_ACTIVE|NB_GROUP);
 226
 227     /* Add all our server names to the workgroup list. We remove any
 228        browser or logon server flags from all but the primary name.
 229      */
 230     for( n = 0; my_netbios_names[n]; n++)
 231     {
 232       char *name = my_netbios_names[n];
 233       int stype = w->ServerType;
 234
 235       if(!strequal(myname, name))
 236           stype &= ~(SV_TYPE_MASTER_BROWSER|SV_TYPE_POTENTIAL_BROWSER|
 237                      SV_TYPE_DOMAIN_MASTER|SV_TYPE_DOMAIN_MEMBER);
 238
 239       add_server_entry(d,w,name,stype|SV_TYPE_LOCAL_LIST_ONLY,0,
 240                 lp_serverstring(),True);
 241       DEBUG(3,("add_workgroup_to_subnet: Added server name entry %s \
 242 to subnet %s\n", name, inet_ntoa(d->bcast_ip)));
 243     }
 244   }
 245 }
 246
 247 /****************************************************************************
 248   create subnet / workgroup / server entries
 249
 250   - add or create the subnet lists
 251   - add or create the workgroup entries in each subnet entry
 252   - register appropriate NetBIOS names for the workgroup entries
 253
 254 **************************************************************************/
 255 void add_my_subnets(char *group)
 256 {
 257   static BOOL create_subnets = True;
 258   struct subnet_record *d = NULL;
 259   struct interface *i = NULL;
 260
 261   if (*group == '*') return;
 262
 263   /* Create subnets from all the local interfaces and thread them onto
 264      the linked list.
 265    */
 266   for (i = local_interfaces; i; i = i->next)
 267   {
 268     add_subnet_entry(i->bcast,i->nmask,group, create_subnets, True);
 269   }
 270
 271   /* If we are using WINS, then we must add the workgroup to the WINS
 272      subnet. This is used as a place to keep collated server lists.
 273    */
 274
 275   /* Create the WINS subnet if we are using WINS - but don't thread it
 276      onto the linked subnet list.
 277    */
 278   if (lp_wins_support() || lp_wins_server())
 279   {
 280     struct in_addr wins_nmask = ipzero;
 281     wins_subnet = add_subnet_entry(wins_ip, wins_nmask, group, create_subnets, False);
 282   }
 283
 284   /* Ensure we only create the subnets once. */
 285   create_subnets = False;
 286
 287   /* Now we have created all the subnets - we can add the names
 288      that make us a client member in the workgroup.
 289    */
 290   for (d = FIRST_SUBNET; d; d = NEXT_SUBNET_INCLUDING_WINS(d))
 291     add_workgroup_to_subnet(d, group);
 292 }
 293
 294 /*******************************************************************
 295   write out browse.dat
 296   ******************************************************************/
 297 void write_browse_list(time_t t)
 298 {
 299   struct subnet_record *d;
 300   pstring fname,fnamenew;
 301   FILE *f;
 302
 303   static time_t lasttime = 0;
 304
 305   if (!lasttime) lasttime = t;
 306   if (!updatedlists || t - lasttime < 5) return;
 307
 308   lasttime = t;
 309   updatedlists = False;
 310   updatecount++;
 311
 312   dump_names();
 313   dump_workgroups();
 314
 315   pstrcpy(fname,lp_lockdir());
 316   trim_string(fname,NULL,"/");
 317   strcat(fname,"/");
 318   strcat(fname,SERVER_LIST);
 319   pstrcpy(fnamenew,fname);
 320   strcat(fnamenew,".");
 321
 322   f = fopen(fnamenew,"w");
 323
 324   if (!f)
 325     {
 326       DEBUG(4,("Can't open %s - %s\n",fnamenew,strerror(errno)));
 327       return;
 328     }
 329
 330   for (d = FIRST_SUBNET; d ; d = NEXT_SUBNET_INCLUDING_WINS(d))
 331     {
 332       struct work_record *work;
 333       for (work = d->workgrouplist; work ; work = work->next)
 334         {
 335           struct server_record *s;
 336           for (s = work->serverlist; s ; s = s->next)
 337             {
 338               fstring tmp;
 339
 340               /* don't list domains I don't have a master for */
 341               if ((s->serv.type & SV_TYPE_DOMAIN_ENUM) && !s->serv.comment[0])
 342                 {
 343                   continue;
 344                 }
 345
 346               /* output server details, plus what workgroup/domain
 347                  they're in. without the domain information, the
 348                  combined list of all servers in all workgroups gets
 349                  sent to anyone asking about any workgroup! */
 350
 351               sprintf(tmp, "\"%s\"", s->serv.name);
 352               fprintf(f, "%-25s ", tmp);
 353               fprintf(f, "%08x ", s->serv.type);
 354               sprintf(tmp, "\"%s\" ", s->serv.comment);
 355               fprintf(f, "%-30s", tmp);
 356               fprintf(f, "\"%s\"\n", work->work_group);
 357             }
 358         }
 359     }
 360
 361   fclose(f);
 362   unlink(fname);
 363   chmod(fnamenew,0644);
 364   rename(fnamenew,fname);
 365   DEBUG(3,("Wrote browse list %s\n",fname));
 366 }
 367