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