]> git.sur5r.net Git - openldap/blob - servers/slapd/back-ldap/config.c
4ba003666539e5f2f67f5f0ce9ed4633f0d40604
[openldap] / servers / slapd / back-ldap / config.c
1 /* config.c - ldap backend configuration file routine */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2003-2004 The OpenLDAP Foundation.
6  * Portions Copyright 1999-2003 Howard Chu.
7  * Portions Copyright 2000-2003 Pierangelo Masarati.
8  * All rights reserved.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted only as authorized by the OpenLDAP
12  * Public License.
13  *
14  * A copy of this license is available in the file LICENSE in the
15  * top-level directory of the distribution or, alternatively, at
16  * <http://www.OpenLDAP.org/license.html>.
17  */
18 /* ACKNOWLEDGEMENTS:
19  * This work was initially developed by the Howard Chu for inclusion
20  * in OpenLDAP Software and subsequently enhanced by Pierangelo
21  * Masarati.
22  */
23
24 #include "portable.h"
25
26 #include <stdio.h>
27
28 #include <ac/string.h>
29 #include <ac/socket.h>
30
31 #include "slap.h"
32 #include "back-ldap.h"
33 #include "lutil.h"
34
35 static SLAP_EXTOP_MAIN_FN ldap_back_exop_whoami;
36
37 int
38 ldap_back_db_config(
39     BackendDB   *be,
40     const char  *fname,
41     int         lineno,
42     int         argc,
43     char        **argv
44 )
45 {
46         struct ldapinfo *li = (struct ldapinfo *) be->be_private;
47
48         if ( li == NULL ) {
49                 fprintf( stderr, "%s: line %d: ldap backend info is null!\n",
50                     fname, lineno );
51                 return( 1 );
52         }
53
54         /* server address to query (depricated, use "uri" directive) */
55         if ( strcasecmp( argv[0], "server" ) == 0 ) {
56                 if (argc != 2) {
57                         fprintf( stderr,
58         "%s: line %d: missing address in \"server <address>\" line\n",
59                             fname, lineno );
60                         return( 1 );
61                 }
62                 if (li->url != NULL)
63                         ch_free(li->url);
64                 li->url = ch_calloc(strlen(argv[1]) + 9, sizeof(char));
65                 if (li->url != NULL) {
66                         strcpy(li->url, "ldap://");
67                         strcat(li->url, argv[1]);
68                         strcat(li->url, "/");
69                 }
70
71         /* URI of server to query (preferred over "server" directive) */
72         } else if ( strcasecmp( argv[0], "uri" ) == 0 ) {
73                 LDAPURLDesc     tmplud;
74
75                 if (argc != 2) {
76                         fprintf( stderr, "%s: line %d: "
77                                 "missing uri "
78                                 "in \"uri <uri>\" line\n",
79                                 fname, lineno );
80                         return( 1 );
81                 }
82                 if ( li->url != NULL ) {
83                         ch_free( li->url );
84                 }
85                 if ( li->lud != NULL ) {
86                         ldap_free_urldesc( li->lud );
87                 }
88
89                 if ( ldap_url_parse( argv[ 1 ], &li->lud ) != LDAP_URL_SUCCESS ) {
90                         fprintf( stderr, "%s: line %d: "
91                                 "unable to parse uri \"%s\" "
92                                 "in \"uri <uri>\" line\n",
93                                 fname, lineno, argv[ 1 ] );
94                         return 1;
95                 }
96
97                 if ( ( li->lud->lud_dn != NULL && li->lud->lud_dn[0] != '\0' )
98                                 || li->lud->lud_attrs != NULL
99                                 || li->lud->lud_filter != NULL
100                                 || li->lud->lud_exts != NULL )
101                 {
102                         fprintf( stderr, "%s: line %d: "
103                                 "warning, only protocol, "
104                                 "host and port allowed "
105                                 "in \"uri <uri>\" line\n",
106                                 fname, lineno );
107                 }
108
109 #if 0
110                 tmplud = *lud;
111                 tmplud.lud_dn = "";
112                 tmplud.lud_attrs = NULL;
113                 tmplud.lud_filter = NULL;
114                 if ( !ldap_is_ldapi_url( argv[ 1 ] ) ) {
115                         tmplud.lud_exts = NULL;
116                         tmplud.lud_crit_exts = 0;
117                 }
118                 
119                 li->url = ldap_url_desc2str( &tmplud );
120                 if ( li->url == NULL ) {
121                         fprintf( stderr, "%s: line %d: "
122                                 "unable to rebuild uri \"%s\" "
123                                 "in \"uri <uri>\" line\n",
124                                 fname, lineno, argv[ 1 ] );
125                         return 1;
126                 }
127 #else
128                 li->url = ch_strdup( argv[ 1 ] );
129 #endif
130
131         /* name to use for ldap_back_group */
132         } else if ( strcasecmp( argv[0], "binddn" ) == 0 ) {
133                 if (argc != 2) {
134                         fprintf( stderr,
135         "%s: line %d: missing name in \"binddn <name>\" line\n",
136                             fname, lineno );
137                         return( 1 );
138                 }
139                 ber_str2bv( argv[1], 0, 1, &li->binddn );
140
141         /* password to use for ldap_back_group */
142         } else if ( strcasecmp( argv[0], "bindpw" ) == 0 ) {
143                 if (argc != 2) {
144                         fprintf( stderr,
145         "%s: line %d: missing password in \"bindpw <password>\" line\n",
146                             fname, lineno );
147                         return( 1 );
148                 }
149                 ber_str2bv( argv[1], 0, 1, &li->bindpw );
150
151 #ifdef LDAP_BACK_PROXY_AUTHZ
152         /* name to use for proxyAuthz propagation */
153         } else if ( strcasecmp( argv[0], "proxyauthzdn" ) == 0 ) {
154                 if (argc != 2) {
155                         fprintf( stderr,
156         "%s: line %d: missing name in \"proxyauthzdn <name>\" line\n",
157                             fname, lineno );
158                         return( 1 );
159                 }
160                 ber_str2bv( argv[1], 0, 1, &li->proxyauthzdn );
161
162         /* password to use for proxyAuthz propagation */
163         } else if ( strcasecmp( argv[0], "proxyauthzpw" ) == 0 ) {
164                 if (argc != 2) {
165                         fprintf( stderr,
166         "%s: line %d: missing password in \"proxyauthzpw <password>\" line\n",
167                             fname, lineno );
168                         return( 1 );
169                 }
170                 ber_str2bv( argv[1], 0, 1, &li->proxyauthzpw );
171 #endif /* LDAP_BACK_PROXY_AUTHZ */
172
173         /* save bind creds for referral rebinds? */
174         } else if ( strcasecmp( argv[0], "rebind-as-user" ) == 0 ) {
175                 if (argc != 1) {
176                         fprintf( stderr,
177         "%s: line %d: rebind-as-user takes no arguments\n",
178                             fname, lineno );
179                         return( 1 );
180                 }
181                 li->savecred = 1;
182         
183         /* intercept exop_who_am_i? */
184         } else if ( strcasecmp( argv[0], "proxy-whoami" ) == 0 ) {
185                 if (argc != 1) {
186                         fprintf( stderr,
187         "%s: line %d: proxy-whoami takes no arguments\n",
188                             fname, lineno );
189                         return( 1 );
190                 }
191                 load_extop( (struct berval *)&slap_EXOP_WHOAMI,
192                         0, ldap_back_exop_whoami );
193         
194         /* dn massaging */
195         } else if ( strcasecmp( argv[0], "suffixmassage" ) == 0 ) {
196                 BackendDB *tmp_be;
197                 struct berval bvnc, nvnc, pvnc, brnc, nrnc, prnc;
198 #ifdef ENABLE_REWRITE
199                 int rc;
200 #endif /* ENABLE_REWRITE */
201                 
202                 /*
203                  * syntax:
204                  * 
205                  *      suffixmassage <suffix> <massaged suffix>
206                  *
207                  * the <suffix> field must be defined as a valid suffix
208                  * (or suffixAlias?) for the current database;
209                  * the <massaged suffix> shouldn't have already been
210                  * defined as a valid suffix or suffixAlias for the 
211                  * current server
212                  */
213                 if ( argc != 3 ) {
214                         fprintf( stderr, "%s: line %d: syntax is"
215                                        " \"suffixMassage <suffix>"
216                                        " <massaged suffix>\"\n",
217                                 fname, lineno );
218                         return( 1 );
219                 }
220                 
221                 ber_str2bv( argv[1], 0, 0, &bvnc );
222                 if ( dnPrettyNormal( NULL, &bvnc, &pvnc, &nvnc, NULL ) != LDAP_SUCCESS ) {
223                         fprintf( stderr, "%s: line %d: suffix DN %s is invalid\n",
224                                 fname, lineno, bvnc.bv_val );
225                         return( 1 );
226                 }
227                 tmp_be = select_backend( &nvnc, 0, 0 );
228                 if ( tmp_be != NULL && tmp_be != be ) {
229                         fprintf( stderr, "%s: line %d: suffix already in use"
230                                        " by another backend in"
231                                        " \"suffixMassage <suffix>"
232                                        " <massaged suffix>\"\n",
233                                 fname, lineno );
234                         free( nvnc.bv_val );
235                         free( pvnc.bv_val );
236                         return( 1 );
237                 }
238
239                 ber_str2bv( argv[2], 0, 0, &brnc );
240                 if ( dnPrettyNormal( NULL, &brnc, &prnc, &nrnc, NULL ) != LDAP_SUCCESS ) {
241                         fprintf( stderr, "%s: line %d: suffix DN %s is invalid\n",
242                                 fname, lineno, brnc.bv_val );
243                         free( nvnc.bv_val );
244                         free( pvnc.bv_val );
245                         return( 1 );
246                 }
247
248 #if 0
249                 tmp_be = select_backend( &nrnc, 0, 0 );
250                 if ( tmp_be != NULL ) {
251                         fprintf( stderr, "%s: line %d: massaged suffix"
252                                        " already in use by another backend in" 
253                                        " \"suffixMassage <suffix>"
254                                        " <massaged suffix>\"\n",
255                                 fname, lineno );
256                         free( nvnc.bv_val );
257                         free( pvnc.bv_val );
258                         free( nrnc.bv_val );
259                         free( prnc.bv_val );
260                         return( 1 );
261                 }
262 #endif
263
264 #ifdef ENABLE_REWRITE
265                 /*
266                  * The suffix massaging is emulated by means of the
267                  * rewrite capabilities
268                  * FIXME: no extra rewrite capabilities should be added
269                  * to the database
270                  */
271                 rc = suffix_massage_config( li->rwmap.rwm_rw,
272                                 &pvnc, &nvnc, &prnc, &nrnc );
273                 free( nvnc.bv_val );
274                 free( pvnc.bv_val );
275                 free( nrnc.bv_val );
276                 free( prnc.bv_val );
277
278                 return( rc );
279
280 #else /* !ENABLE_REWRITE */
281                 ber_bvarray_add( &li->rwmap.rwm_suffix_massage, &pvnc );
282                 ber_bvarray_add( &li->rwmap.rwm_suffix_massage, &nvnc );
283                 
284                 ber_bvarray_add( &li->rwmap.rwm_suffix_massage, &prnc );
285                 ber_bvarray_add( &li->rwmap.rwm_suffix_massage, &nrnc );
286 #endif /* !ENABLE_REWRITE */
287
288         /* rewrite stuff ... */
289         } else if ( strncasecmp( argv[0], "rewrite", 7 ) == 0 ) {
290 #ifdef ENABLE_REWRITE
291                 return rewrite_parse( li->rwmap.rwm_rw,
292                                 fname, lineno, argc, argv );
293
294 #else /* !ENABLE_REWRITE */
295                 fprintf( stderr, "%s: line %d: rewrite capabilities "
296                                 "are not enabled\n", fname, lineno );
297 #endif /* !ENABLE_REWRITE */
298                 
299         /* objectclass/attribute mapping */
300         } else if ( strcasecmp( argv[0], "map" ) == 0 ) {
301                 return ldap_back_map_config( &li->rwmap.rwm_oc,
302                                 &li->rwmap.rwm_at,
303                                 fname, lineno, argc, argv );
304
305         /* anything else */
306         } else {
307                 return SLAP_CONF_UNKNOWN;
308         }
309         return 0;
310 }
311
312 int
313 ldap_back_map_config(
314                 struct ldapmap  *oc_map,
315                 struct ldapmap  *at_map,
316                 const char      *fname,
317                 int             lineno,
318                 int             argc,
319                 char            **argv )
320 {
321         struct ldapmap          *map;
322         struct ldapmapping      *mapping;
323         char                    *src, *dst;
324         int                     is_oc = 0;
325
326         if ( argc < 3 || argc > 4 ) {
327                 fprintf( stderr,
328         "%s: line %d: syntax is \"map {objectclass | attribute} [<local> | *] {<foreign> | *}\"\n",
329                         fname, lineno );
330                 return 1;
331         }
332
333         if ( strcasecmp( argv[1], "objectclass" ) == 0 ) {
334                 map = oc_map;
335                 is_oc = 1;
336
337         } else if ( strcasecmp( argv[1], "attribute" ) == 0 ) {
338                 map = at_map;
339
340         } else {
341                 fprintf( stderr, "%s: line %d: syntax is "
342                         "\"map {objectclass | attribute} [<local> | *] "
343                         "{<foreign> | *}\"\n",
344                         fname, lineno );
345                 return 1;
346         }
347
348         if ( strcmp( argv[2], "*" ) == 0 ) {
349                 if ( argc < 4 || strcmp( argv[3], "*" ) == 0 ) {
350                         map->drop_missing = ( argc < 4 );
351                         return 0;
352                 }
353                 src = dst = argv[3];
354
355         } else if ( argc < 4 ) {
356                 src = "";
357                 dst = argv[2];
358
359         } else {
360                 src = argv[2];
361                 dst = ( strcmp( argv[3], "*" ) == 0 ? src : argv[3] );
362         }
363
364         if ( ( map == at_map )
365                         && ( strcasecmp( src, "objectclass" ) == 0
366                         || strcasecmp( dst, "objectclass" ) == 0 ) )
367         {
368                 fprintf( stderr,
369                         "%s: line %d: objectclass attribute cannot be mapped\n",
370                         fname, lineno );
371         }
372
373         mapping = (struct ldapmapping *)ch_calloc( 2,
374                 sizeof(struct ldapmapping) );
375         if ( mapping == NULL ) {
376                 fprintf( stderr,
377                         "%s: line %d: out of memory\n",
378                         fname, lineno );
379                 return 1;
380         }
381         ber_str2bv( src, 0, 1, &mapping->src );
382         ber_str2bv( dst, 0, 1, &mapping->dst );
383         mapping[1].src = mapping->dst;
384         mapping[1].dst = mapping->src;
385
386         /*
387          * schema check
388          */
389         if ( is_oc ) {
390                 if ( src[0] != '\0' ) {
391                         if ( oc_bvfind( &mapping->src ) == NULL ) {
392                                 fprintf( stderr,
393         "%s: line %d: warning, source objectClass '%s' "
394         "should be defined in schema\n",
395                                         fname, lineno, src );
396
397                                 /*
398                                  * FIXME: this should become an err
399                                  */
400                                 goto error_return;
401                         }
402                 }
403
404                 if ( oc_bvfind( &mapping->dst ) == NULL ) {
405                         fprintf( stderr,
406         "%s: line %d: warning, destination objectClass '%s' "
407         "is not defined in schema\n",
408                                 fname, lineno, dst );
409                 }
410         } else {
411                 int                     rc;
412                 const char              *text = NULL;
413                 AttributeDescription    *ad = NULL;
414
415                 if ( src[0] != '\0' ) {
416                         rc = slap_bv2ad( &mapping->src, &ad, &text );
417                         if ( rc != LDAP_SUCCESS ) {
418                                 fprintf( stderr,
419         "%s: line %d: warning, source attributeType '%s' "
420         "should be defined in schema\n",
421                                         fname, lineno, src );
422
423                                 /*
424                                  * FIXME: this should become an err
425                                  */
426                                 goto error_return;
427                         }
428
429                         ad = NULL;
430                 }
431
432                 rc = slap_bv2ad( &mapping->dst, &ad, &text );
433                 if ( rc != LDAP_SUCCESS ) {
434                         fprintf( stderr,
435         "%s: line %d: warning, destination attributeType '%s' "
436         "is not defined in schema\n",
437                                 fname, lineno, dst );
438                 }
439         }
440
441         if ( (src[0] != '\0' && avl_find( map->map, (caddr_t)mapping, mapping_cmp ) != NULL)
442                         || avl_find( map->remap, (caddr_t)&mapping[1], mapping_cmp ) != NULL)
443         {
444                 fprintf( stderr,
445                         "%s: line %d: duplicate mapping found (ignored)\n",
446                         fname, lineno );
447                 goto error_return;
448         }
449
450         if ( src[0] != '\0' ) {
451                 avl_insert( &map->map, (caddr_t)mapping,
452                                         mapping_cmp, mapping_dup );
453         }
454         avl_insert( &map->remap, (caddr_t)&mapping[1],
455                                 mapping_cmp, mapping_dup );
456
457         return 0;
458
459 error_return:;
460         if ( mapping ) {
461                 ch_free( mapping->src.bv_val );
462                 ch_free( mapping->dst.bv_val );
463                 ch_free( mapping );
464         }
465
466         return 1;
467 }
468
469 static int
470 ldap_back_exop_whoami(
471         Operation *op,
472         SlapReply *rs )
473 {
474         struct berval *bv = NULL;
475
476         if ( op->oq_extended.rs_reqdata != NULL ) {
477                 /* no request data should be provided */
478                 rs->sr_text = "no request data expected";
479                 return rs->sr_err = LDAP_PROTOCOL_ERROR;
480         }
481
482         rs->sr_err = backend_check_restrictions( op, rs, 
483                         (struct berval *)&slap_EXOP_WHOAMI );
484         if( rs->sr_err != LDAP_SUCCESS ) return rs->sr_err;
485
486         /* if auth'd by back-ldap and request is proxied, forward it */
487         if ( op->o_conn->c_authz_backend && !strcmp(op->o_conn->c_authz_backend->be_type, "ldap" ) && !dn_match(&op->o_ndn, &op->o_conn->c_ndn)) {
488                 struct ldapconn *lc;
489
490                 LDAPControl c, *ctrls[2] = {NULL, NULL};
491                 LDAPMessage *res;
492                 Operation op2 = *op;
493                 ber_int_t msgid;
494
495                 ctrls[0] = &c;
496                 op2.o_ndn = op->o_conn->c_ndn;
497                 lc = ldap_back_getconn(&op2, rs);
498                 if (!lc || !ldap_back_dobind( lc, op, rs )) {
499                         return -1;
500                 }
501                 c.ldctl_oid = LDAP_CONTROL_PROXY_AUTHZ;
502                 c.ldctl_iscritical = 1;
503                 c.ldctl_value.bv_val = ch_malloc(op->o_ndn.bv_len+4);
504                 c.ldctl_value.bv_len = op->o_ndn.bv_len + 3;
505                 strcpy(c.ldctl_value.bv_val, "dn:");
506                 strcpy(c.ldctl_value.bv_val+3, op->o_ndn.bv_val);
507
508                 rs->sr_err = ldap_whoami(lc->ld, ctrls, NULL, &msgid);
509                 if (rs->sr_err == LDAP_SUCCESS) {
510                         if (ldap_result(lc->ld, msgid, 1, NULL, &res) == -1) {
511                                 ldap_get_option(lc->ld, LDAP_OPT_ERROR_NUMBER,
512                                         &rs->sr_err);
513                         } else {
514                                 rs->sr_err = ldap_parse_whoami(lc->ld, res, &bv);
515                                 ldap_msgfree(res);
516                         }
517                 }
518                 ch_free(c.ldctl_value.bv_val);
519                 if (rs->sr_err != LDAP_SUCCESS) {
520                         rs->sr_err = slap_map_api2result( rs );
521                 }
522         } else {
523         /* else just do the same as before */
524                 bv = (struct berval *) ch_malloc( sizeof(struct berval) );
525                 if( op->o_dn.bv_len ) {
526                         bv->bv_len = op->o_dn.bv_len + sizeof("dn:") - 1;
527                         bv->bv_val = ch_malloc( bv->bv_len + 1 );
528                         AC_MEMCPY( bv->bv_val, "dn:", sizeof("dn:") - 1 );
529                         AC_MEMCPY( &bv->bv_val[sizeof("dn:") - 1], op->o_dn.bv_val,
530                                 op->o_dn.bv_len );
531                         bv->bv_val[bv->bv_len] = '\0';
532                 } else {
533                         bv->bv_len = 0;
534                         bv->bv_val = NULL;
535                 }
536         }
537
538         rs->sr_rspdata = bv;
539         return rs->sr_err;
540 }
541
542
543 #ifdef ENABLE_REWRITE
544 static char *
545 suffix_massage_regexize( const char *s )
546 {
547         char *res, *ptr;
548         const char *p, *r;
549         int i;
550
551         for ( i = 0, p = s; 
552                         ( r = strchr( p, ',' ) ) != NULL; 
553                         p = r + 1, i++ )
554                 ;
555
556         res = ch_calloc( sizeof( char ), strlen( s ) + 4 + 4*i + 1 );
557
558         ptr = lutil_strcopy( res, "(.*)" );
559         for ( i = 0, p = s;
560                         ( r = strchr( p, ',' ) ) != NULL;
561                         p = r + 1 , i++ ) {
562                 ptr = lutil_strncopy( ptr, p, r - p + 1 );
563                 ptr = lutil_strcopy( ptr, "[ ]?" );
564
565                 if ( r[ 1 ] == ' ' ) {
566                         r++;
567                 }
568         }
569         lutil_strcopy( ptr, p );
570
571         return res;
572 }
573
574 static char *
575 suffix_massage_patternize( const char *s )
576 {
577         ber_len_t       len;
578         char            *res;
579
580         len = strlen( s );
581
582         res = ch_calloc( sizeof( char ), len + sizeof( "%1" ) );
583         if ( res == NULL ) {
584                 return NULL;
585         }
586
587         strcpy( res, "%1" );
588         strcpy( res + sizeof( "%1" ) - 1, s );
589
590         return res;
591 }
592
593 int
594 suffix_massage_config( 
595                 struct rewrite_info *info,
596                 struct berval *pvnc,
597                 struct berval *nvnc,
598                 struct berval *prnc,
599                 struct berval *nrnc
600 )
601 {
602         char *rargv[ 5 ];
603         int line = 0;
604
605         rargv[ 0 ] = "rewriteEngine";
606         rargv[ 1 ] = "on";
607         rargv[ 2 ] = NULL;
608         rewrite_parse( info, "<suffix massage>", ++line, 2, rargv );
609
610         rargv[ 0 ] = "rewriteContext";
611         rargv[ 1 ] = "default";
612         rargv[ 2 ] = NULL;
613         rewrite_parse( info, "<suffix massage>", ++line, 2, rargv );
614
615         rargv[ 0 ] = "rewriteRule";
616         rargv[ 1 ] = suffix_massage_regexize( pvnc->bv_val );
617         rargv[ 2 ] = suffix_massage_patternize( prnc->bv_val );
618         rargv[ 3 ] = ":";
619         rargv[ 4 ] = NULL;
620         rewrite_parse( info, "<suffix massage>", ++line, 4, rargv );
621         ch_free( rargv[ 1 ] );
622         ch_free( rargv[ 2 ] );
623         
624         rargv[ 0 ] = "rewriteContext";
625         rargv[ 1 ] = "searchResult";
626         rargv[ 2 ] = NULL;
627         rewrite_parse( info, "<suffix massage>", ++line, 2, rargv );
628         
629         rargv[ 0 ] = "rewriteRule";
630         rargv[ 1 ] = suffix_massage_regexize( prnc->bv_val );
631         rargv[ 2 ] = suffix_massage_patternize( pvnc->bv_val );
632         rargv[ 3 ] = ":";
633         rargv[ 4 ] = NULL;
634         rewrite_parse( info, "<suffix massage>", ++line, 4, rargv );
635         ch_free( rargv[ 1 ] );
636         ch_free( rargv[ 2 ] );
637
638         rargv[ 0 ] = "rewriteContext";
639         rargv[ 1 ] = "matchedDN";
640         rargv[ 2 ] = "alias";
641         rargv[ 3 ] = "searchResult";
642         rargv[ 4 ] = NULL;
643         rewrite_parse( info, "<suffix massage>", ++line, 4, rargv );
644
645         rargv[ 0 ] = "rewriteContext";
646         rargv[ 1 ] = "searchAttrDN";
647         rargv[ 2 ] = "alias";
648         rargv[ 3 ] = "searchResult";
649         rargv[ 4 ] = NULL;
650         rewrite_parse( info, "<suffix massage>", ++line, 4, rargv );
651
652         return 0;
653 }
654 #endif /* ENABLE_REWRITE */