loadparm.c

   1 /* This is based on loadparm.c from Samba, written by Andrew Tridgell
   2    and Karl Auer */
   3
   4 /* some fixes
   5  *
   6  * Copyright (C) 2001, 2002 by Martin Pool <mbp@samba.org>
   7  */
   8
   9 /*
  10    This program is free software; you can redistribute it and/or modify
  11    it under the terms of the GNU General Public License as published by
  12    the Free Software Foundation; either version 2 of the License, or
  13    (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23 */
  24
  25 /*
  26  *  Load parameters.
  27  *
  28  *  This module provides suitable callback functions for the params
  29  *  module. It builds the internal table of service details which is
  30  *  then used by the rest of the server.
  31  *
  32  * To add a parameter:
  33  *
  34  * 1) add it to the global or service structure definition
  35  * 2) add it to the parm_table
  36  * 3) add it to the list of available functions (eg: using FN_GLOBAL_STRING())
  37  * 4) If it's a global then initialise it in init_globals. If a local
  38  *    (ie. service) parameter then initialise it in the sDefault structure
  39  *
  40  *
  41  * Notes:
  42  *   The configuration file is processed sequentially for speed. It is NOT
  43  *   accessed randomly as happens in 'real' Windows. For this reason, there
  44  *   is a fair bit of sequence-dependent code here - ie., code which assumes
  45  *   that certain things happen before others. In particular, the code which
  46  *   happens at the boundary between sections is delicately poised, so be
  47  *   careful!
  48  *
  49  */
  50
  51 /* TODO: Parameter to set debug level on server. */
  52
  53 #include "rsync.h"
  54 #define PTR_DIFF(p1,p2) ((ptrdiff_t)(((char *)(p1)) - (char *)(p2)))
  55 #define strequal(a,b) (strcasecmp(a,b)==0)
  56 #define BOOLSTR(b) ((b) ? "Yes" : "No")
  57 typedef char pstring[1024];
  58 #define pstrcpy(a,b) strlcpy(a,b,sizeof(pstring))
  59
  60 /* the following are used by loadparm for option lists */
  61 typedef enum
  62 {
  63         P_BOOL,P_BOOLREV,P_CHAR,P_INTEGER,P_OCTAL,
  64         P_STRING,P_GSTRING,P_ENUM,P_SEP
  65 } parm_type;
  66
  67 typedef enum
  68 {
  69         P_LOCAL,P_GLOBAL,P_SEPARATOR,P_NONE
  70 } parm_class;
  71
  72 struct enum_list {
  73         int value;
  74         char *name;
  75 };
  76
  77 struct parm_struct
  78 {
  79         char *label;
  80         parm_type type;
  81         parm_class class;
  82         void *ptr;
  83         struct enum_list *enum_list;
  84         unsigned flags;
  85 };
  86
  87 #ifndef GLOBAL_NAME
  88 #define GLOBAL_NAME "global"
  89 #endif
  90
  91 /* some helpful bits */
  92 #define pSERVICE(i) ServicePtrs[i]
  93 #define iSERVICE(i) (*pSERVICE(i))
  94 #define LP_SNUM_OK(iService) (((iService) >= 0) && ((iService) < iNumServices))
  95
  96 /*
  97  * This structure describes global (ie., server-wide) parameters.
  98  */
  99 typedef struct
 100 {
 101         char *motd_file;
 102         char *log_file;
 103         char *pid_file;
 104         int syslog_facility;
 105         char *socket_options;
 106 } global;
 107
 108 static global Globals;
 109
 110
 111
 112 /*
 113  * This structure describes a single service.
 114  */
 115 typedef struct
 116 {
 117         char *name;
 118         char *path;
 119         char *comment;
 120         char *lock_file;
 121         BOOL read_only;
 122         BOOL list;
 123         BOOL use_chroot;
 124         BOOL transfer_logging;
 125         BOOL ignore_errors;
 126         char *uid;
 127         char *gid;
 128         char *hosts_allow;
 129         char *hosts_deny;
 130         char *auth_users;
 131         char *secrets_file;
 132         BOOL strict_modes;
 133         char *exclude;
 134         char *exclude_from;
 135         char *include;
 136         char *include_from;
 137         char *log_format;
 138         char *refuse_options;
 139         char *dont_compress;
 140         int timeout;
 141         int max_connections;
 142         BOOL ignore_nonreadable;
 143 } service;
 144
 145
 146 /* This is a default service used to prime a services structure */
 147 static service sDefault =
 148 {
 149         NULL,    /* name */
 150         NULL,    /* path */
 151         NULL,    /* comment */
 152         DEFAULT_LOCK_FILE,    /* lock file */
 153         True,    /* read only */
 154         True,    /* list */
 155         True,    /* use chroot */
 156         False,   /* transfer logging */
 157         False,   /* ignore errors */
 158         "nobody",/* uid */
 159
 160         /* TODO: This causes problems on Debian, where it is called
 161          * "nogroup".  Debian patch this in their version of the
 162          * package, but it would be nice to be consistent.  Possibly
 163          * other systems are different again.
 164          *
 165          * What is the best behaviour?  Perhaps always using (gid_t)
 166          * -2? */
 167         "nobody",/* gid */
 168
 169         NULL,    /* hosts allow */
 170         NULL,    /* hosts deny */
 171         NULL,    /* auth users */
 172         NULL,    /* secrets file */
 173         True,   /* strict modes */
 174         NULL,    /* exclude */
 175         NULL,    /* exclude from */
 176         NULL,    /* include */
 177         NULL,    /* include from */
 178         "%o %h [%a] %m (%u) %f %l",    /* log format */
 179         NULL,    /* refuse options */
 180         "*.gz *.tgz *.zip *.z *.rpm *.deb *.iso *.bz2 *.tbz",    /* dont compress */
 181         0,        /* timeout */
 182         0,        /* max connections */
 183         False     /* ignore nonreadable */
 184 };
 185
 186
 187
 188 /* local variables */
 189 static service **ServicePtrs = NULL;
 190 static int iNumServices = 0;
 191 static int iServiceIndex = 0;
 192 static BOOL bInGlobalSection = True;
 193
 194 #define NUMPARAMETERS (sizeof(parm_table) / sizeof(struct parm_struct))
 195
 196 static struct enum_list enum_facilities[] = {
 197 #ifdef LOG_AUTH
 198         { LOG_AUTH, "auth" },
 199 #endif
 200 #ifdef LOG_AUTHPRIV
 201         { LOG_AUTHPRIV, "authpriv" },
 202 #endif
 203 #ifdef LOG_CRON
 204         { LOG_CRON, "cron" },
 205 #endif
 206 #ifdef LOG_DAEMON
 207         { LOG_DAEMON, "daemon" },
 208 #endif
 209 #ifdef LOG_FTP
 210         { LOG_FTP, "ftp" },
 211 #endif
 212 #ifdef LOG_KERN
 213         { LOG_KERN, "kern" },
 214 #endif
 215 #ifdef LOG_LPR
 216         { LOG_LPR, "lpr" },
 217 #endif
 218 #ifdef LOG_MAIL
 219         { LOG_MAIL, "mail" },
 220 #endif
 221 #ifdef LOG_NEWS
 222         { LOG_NEWS, "news" },
 223 #endif
 224 #ifdef LOG_AUTH
 225         { LOG_AUTH, "security" },
 226 #endif
 227 #ifdef LOG_SYSLOG
 228         { LOG_SYSLOG, "syslog" },
 229 #endif
 230 #ifdef LOG_USER
 231         { LOG_USER, "user" },
 232 #endif
 233 #ifdef LOG_UUCP
 234         { LOG_UUCP, "uucp" },
 235 #endif
 236 #ifdef LOG_LOCAL0
 237         { LOG_LOCAL0, "local0" },
 238 #endif
 239 #ifdef LOG_LOCAL1
 240         { LOG_LOCAL1, "local1" },
 241 #endif
 242 #ifdef LOG_LOCAL2
 243         { LOG_LOCAL2, "local2" },
 244 #endif
 245 #ifdef LOG_LOCAL3
 246         { LOG_LOCAL3, "local3" },
 247 #endif
 248 #ifdef LOG_LOCAL4
 249         { LOG_LOCAL4, "local4" },
 250 #endif
 251 #ifdef LOG_LOCAL5
 252         { LOG_LOCAL5, "local5" },
 253 #endif
 254 #ifdef LOG_LOCAL6
 255         { LOG_LOCAL6, "local6" },
 256 #endif
 257 #ifdef LOG_LOCAL7
 258         { LOG_LOCAL7, "local7" },
 259 #endif
 260         { -1, NULL }};
 261
 262
 263 /* note that we do not initialise the defaults union - it is not allowed in ANSI C */
 264 static struct parm_struct parm_table[] =
 265 {
 266   {"motd file",        P_STRING,  P_GLOBAL, &Globals.motd_file,    NULL,   0},
 267   {"syslog facility",  P_ENUM,    P_GLOBAL, &Globals.syslog_facility, enum_facilities,0},
 268   {"socket options",   P_STRING,  P_GLOBAL, &Globals.socket_options,NULL,  0},
 269   {"log file",         P_STRING,  P_GLOBAL, &Globals.log_file,      NULL,  0},
 270   {"pid file",         P_STRING,  P_GLOBAL, &Globals.pid_file,      NULL,  0},
 271
 272   {"timeout",          P_INTEGER, P_LOCAL,  &sDefault.timeout,     NULL,  0},
 273   {"max connections",  P_INTEGER, P_LOCAL,  &sDefault.max_connections,NULL, 0},
 274   {"name",             P_STRING,  P_LOCAL,  &sDefault.name,        NULL,   0},
 275   {"comment",          P_STRING,  P_LOCAL,  &sDefault.comment,     NULL,   0},
 276   {"lock file",        P_STRING,  P_LOCAL,  &sDefault.lock_file,   NULL,   0},
 277   {"path",             P_STRING,  P_LOCAL,  &sDefault.path,        NULL,   0},
 278   {"read only",        P_BOOL,    P_LOCAL,  &sDefault.read_only,   NULL,   0},
 279   {"list",             P_BOOL,    P_LOCAL,  &sDefault.list,        NULL,   0},
 280   {"use chroot",       P_BOOL,    P_LOCAL,  &sDefault.use_chroot,  NULL,   0},
 281   {"ignore nonreadable",P_BOOL,   P_LOCAL,  &sDefault.ignore_nonreadable,  NULL,   0},
 282   {"uid",              P_STRING,  P_LOCAL,  &sDefault.uid,         NULL,   0},
 283   {"gid",              P_STRING,  P_LOCAL,  &sDefault.gid,         NULL,   0},
 284   {"hosts allow",      P_STRING,  P_LOCAL,  &sDefault.hosts_allow, NULL,   0},
 285   {"hosts deny",       P_STRING,  P_LOCAL,  &sDefault.hosts_deny,  NULL,   0},
 286   {"auth users",       P_STRING,  P_LOCAL,  &sDefault.auth_users,  NULL,   0},
 287   {"secrets file",     P_STRING,  P_LOCAL,  &sDefault.secrets_file,NULL,   0},
 288   {"strict modes",     P_BOOL,    P_LOCAL,  &sDefault.strict_modes,NULL,   0},
 289   {"exclude",          P_STRING,  P_LOCAL,  &sDefault.exclude,     NULL,   0},
 290   {"exclude from",     P_STRING,  P_LOCAL,  &sDefault.exclude_from,NULL,   0},
 291   {"include",          P_STRING,  P_LOCAL,  &sDefault.include,     NULL,   0},
 292   {"include from",     P_STRING,  P_LOCAL,  &sDefault.include_from,NULL,   0},
 293   {"transfer logging", P_BOOL,    P_LOCAL,  &sDefault.transfer_logging,NULL,0},
 294   {"ignore errors",    P_BOOL,    P_LOCAL,  &sDefault.ignore_errors,NULL,0},
 295   {"log format",       P_STRING,  P_LOCAL,  &sDefault.log_format,  NULL,   0},
 296   {"refuse options",   P_STRING,  P_LOCAL,  &sDefault.refuse_options,NULL, 0},
 297   {"dont compress",    P_STRING,  P_LOCAL,  &sDefault.dont_compress,NULL,  0},
 298   {NULL,               P_BOOL,    P_NONE,   NULL,                  NULL,   0}
 299 };
 300
 301
 302 /***************************************************************************
 303 Initialise the global parameter structure.
 304 ***************************************************************************/
 305 static void init_globals(void)
 306 {
 307         memset(&Globals, 0, sizeof(Globals));
 308 #ifdef LOG_DAEMON
 309         Globals.syslog_facility = LOG_DAEMON;
 310 #endif
 311 }
 312
 313 /***************************************************************************
 314 Initialise the sDefault parameter structure.
 315 ***************************************************************************/
 316 static void init_locals(void)
 317 {
 318 }
 319
 320
 321 /*
 322    In this section all the functions that are used to access the
 323    parameters from the rest of the program are defined
 324 */
 325
 326 #define FN_GLOBAL_STRING(fn_name,ptr) \
 327  char *fn_name(void) {return(*(char **)(ptr) ? *(char **)(ptr) : "");}
 328 #define FN_GLOBAL_BOOL(fn_name,ptr) \
 329  BOOL fn_name(void) {return(*(BOOL *)(ptr));}
 330 #define FN_GLOBAL_CHAR(fn_name,ptr) \
 331  char fn_name(void) {return(*(char *)(ptr));}
 332 #define FN_GLOBAL_INTEGER(fn_name,ptr) \
 333  int fn_name(void) {return(*(int *)(ptr));}
 334
 335 #define FN_LOCAL_STRING(fn_name,val) \
 336  char *fn_name(int i) {return((LP_SNUM_OK(i)&&pSERVICE(i)->val)?pSERVICE(i)->val : (sDefault.val?sDefault.val:""));}
 337 #define FN_LOCAL_BOOL(fn_name,val) \
 338  BOOL fn_name(int i) {return(LP_SNUM_OK(i)? pSERVICE(i)->val : sDefault.val);}
 339 #define FN_LOCAL_CHAR(fn_name,val) \
 340  char fn_name(int i) {return(LP_SNUM_OK(i)? pSERVICE(i)->val : sDefault.val);}
 341 #define FN_LOCAL_INTEGER(fn_name,val) \
 342  int fn_name(int i) {return(LP_SNUM_OK(i)? pSERVICE(i)->val : sDefault.val);}
 343
 344
 345 FN_GLOBAL_STRING(lp_motd_file, &Globals.motd_file)
 346 FN_GLOBAL_STRING(lp_log_file, &Globals.log_file)
 347 FN_GLOBAL_STRING(lp_pid_file, &Globals.pid_file)
 348 FN_GLOBAL_STRING(lp_socket_options, &Globals.socket_options)
 349 FN_GLOBAL_INTEGER(lp_syslog_facility, &Globals.syslog_facility)
 350
 351 FN_LOCAL_STRING(lp_name, name)
 352 FN_LOCAL_STRING(lp_comment, comment)
 353 FN_LOCAL_STRING(lp_path, path)
 354 FN_LOCAL_STRING(lp_lock_file, lock_file)
 355 FN_LOCAL_BOOL(lp_read_only, read_only)
 356 FN_LOCAL_BOOL(lp_list, list)
 357 FN_LOCAL_BOOL(lp_use_chroot, use_chroot)
 358 FN_LOCAL_BOOL(lp_transfer_logging, transfer_logging)
 359 FN_LOCAL_BOOL(lp_ignore_errors, ignore_errors)
 360 FN_LOCAL_BOOL(lp_ignore_nonreadable, ignore_nonreadable)
 361 FN_LOCAL_STRING(lp_uid, uid)
 362 FN_LOCAL_STRING(lp_gid, gid)
 363 FN_LOCAL_STRING(lp_hosts_allow, hosts_allow)
 364 FN_LOCAL_STRING(lp_hosts_deny, hosts_deny)
 365 FN_LOCAL_STRING(lp_auth_users, auth_users)
 366 FN_LOCAL_STRING(lp_secrets_file, secrets_file)
 367 FN_LOCAL_BOOL(lp_strict_modes, strict_modes)
 368 FN_LOCAL_STRING(lp_exclude, exclude)
 369 FN_LOCAL_STRING(lp_exclude_from, exclude_from)
 370 FN_LOCAL_STRING(lp_include, include)
 371 FN_LOCAL_STRING(lp_include_from, include_from)
 372 FN_LOCAL_STRING(lp_log_format, log_format)
 373 FN_LOCAL_STRING(lp_refuse_options, refuse_options)
 374 FN_LOCAL_STRING(lp_dont_compress, dont_compress)
 375 FN_LOCAL_INTEGER(lp_timeout, timeout)
 376 FN_LOCAL_INTEGER(lp_max_connections, max_connections)
 377
 378 /* local prototypes */
 379 static int    strwicmp( char *psz1, char *psz2 );
 380 static int    map_parameter( char *parmname);
 381 static BOOL   set_boolean( BOOL *pb, char *parmvalue );
 382 static int    getservicebyname(char *name, service *pserviceDest);
 383 static void   copy_service( service *pserviceDest,
 384                             service *pserviceSource);
 385 static BOOL   do_parameter(char *parmname, char *parmvalue);
 386 static BOOL   do_section(char *sectionname);
 387
 388
 389 /***************************************************************************
 390 initialise a service to the defaults
 391 ***************************************************************************/
 392 static void init_service(service *pservice)
 393 {
 394         memset((char *)pservice,0,sizeof(service));
 395         copy_service(pservice,&sDefault);
 396 }
 397
 398
 399 /**
 400  * Assign a copy of @p v to @p *s.  Handles NULL strings.  @p *v must
 401  * be initialized when this is called, either to NULL or a malloc'd
 402  * string.
 403  *
 404  * @fixme There is a small leak here in that sometimes the existing
 405  * value will be dynamically allocated, and the old copy is lost.
 406  * However, we can't always deallocate the old value, because in the
 407  * case of sDefault, it points to a static string.  It would be nice
 408  * to have either all-strdup'd values, or to never need to free
 409  * memory.
 410  **/
 411 static void string_set(char **s, const char *v)
 412 {
 413         if (!v) {
 414                 *s = NULL;
 415                 return;
 416         }
 417         *s = strdup(v);
 418         if (!*s)
 419                 exit_cleanup(RERR_MALLOC);
 420 }
 421
 422
 423 /***************************************************************************
 424 add a new service to the services array initialising it with the given
 425 service
 426 ***************************************************************************/
 427 static int add_a_service(service *pservice, char *name)
 428 {
 429   int i;
 430   service tservice;
 431   int num_to_alloc = iNumServices+1;
 432
 433   tservice = *pservice;
 434
 435   /* it might already exist */
 436   if (name)
 437     {
 438       i = getservicebyname(name,NULL);
 439       if (i >= 0)
 440         return(i);
 441     }
 442
 443   i = iNumServices;
 444
 445   ServicePtrs = (service **)Realloc(ServicePtrs,sizeof(service *)*num_to_alloc);
 446
 447   if (ServicePtrs)
 448           pSERVICE(iNumServices) = (service *)malloc(sizeof(service));
 449
 450   if (!ServicePtrs || !pSERVICE(iNumServices))
 451           return(-1);
 452
 453   iNumServices++;
 454
 455   init_service(pSERVICE(i));
 456   copy_service(pSERVICE(i),&tservice);
 457   if (name)
 458     string_set(&iSERVICE(i).name,name);
 459
 460   return(i);
 461 }
 462
 463 /***************************************************************************
 464 Do a case-insensitive, whitespace-ignoring string compare.
 465 ***************************************************************************/
 466 static int strwicmp(char *psz1, char *psz2)
 467 {
 468    /* if BOTH strings are NULL, return TRUE, if ONE is NULL return */
 469    /* appropriate value. */
 470    if (psz1 == psz2)
 471       return (0);
 472    else
 473       if (psz1 == NULL)
 474          return (-1);
 475       else
 476           if (psz2 == NULL)
 477               return (1);
 478
 479    /* sync the strings on first non-whitespace */
 480    while (1)
 481    {
 482       while (isspace(*psz1))
 483          psz1++;
 484       while (isspace(*psz2))
 485          psz2++;
 486       if (toupper(*psz1) != toupper(*psz2) || *psz1 == '\0' || *psz2 == '\0')
 487          break;
 488       psz1++;
 489       psz2++;
 490    }
 491    return (*psz1 - *psz2);
 492 }
 493
 494 /***************************************************************************
 495 Map a parameter's string representation to something we can use.
 496 Returns False if the parameter string is not recognised, else TRUE.
 497 ***************************************************************************/
 498 static int map_parameter(char *parmname)
 499 {
 500    int iIndex;
 501
 502    if (*parmname == '-')
 503      return(-1);
 504
 505    for (iIndex = 0; parm_table[iIndex].label; iIndex++)
 506       if (strwicmp(parm_table[iIndex].label, parmname) == 0)
 507          return(iIndex);
 508
 509    rprintf(FERROR, "Unknown Parameter encountered: \"%s\"\n", parmname);
 510    return(-1);
 511 }
 512
 513
 514 /***************************************************************************
 515 Set a boolean variable from the text value stored in the passed string.
 516 Returns True in success, False if the passed string does not correctly
 517 represent a boolean.
 518 ***************************************************************************/
 519 static BOOL set_boolean(BOOL *pb, char *parmvalue)
 520 {
 521    BOOL bRetval;
 522
 523    bRetval = True;
 524    if (strwicmp(parmvalue, "yes") == 0 ||
 525        strwicmp(parmvalue, "true") == 0 ||
 526        strwicmp(parmvalue, "1") == 0)
 527       *pb = True;
 528    else
 529       if (strwicmp(parmvalue, "no") == 0 ||
 530           strwicmp(parmvalue, "False") == 0 ||
 531           strwicmp(parmvalue, "0") == 0)
 532          *pb = False;
 533       else
 534       {
 535          rprintf(FERROR, "Badly formed boolean in configuration file: \"%s\".\n",
 536                parmvalue);
 537          bRetval = False;
 538       }
 539    return (bRetval);
 540 }
 541
 542 /***************************************************************************
 543 Find a service by name. Otherwise works like get_service.
 544 ***************************************************************************/
 545 static int getservicebyname(char *name, service *pserviceDest)
 546 {
 547    int iService;
 548
 549    for (iService = iNumServices - 1; iService >= 0; iService--)
 550       if (strwicmp(iSERVICE(iService).name, name) == 0)
 551       {
 552          if (pserviceDest != NULL)
 553            copy_service(pserviceDest, pSERVICE(iService));
 554          break;
 555       }
 556
 557    return (iService);
 558 }
 559
 560
 561
 562 /***************************************************************************
 563 Copy a service structure to another
 564
 565 ***************************************************************************/
 566 static void copy_service(service *pserviceDest,
 567                          service *pserviceSource)
 568 {
 569   int i;
 570
 571   for (i=0;parm_table[i].label;i++)
 572     if (parm_table[i].ptr && parm_table[i].class == P_LOCAL) {
 573         void *def_ptr = parm_table[i].ptr;
 574         void *src_ptr =
 575           ((char *)pserviceSource) + PTR_DIFF(def_ptr,&sDefault);
 576         void *dest_ptr =
 577           ((char *)pserviceDest) + PTR_DIFF(def_ptr,&sDefault);
 578
 579         switch (parm_table[i].type)
 580           {
 581           case P_BOOL:
 582           case P_BOOLREV:
 583             *(BOOL *)dest_ptr = *(BOOL *)src_ptr;
 584             break;
 585
 586           case P_INTEGER:
 587           case P_ENUM:
 588           case P_OCTAL:
 589             *(int *)dest_ptr = *(int *)src_ptr;
 590             break;
 591
 592           case P_CHAR:
 593             *(char *)dest_ptr = *(char *)src_ptr;
 594             break;
 595
 596           case P_STRING:
 597             string_set(dest_ptr,*(char **)src_ptr);
 598             break;
 599
 600           default:
 601             break;
 602           }
 603       }
 604 }
 605
 606
 607 /***************************************************************************
 608 Process a parameter for a particular service number. If snum < 0
 609 then assume we are in the globals
 610 ***************************************************************************/
 611 static BOOL lp_do_parameter(int snum, char *parmname, char *parmvalue)
 612 {
 613    int parmnum, i;
 614    void *parm_ptr=NULL; /* where we are going to store the result */
 615    void *def_ptr=NULL;
 616
 617    parmnum = map_parameter(parmname);
 618
 619    if (parmnum < 0)
 620      {
 621        rprintf(FERROR, "IGNORING unknown parameter \"%s\"\n", parmname);
 622        return(True);
 623      }
 624
 625    def_ptr = parm_table[parmnum].ptr;
 626
 627    /* we might point at a service, the default service or a global */
 628    if (snum < 0) {
 629      parm_ptr = def_ptr;
 630    } else {
 631        if (parm_table[parmnum].class == P_GLOBAL) {
 632            rprintf(FERROR, "Global parameter %s found in service section!\n",parmname);
 633            return(True);
 634          }
 635        parm_ptr = ((char *)pSERVICE(snum)) + PTR_DIFF(def_ptr,&sDefault);
 636    }
 637
 638    /* now switch on the type of variable it is */
 639    switch (parm_table[parmnum].type)
 640      {
 641      case P_BOOL:
 642        set_boolean(parm_ptr,parmvalue);
 643        break;
 644
 645      case P_BOOLREV:
 646        set_boolean(parm_ptr,parmvalue);
 647        *(BOOL *)parm_ptr = ! *(BOOL *)parm_ptr;
 648        break;
 649
 650      case P_INTEGER:
 651        *(int *)parm_ptr = atoi(parmvalue);
 652        break;
 653
 654      case P_CHAR:
 655        *(char *)parm_ptr = *parmvalue;
 656        break;
 657
 658      case P_OCTAL:
 659        sscanf(parmvalue,"%o",(int *)parm_ptr);
 660        break;
 661
 662      case P_STRING:
 663        string_set(parm_ptr,parmvalue);
 664        break;
 665
 666      case P_GSTRING:
 667        strlcpy((char *)parm_ptr,parmvalue,sizeof(pstring));
 668        break;
 669
 670      case P_ENUM:
 671              for (i=0;parm_table[parmnum].enum_list[i].name;i++) {
 672                      if (strequal(parmvalue, parm_table[parmnum].enum_list[i].name)) {
 673                              *(int *)parm_ptr = parm_table[parmnum].enum_list[i].value;
 674                              break;
 675                      }
 676              }
 677              if (!parm_table[parmnum].enum_list[i].name) {
 678                      if (atoi(parmvalue) > 0)
 679                              *(int *)parm_ptr = atoi(parmvalue);
 680              }
 681              break;
 682      case P_SEP:
 683              break;
 684      }
 685
 686    return(True);
 687 }
 688
 689 /***************************************************************************
 690 Process a parameter.
 691 ***************************************************************************/
 692 static BOOL do_parameter(char *parmname, char *parmvalue)
 693 {
 694    return lp_do_parameter(bInGlobalSection?-2:iServiceIndex, parmname, parmvalue);
 695 }
 696
 697 /***************************************************************************
 698 Process a new section (service). At this stage all sections are services.
 699 Later we'll have special sections that permit server parameters to be set.
 700 Returns True on success, False on failure.
 701 ***************************************************************************/
 702 static BOOL do_section(char *sectionname)
 703 {
 704    BOOL bRetval;
 705    BOOL isglobal = (strwicmp(sectionname, GLOBAL_NAME) == 0);
 706    bRetval = False;
 707
 708    /* if we were in a global section then do the local inits */
 709    if (bInGlobalSection && !isglobal)
 710      init_locals();
 711
 712    /* if we've just struck a global section, note the fact. */
 713    bInGlobalSection = isglobal;
 714
 715    /* check for multiple global sections */
 716    if (bInGlobalSection)
 717    {
 718      return(True);
 719    }
 720
 721    /* if we have a current service, tidy it up before moving on */
 722    bRetval = True;
 723
 724    if (iServiceIndex >= 0)
 725      bRetval = True;
 726
 727    /* if all is still well, move to the next record in the services array */
 728    if (bRetval)
 729      {
 730        /* We put this here to avoid an odd message order if messages are */
 731        /* issued by the post-processing of a previous section. */
 732
 733        if ((iServiceIndex=add_a_service(&sDefault,sectionname)) < 0)
 734          {
 735            rprintf(FERROR,"Failed to add a new service\n");
 736            return(False);
 737          }
 738      }
 739
 740    return (bRetval);
 741 }
 742
 743
 744 /***************************************************************************
 745 Load the services array from the services file. Return True on success,
 746 False on failure.
 747 ***************************************************************************/
 748 BOOL lp_load(char *pszFname, int globals_only)
 749 {
 750         pstring n2;
 751         BOOL bRetval;
 752
 753         bRetval = False;
 754
 755         bInGlobalSection = True;
 756
 757         init_globals();
 758
 759         pstrcpy(n2,pszFname);
 760
 761         /* We get sections first, so have to start 'behind' to make up */
 762         iServiceIndex = -1;
 763         bRetval = pm_process(n2, globals_only?NULL:do_section, do_parameter);
 764
 765         return (bRetval);
 766 }
 767
 768
 769 /***************************************************************************
 770 return the max number of services
 771 ***************************************************************************/
 772 int lp_numservices(void)
 773 {
 774   return(iNumServices);
 775 }
 776
 777 /***************************************************************************
 778 Return the number of the service with the given name, or -1 if it doesn't
 779 exist. Note that this is a DIFFERENT ANIMAL from the internal function
 780 getservicebyname()! This works ONLY if all services have been loaded, and
 781 does not copy the found service.
 782 ***************************************************************************/
 783 int lp_number(char *name)
 784 {
 785    int iService;
 786
 787    for (iService = iNumServices - 1; iService >= 0; iService--)
 788       if (strequal(lp_name(iService), name))
 789          break;
 790
 791    return (iService);
 792 }
 793