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