s3-secrets: only include secrets.h when needed.
[samba.git] / source3 / lib / substitute.c
1 /* 
2    Unix SMB/CIFS implementation.
3    string substitution functions
4    Copyright (C) Andrew Tridgell 1992-2000
5    Copyright (C) Gerald Carter   2006
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 3 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, see <http://www.gnu.org/licenses/>.
19 */
20
21
22 #include "includes.h"
23 #include "secrets.h"
24
25 static char *alloc_sub_basic(const char *smb_name, const char *domain_name,
26                              const char *str);
27
28 userdom_struct current_user_info;
29 fstring remote_proto="UNKNOWN";
30
31 /**
32  * Set the 'local' machine name
33  * @param local_name the name we are being called
34  * @param if this is the 'final' name for us, not be be changed again
35  */
36
37 static char *local_machine;
38
39 void free_local_machine_name(void)
40 {
41         SAFE_FREE(local_machine);
42 }
43
44 bool set_local_machine_name(const char *local_name, bool perm)
45 {
46         static bool already_perm = false;
47         char *tmp_local_machine = NULL;
48         char addr[INET6_ADDRSTRLEN];
49         size_t len;
50
51         tmp_local_machine = SMB_STRDUP(local_name);
52         if (!tmp_local_machine) {
53                 return false;
54         }
55         trim_char(tmp_local_machine,' ',' ');
56
57         /*
58          * Windows NT/2k uses "*SMBSERVER" and XP uses "*SMBSERV"
59          * arrggg!!!
60          */
61
62         if (strequal(tmp_local_machine, "*SMBSERVER") ||
63                         strequal(tmp_local_machine, "*SMBSERV") )  {
64                 SAFE_FREE(local_machine);
65                 local_machine = SMB_STRDUP(client_socket_addr(get_client_fd(),
66                                         addr, sizeof(addr)) );
67                 SAFE_FREE(tmp_local_machine);
68                 return local_machine ? true : false;
69         }
70
71         if (already_perm) {
72                 return true;
73         }
74
75         SAFE_FREE(local_machine);
76         len = strlen(tmp_local_machine);
77         local_machine = SMB_CALLOC_ARRAY(char, len+1);
78         if (!local_machine) {
79                 SAFE_FREE(tmp_local_machine);
80                 return false;
81         }
82         /* alpha_strcpy includes the space for the terminating nul. */
83         alpha_strcpy(local_machine,tmp_local_machine,
84                         SAFE_NETBIOS_CHARS,len+1);
85         strlower_m(local_machine);
86         SAFE_FREE(tmp_local_machine);
87
88         already_perm = perm;
89
90         return true;
91 }
92
93 const char *get_local_machine_name(void)
94 {
95         if (!local_machine || !*local_machine) {
96                 return global_myname();
97         }
98
99         return local_machine;
100 }
101
102 /**
103  * Set the 'remote' machine name
104  * @param remote_name the name our client wants to be called by
105  * @param if this is the 'final' name for them, not be be changed again
106  */
107
108 static char *remote_machine;
109
110 bool set_remote_machine_name(const char *remote_name, bool perm)
111 {
112         static bool already_perm = False;
113         char *tmp_remote_machine;
114         size_t len;
115
116         if (already_perm) {
117                 return true;
118         }
119
120         tmp_remote_machine = SMB_STRDUP(remote_name);
121         if (!tmp_remote_machine) {
122                 return false;
123         }
124         trim_char(tmp_remote_machine,' ',' ');
125
126         SAFE_FREE(remote_machine);
127         len = strlen(tmp_remote_machine);
128         remote_machine = SMB_CALLOC_ARRAY(char, len+1);
129         if (!remote_machine) {
130                 SAFE_FREE(tmp_remote_machine);
131                 return false;
132         }
133
134         /* alpha_strcpy includes the space for the terminating nul. */
135         alpha_strcpy(remote_machine,tmp_remote_machine,
136                         SAFE_NETBIOS_CHARS,len+1);
137         strlower_m(remote_machine);
138         SAFE_FREE(tmp_remote_machine);
139
140         already_perm = perm;
141
142         return true;
143 }
144
145 const char *get_remote_machine_name(void)
146 {
147         return remote_machine ? remote_machine : "";
148 }
149
150 /*******************************************************************
151  Setup the string used by %U substitution.
152 ********************************************************************/
153
154 static char *smb_user_name;
155
156 void sub_set_smb_name(const char *name)
157 {
158         char *tmp;
159         size_t len;
160         bool is_machine_account = false;
161
162         /* don't let anonymous logins override the name */
163         if (!name || !*name) {
164                 return;
165         }
166
167         tmp = SMB_STRDUP(name);
168         if (!tmp) {
169                 return;
170         }
171         trim_char(tmp, ' ', ' ');
172         strlower_m(tmp);
173
174         len = strlen(tmp);
175
176         if (len == 0) {
177                 SAFE_FREE(tmp);
178                 return;
179         }
180
181         /* long story but here goes....we have to allow usernames
182            ending in '$' as they are valid machine account names.
183            So check for a machine account and re-add the '$'
184            at the end after the call to alpha_strcpy().   --jerry  */
185
186         if (tmp[len-1] == '$') {
187                 is_machine_account = True;
188         }
189
190         SAFE_FREE(smb_user_name);
191         smb_user_name = SMB_CALLOC_ARRAY(char, len+1);
192         if (!smb_user_name) {
193                 SAFE_FREE(tmp);
194                 return;
195         }
196
197         /* alpha_strcpy includes the space for the terminating nul. */
198         alpha_strcpy(smb_user_name, tmp,
199                         SAFE_NETBIOS_CHARS,
200                         len+1);
201
202         SAFE_FREE(tmp);
203
204         if (is_machine_account) {
205                 len = strlen(smb_user_name);
206                 smb_user_name[len-1] = '$';
207         }
208 }
209
210 static const char *get_smb_user_name(void)
211 {
212         return smb_user_name ? smb_user_name : "";
213 }
214
215 /*******************************************************************
216  Setup the strings used by substitutions. Called per packet. Ensure
217  %U name is set correctly also.
218
219  smb_name must be sanitized by alpha_strcpy
220 ********************************************************************/
221
222 void set_current_user_info(const char *smb_name, const char *unix_name,
223                            const char *domain)
224 {
225         fstrcpy(current_user_info.smb_name, smb_name);
226         fstrcpy(current_user_info.unix_name, unix_name);
227         fstrcpy(current_user_info.domain, domain);
228
229         /* The following is safe as current_user_info.smb_name
230          * has already been sanitised in register_existing_vuid. */
231
232         sub_set_smb_name(current_user_info.smb_name);
233 }
234
235 /*******************************************************************
236  Return the current active user name.
237 *******************************************************************/
238
239 const char *get_current_username(void)
240 {
241         if (current_user_info.smb_name[0] == '\0' ) {
242                 return get_smb_user_name();
243         }
244
245         return current_user_info.smb_name;
246 }
247
248 /*******************************************************************
249  Given a pointer to a %$(NAME) in p and the whole string in str
250  expand it as an environment variable.
251  Return a new allocated and expanded string.
252  Based on code by Branko Cibej <branko.cibej@hermes.si>
253  When this is called p points at the '%' character.
254  May substitute multiple occurrencies of the same env var.
255 ********************************************************************/
256
257 static char * realloc_expand_env_var(char *str, char *p)
258 {
259         char *envname;
260         char *envval;
261         char *q, *r;
262         int copylen;
263
264         if (p[0] != '%' || p[1] != '$' || p[2] != '(') {
265                 return str;
266         }
267
268         /*
269          * Look for the terminating ')'.
270          */
271
272         if ((q = strchr_m(p,')')) == NULL) {
273                 DEBUG(0,("expand_env_var: Unterminated environment variable [%s]\n", p));
274                 return str;
275         }
276
277         /*
278          * Extract the name from within the %$(NAME) string.
279          */
280
281         r = p + 3;
282         copylen = q - r;
283
284         /* reserve space for use later add %$() chars */
285         if ( (envname = (char *)SMB_MALLOC(copylen + 1 + 4)) == NULL ) {
286                 return NULL;
287         }
288
289         strncpy(envname,r,copylen);
290         envname[copylen] = '\0';
291
292         if ((envval = getenv(envname)) == NULL) {
293                 DEBUG(0,("expand_env_var: Environment variable [%s] not set\n", envname));
294                 SAFE_FREE(envname);
295                 return str;
296         }
297
298         /*
299          * Copy the full %$(NAME) into envname so it
300          * can be replaced.
301          */
302
303         copylen = q + 1 - p;
304         strncpy(envname,p,copylen);
305         envname[copylen] = '\0';
306         r = realloc_string_sub(str, envname, envval);
307         SAFE_FREE(envname);
308
309         return r;
310 }
311
312 /*******************************************************************
313 *******************************************************************/
314
315 static char *longvar_domainsid( void )
316 {
317         struct dom_sid sid;
318         fstring tmp;
319         char *sid_string;
320
321         if ( !secrets_fetch_domain_sid( lp_workgroup(), &sid ) ) {
322                 return NULL;
323         }
324
325         sid_string = SMB_STRDUP( sid_to_fstring( tmp, &sid ) );
326
327         if ( !sid_string ) {
328                 DEBUG(0,("longvar_domainsid: failed to dup SID string!\n"));
329         }
330
331         return sid_string;
332 }
333
334 /*******************************************************************
335 *******************************************************************/
336
337 struct api_longvar {
338         const char *name;
339         char* (*fn)( void );
340 };
341
342 static struct api_longvar longvar_table[] = {
343         { "DomainSID",          longvar_domainsid },
344         { NULL,                 NULL }
345 };
346
347 static char *get_longvar_val( const char *varname )
348 {
349         int i;
350
351         DEBUG(7,("get_longvar_val: expanding variable [%s]\n", varname));
352
353         for ( i=0; longvar_table[i].name; i++ ) {
354                 if ( strequal( longvar_table[i].name, varname ) ) {
355                         return longvar_table[i].fn();
356                 }
357         }
358
359         return NULL;
360 }
361
362 /*******************************************************************
363  Expand the long smb.conf variable names given a pointer to a %(NAME).
364  Return the number of characters by which the pointer should be advanced.
365  When this is called p points at the '%' character.
366 ********************************************************************/
367
368 static char *realloc_expand_longvar(char *str, char *p)
369 {
370         fstring varname;
371         char *value;
372         char *q, *r;
373         int copylen;
374
375         if ( p[0] != '%' || p[1] != '(' ) {
376                 return str;
377         }
378
379         /* Look for the terminating ')'.*/
380
381         if ((q = strchr_m(p,')')) == NULL) {
382                 DEBUG(0,("realloc_expand_longvar: Unterminated environment variable [%s]\n", p));
383                 return str;
384         }
385
386         /* Extract the name from within the %(NAME) string.*/
387
388         r = p+2;
389         copylen = MIN( (q-r), (sizeof(varname)-1) );
390         strncpy(varname, r, copylen);
391         varname[copylen] = '\0';
392
393         if ((value = get_longvar_val(varname)) == NULL) {
394                 DEBUG(0,("realloc_expand_longvar: Variable [%s] not set.  Skipping\n", varname));
395                 return str;
396         }
397
398         /* Copy the full %(NAME) into envname so it can be replaced.*/
399
400         copylen = MIN( (q+1-p),(sizeof(varname)-1) );
401         strncpy( varname, p, copylen );
402         varname[copylen] = '\0';
403         r = realloc_string_sub(str, varname, value);
404         SAFE_FREE( value );
405
406         /* skip over the %(varname) */
407
408         return r;
409 }
410
411 /*******************************************************************
412  Patch from jkf@soton.ac.uk
413  Added this to implement %p (NIS auto-map version of %H)
414 *******************************************************************/
415
416 static const char *automount_path(const char *user_name)
417 {
418         TALLOC_CTX *ctx = talloc_tos();
419         const char *server_path;
420
421         /* use the passwd entry as the default */
422         /* this will be the default if WITH_AUTOMOUNT is not used or fails */
423
424         server_path = talloc_strdup(ctx, get_user_home_dir(ctx, user_name));
425         if (!server_path) {
426                 return "";
427         }
428
429 #if (defined(HAVE_NETGROUP) && defined (WITH_AUTOMOUNT))
430
431         if (lp_nis_home_map()) {
432                 const char *home_path_start;
433                 char *automount_value = automount_lookup(ctx, user_name);
434
435                 if(automount_value && strlen(automount_value) > 0) {
436                         home_path_start = strchr_m(automount_value,':');
437                         if (home_path_start != NULL) {
438                                 DEBUG(5, ("NIS lookup succeeded. "
439                                         "Home path is: %s\n",
440                                         home_path_start ?
441                                                 (home_path_start+1):""));
442                                 server_path = talloc_strdup(ctx,
443                                                         home_path_start+1);
444                                 if (!server_path) {
445                                         server_path = "";
446                                 }
447                         }
448                 } else {
449                         /* NIS key lookup failed: default to
450                          * user home directory from password file */
451                         DEBUG(5, ("NIS lookup failed. Using Home path from "
452                         "passwd file. Home path is: %s\n", server_path ));
453                 }
454         }
455 #endif
456
457         DEBUG(4,("Home server path: %s\n", server_path));
458         return server_path;
459 }
460
461 /*******************************************************************
462  Patch from jkf@soton.ac.uk
463  This is Luke's original function with the NIS lookup code
464  moved out to a separate function.
465 *******************************************************************/
466
467 static const char *automount_server(const char *user_name)
468 {
469         TALLOC_CTX *ctx = talloc_tos();
470         const char *server_name;
471         const char *local_machine_name = get_local_machine_name();
472
473         /* use the local machine name as the default */
474         /* this will be the default if WITH_AUTOMOUNT is not used or fails */
475         if (local_machine_name && *local_machine_name) {
476                 server_name = talloc_strdup(ctx, local_machine_name);
477         } else {
478                 server_name = talloc_strdup(ctx, global_myname());
479         }
480
481         if (!server_name) {
482                 return "";
483         }
484
485 #if (defined(HAVE_NETGROUP) && defined (WITH_AUTOMOUNT))
486         if (lp_nis_home_map()) {
487                 char *p;
488                 char *srv;
489                 char *automount_value = automount_lookup(ctx, user_name);
490                 if (!automount_value) {
491                         return "";
492                 }
493                 srv = talloc_strdup(ctx, automount_value);
494                 if (!srv) {
495                         return "";
496                 }
497                 p = strchr_m(srv, ':');
498                 if (!p) {
499                         return "";
500                 }
501                 *p = '\0';
502                 server_name = srv;
503                 DEBUG(5, ("NIS lookup succeeded.  Home server %s\n",
504                                         server_name));
505         }
506 #endif
507
508         DEBUG(4,("Home server: %s\n", server_name));
509         return server_name;
510 }
511
512 /****************************************************************************
513  Do some standard substitutions in a string.
514  len is the length in bytes of the space allowed in string str. If zero means
515  don't allow expansions.
516 ****************************************************************************/
517
518 void standard_sub_basic(const char *smb_name, const char *domain_name,
519                         char *str, size_t len)
520 {
521         char *s;
522
523         if ( (s = alloc_sub_basic( smb_name, domain_name, str )) != NULL ) {
524                 strncpy( str, s, len );
525         }
526
527         SAFE_FREE( s );
528 }
529
530 /****************************************************************************
531  Do some standard substitutions in a string.
532  This function will return an allocated string that have to be freed.
533 ****************************************************************************/
534
535 char *talloc_sub_basic(TALLOC_CTX *mem_ctx, const char *smb_name,
536                        const char *domain_name, const char *str)
537 {
538         char *a, *t;
539
540         if ( (a = alloc_sub_basic(smb_name, domain_name, str)) == NULL ) {
541                 return NULL;
542         }
543         t = talloc_strdup(mem_ctx, a);
544         SAFE_FREE(a);
545         return t;
546 }
547
548 /****************************************************************************
549 ****************************************************************************/
550
551 static char *alloc_sub_basic(const char *smb_name, const char *domain_name,
552                              const char *str)
553 {
554         char *b, *p, *s, *r, *a_string;
555         fstring pidstr, vnnstr;
556         char addr[INET6_ADDRSTRLEN];
557         const char *local_machine_name = get_local_machine_name();
558         TALLOC_CTX *tmp_ctx = NULL;
559
560         /* workaround to prevent a crash while looking at bug #687 */
561
562         if (!str) {
563                 DEBUG(0,("alloc_sub_basic: NULL source string!  This should not happen\n"));
564                 return NULL;
565         }
566
567         a_string = SMB_STRDUP(str);
568         if (a_string == NULL) {
569                 DEBUG(0, ("alloc_sub_basic: Out of memory!\n"));
570                 return NULL;
571         }
572
573         tmp_ctx = talloc_stackframe();
574
575         for (b = s = a_string; (p = strchr_m(s, '%')); s = a_string + (p - b)) {
576
577                 r = NULL;
578                 b = a_string;
579
580                 switch (*(p+1)) {
581                 case 'U' : 
582                         r = strlower_talloc(tmp_ctx, smb_name);
583                         if (r == NULL) {
584                                 goto error;
585                         }
586                         a_string = realloc_string_sub(a_string, "%U", r);
587                         break;
588                 case 'G' : {
589                         struct passwd *pass;
590                         r = talloc_strdup(tmp_ctx, smb_name);
591                         if (r == NULL) {
592                                 goto error;
593                         }
594                         pass = Get_Pwnam_alloc(tmp_ctx, r);
595                         if (pass != NULL) {
596                                 a_string = realloc_string_sub(
597                                         a_string, "%G",
598                                         gidtoname(pass->pw_gid));
599                         }
600                         TALLOC_FREE(pass);
601                         break;
602                 }
603                 case 'D' :
604                         r = strupper_talloc(tmp_ctx, domain_name);
605                         if (r == NULL) {
606                                 goto error;
607                         }
608                         a_string = realloc_string_sub(a_string, "%D", r);
609                         break;
610                 case 'I' : {
611                         int offset = 0;
612                         client_addr(get_client_fd(), addr, sizeof(addr));
613                         if (strnequal(addr,"::ffff:",7)) {
614                                 offset = 7;
615                         }
616                         a_string = realloc_string_sub(a_string, "%I",
617                                                       addr + offset);
618                         break;
619                 }
620                 case 'i': 
621                         a_string = realloc_string_sub( a_string, "%i",
622                                         client_socket_addr(get_client_fd(), addr, sizeof(addr)) );
623                         break;
624                 case 'L' : 
625                         if ( StrnCaseCmp(p, "%LOGONSERVER%", strlen("%LOGONSERVER%")) == 0 ) {
626                                 break;
627                         }
628                         if (local_machine_name && *local_machine_name) {
629                                 a_string = realloc_string_sub(a_string, "%L", local_machine_name); 
630                         } else {
631                                 a_string = realloc_string_sub(a_string, "%L", global_myname()); 
632                         }
633                         break;
634                 case 'N':
635                         a_string = realloc_string_sub(a_string, "%N", automount_server(smb_name));
636                         break;
637                 case 'M' :
638                         a_string = realloc_string_sub(a_string, "%M", client_name(get_client_fd()));
639                         break;
640                 case 'R' :
641                         a_string = realloc_string_sub(a_string, "%R", remote_proto);
642                         break;
643                 case 'T' :
644                         a_string = realloc_string_sub(a_string, "%T", current_timestring(tmp_ctx, False));
645                         break;
646                 case 'a' :
647                         a_string = realloc_string_sub(a_string, "%a",
648                                         get_remote_arch_str());
649                         break;
650                 case 'd' :
651                         slprintf(pidstr,sizeof(pidstr)-1, "%d",(int)sys_getpid());
652                         a_string = realloc_string_sub(a_string, "%d", pidstr);
653                         break;
654                 case 'h' :
655                         a_string = realloc_string_sub(a_string, "%h", myhostname());
656                         break;
657                 case 'm' :
658                         a_string = realloc_string_sub(a_string, "%m",
659                                                       remote_machine
660                                                       ? remote_machine
661                                                       : "");
662                         break;
663                 case 'v' :
664                         a_string = realloc_string_sub(a_string, "%v", samba_version_string());
665                         break;
666                 case 'w' :
667                         a_string = realloc_string_sub(a_string, "%w", lp_winbind_separator());
668                         break;
669                 case '$' :
670                         a_string = realloc_expand_env_var(a_string, p); /* Expand environment variables */
671                         break;
672                 case '(':
673                         a_string = realloc_expand_longvar( a_string, p );
674                         break;
675                 case 'V' :
676                         slprintf(vnnstr,sizeof(vnnstr)-1, "%u", get_my_vnn());
677                         a_string = realloc_string_sub(a_string, "%V", vnnstr);
678                         break;
679                 default: 
680                         break;
681                 }
682
683                 p++;
684                 TALLOC_FREE(r);
685
686                 if (a_string == NULL) {
687                         goto done;
688                 }
689         }
690
691         goto done;
692
693 error:
694         SAFE_FREE(a_string);
695
696 done:
697         TALLOC_FREE(tmp_ctx);
698         return a_string;
699 }
700
701 /****************************************************************************
702  Do some specific substitutions in a string.
703  This function will return an allocated string that have to be freed.
704 ****************************************************************************/
705
706 char *talloc_sub_specified(TALLOC_CTX *mem_ctx,
707                         const char *input_string,
708                         const char *username,
709                         const char *domain,
710                         uid_t uid,
711                         gid_t gid)
712 {
713         char *a_string;
714         char *ret_string = NULL;
715         char *b, *p, *s;
716         TALLOC_CTX *tmp_ctx;
717
718         if (!(tmp_ctx = talloc_new(mem_ctx))) {
719                 DEBUG(0, ("talloc_new failed\n"));
720                 return NULL;
721         }
722
723         a_string = talloc_strdup(tmp_ctx, input_string);
724         if (a_string == NULL) {
725                 DEBUG(0, ("talloc_sub_specified: Out of memory!\n"));
726                 goto done;
727         }
728
729         for (b = s = a_string; (p = strchr_m(s, '%')); s = a_string + (p - b)) {
730
731                 b = a_string;
732
733                 switch (*(p+1)) {
734                 case 'U' : 
735                         a_string = talloc_string_sub(
736                                 tmp_ctx, a_string, "%U", username);
737                         break;
738                 case 'u' : 
739                         a_string = talloc_string_sub(
740                                 tmp_ctx, a_string, "%u", username);
741                         break;
742                 case 'G' :
743                         if (gid != -1) {
744                                 a_string = talloc_string_sub(
745                                         tmp_ctx, a_string, "%G",
746                                         gidtoname(gid));
747                         } else {
748                                 a_string = talloc_string_sub(
749                                         tmp_ctx, a_string,
750                                         "%G", "NO_GROUP");
751                         }
752                         break;
753                 case 'g' :
754                         if (gid != -1) {
755                                 a_string = talloc_string_sub(
756                                         tmp_ctx, a_string, "%g",
757                                         gidtoname(gid));
758                         } else {
759                                 a_string = talloc_string_sub(
760                                         tmp_ctx, a_string, "%g", "NO_GROUP");
761                         }
762                         break;
763                 case 'D' :
764                         a_string = talloc_string_sub(tmp_ctx, a_string,
765                                                      "%D", domain);
766                         break;
767                 case 'N' : 
768                         a_string = talloc_string_sub(
769                                 tmp_ctx, a_string, "%N",
770                                 automount_server(username)); 
771                         break;
772                 default: 
773                         break;
774                 }
775
776                 p++;
777                 if (a_string == NULL) {
778                         goto done;
779                 }
780         }
781
782         /* Watch out, using "mem_ctx" here, so all intermediate stuff goes
783          * away with the TALLOC_FREE(tmp_ctx) further down. */
784
785         ret_string = talloc_sub_basic(mem_ctx, username, domain, a_string);
786
787  done:
788         TALLOC_FREE(tmp_ctx);
789         return ret_string;
790 }
791
792 /****************************************************************************
793 ****************************************************************************/
794
795 static char *alloc_sub_advanced(const char *servicename, const char *user, 
796                          const char *connectpath, gid_t gid, 
797                          const char *smb_name, const char *domain_name,
798                          const char *str)
799 {
800         char *a_string, *ret_string;
801         char *b, *p, *s;
802
803         a_string = SMB_STRDUP(str);
804         if (a_string == NULL) {
805                 DEBUG(0, ("alloc_sub_advanced: Out of memory!\n"));
806                 return NULL;
807         }
808
809         for (b = s = a_string; (p = strchr_m(s, '%')); s = a_string + (p - b)) {
810
811                 b = a_string;
812
813                 switch (*(p+1)) {
814                 case 'N' :
815                         a_string = realloc_string_sub(a_string, "%N", automount_server(user));
816                         break;
817                 case 'H': {
818                         char *h;
819                         if ((h = get_user_home_dir(talloc_tos(), user)))
820                                 a_string = realloc_string_sub(a_string, "%H", h);
821                         TALLOC_FREE(h);
822                         break;
823                 }
824                 case 'P': 
825                         a_string = realloc_string_sub(a_string, "%P", connectpath); 
826                         break;
827                 case 'S': 
828                         a_string = realloc_string_sub(a_string, "%S", servicename);
829                         break;
830                 case 'g': 
831                         a_string = realloc_string_sub(a_string, "%g", gidtoname(gid)); 
832                         break;
833                 case 'u': 
834                         a_string = realloc_string_sub(a_string, "%u", user); 
835                         break;
836
837                         /* Patch from jkf@soton.ac.uk Left the %N (NIS
838                          * server name) in standard_sub_basic as it is
839                          * a feature for logon servers, hence uses the
840                          * username.  The %p (NIS server path) code is
841                          * here as it is used instead of the default
842                          * "path =" string in [homes] and so needs the
843                          * service name, not the username.  */
844                 case 'p': 
845                         a_string = realloc_string_sub(a_string, "%p",
846                                                       automount_path(servicename)); 
847                         break;
848
849                 default: 
850                         break;
851                 }
852
853                 p++;
854                 if (a_string == NULL) {
855                         return NULL;
856                 }
857         }
858
859         ret_string = alloc_sub_basic(smb_name, domain_name, a_string);
860         SAFE_FREE(a_string);
861         return ret_string;
862 }
863
864 /*
865  * This obviously is inefficient and needs to be merged into
866  * alloc_sub_advanced...
867  */
868
869 char *talloc_sub_advanced(TALLOC_CTX *mem_ctx,
870                           const char *servicename, const char *user,
871                           const char *connectpath, gid_t gid,
872                           const char *smb_name, const char *domain_name,
873                           const char *str)
874 {
875         char *a, *t;
876
877         if (!(a = alloc_sub_advanced(servicename, user, connectpath, gid,
878                                      smb_name, domain_name, str))) {
879                 return NULL;
880         }
881         t = talloc_strdup(mem_ctx, a);
882         SAFE_FREE(a);
883         return t;
884 }
885
886
887 void standard_sub_advanced(const char *servicename, const char *user,
888                            const char *connectpath, gid_t gid,
889                            const char *smb_name, const char *domain_name,
890                            char *str, size_t len)
891 {
892         char *s;
893
894         s = alloc_sub_advanced(servicename, user, connectpath,
895                                gid, smb_name, domain_name, str);
896
897         if ( s ) {
898                 strncpy( str, s, len );
899                 SAFE_FREE( s );
900         }
901 }
902
903 /****************************************************************************
904  Do some standard substitutions in a string.
905 ****************************************************************************/
906
907 char *standard_sub_conn(TALLOC_CTX *ctx, connection_struct *conn, const char *str)
908 {
909         return talloc_sub_advanced(ctx,
910                                 lp_servicename(SNUM(conn)),
911                                 conn->server_info->unix_name,
912                                 conn->connectpath,
913                                 conn->server_info->utok.gid,
914                                 get_smb_user_name(),
915                                 "",
916                                 str);
917 }