a3fa328b909d430bd65af8d088337b126abec628
[exim.git] / src / src / drtables.c
1 /*************************************************
2 *     Exim - an Internet mail transport agent    *
3 *************************************************/
4
5 /* Copyright (c) University of Cambridge 1995 - 2016 */
6 /* See the file NOTICE for conditions of use and distribution. */
7
8
9 #include "exim.h"
10
11 #include <string.h>
12
13 /* This module contains tables that define the lookup methods and drivers
14 that are actually included in the binary. Its contents are controlled by
15 various macros in config.h that ultimately come from Local/Makefile. They are
16 all described in src/EDITME. */
17
18
19 lookup_info **lookup_list;
20 int lookup_list_count = 0;
21
22 static int lookup_list_init_done = 0;
23
24 /* Table of information about all possible authentication mechamisms. All
25 entries are always present if any mechanism is declared, but the functions are
26 set to NULL for those that are not compiled into the binary. */
27
28 #ifdef AUTH_CRAM_MD5
29 #include "auths/cram_md5.h"
30 #endif
31
32 #ifdef AUTH_CYRUS_SASL
33 #include "auths/cyrus_sasl.h"
34 #endif
35
36 #ifdef AUTH_DOVECOT
37 #include "auths/dovecot.h"
38 #endif
39
40 #ifdef AUTH_GSASL
41 #include "auths/gsasl_exim.h"
42 #endif
43
44 #ifdef AUTH_HEIMDAL_GSSAPI
45 #include "auths/heimdal_gssapi.h"
46 #endif
47
48 #ifdef AUTH_PLAINTEXT
49 #include "auths/plaintext.h"
50 #endif
51
52 #ifdef AUTH_SPA
53 #include "auths/spa.h"
54 #endif
55
56 #ifdef AUTH_TLS
57 #include "auths/tls.h"
58 #endif
59
60 auth_info auths_available[] = {
61
62 /* Checking by an expansion condition on plain text */
63
64 #ifdef AUTH_CRAM_MD5
65   {
66   US"cram_md5",                              /* lookup name */
67   auth_cram_md5_options,
68   &auth_cram_md5_options_count,
69   &auth_cram_md5_option_defaults,
70   sizeof(auth_cram_md5_options_block),
71   auth_cram_md5_init,                        /* init function */
72   auth_cram_md5_server,                      /* server function */
73   auth_cram_md5_client,                      /* client function */
74   NULL                                       /* diagnostic function */
75   },
76 #endif
77
78 #ifdef AUTH_CYRUS_SASL
79   {
80   US"cyrus_sasl",           /* lookup name */
81   auth_cyrus_sasl_options,
82   &auth_cyrus_sasl_options_count,
83   &auth_cyrus_sasl_option_defaults,
84   sizeof(auth_cyrus_sasl_options_block),
85   auth_cyrus_sasl_init,                      /* init function */
86   auth_cyrus_sasl_server,                    /* server function */
87   NULL,                                      /* client function */
88   auth_cyrus_sasl_version_report             /* diagnostic function */
89   },
90 #endif
91
92 #ifdef AUTH_DOVECOT
93   {
94   US"dovecot",                                /* lookup name */
95   auth_dovecot_options,
96   &auth_dovecot_options_count,
97   &auth_dovecot_option_defaults,
98   sizeof(auth_dovecot_options_block),
99   auth_dovecot_init,                          /* init function */
100   auth_dovecot_server,                        /* server function */
101   NULL,                                       /* client function */
102   NULL                                        /* diagnostic function */
103   },
104 #endif
105
106 #ifdef AUTH_GSASL
107   {
108   US"gsasl",                                  /* lookup name */
109   auth_gsasl_options,
110   &auth_gsasl_options_count,
111   &auth_gsasl_option_defaults,
112   sizeof(auth_gsasl_options_block),
113   auth_gsasl_init,                            /* init function */
114   auth_gsasl_server,                          /* server function */
115   NULL,                                       /* client function */
116   auth_gsasl_version_report                   /* diagnostic function */
117   },
118 #endif
119
120 #ifdef AUTH_HEIMDAL_GSSAPI
121   {
122   US"heimdal_gssapi",                         /* lookup name */
123   auth_heimdal_gssapi_options,
124   &auth_heimdal_gssapi_options_count,
125   &auth_heimdal_gssapi_option_defaults,
126   sizeof(auth_heimdal_gssapi_options_block),
127   auth_heimdal_gssapi_init,                   /* init function */
128   auth_heimdal_gssapi_server,                 /* server function */
129   NULL,                                       /* client function */
130   auth_heimdal_gssapi_version_report          /* diagnostic function */
131   },
132 #endif
133
134 #ifdef AUTH_PLAINTEXT
135   {
136   US"plaintext",                             /* lookup name */
137   auth_plaintext_options,
138   &auth_plaintext_options_count,
139   &auth_plaintext_option_defaults,
140   sizeof(auth_plaintext_options_block),
141   auth_plaintext_init,                       /* init function */
142   auth_plaintext_server,                     /* server function */
143   auth_plaintext_client,                     /* client function */
144   NULL                                       /* diagnostic function */
145   },
146 #endif
147
148 #ifdef AUTH_SPA
149   {
150   US"spa",                                   /* lookup name */
151   auth_spa_options,
152   &auth_spa_options_count,
153   &auth_spa_option_defaults,
154   sizeof(auth_spa_options_block),
155   auth_spa_init,                             /* init function */
156   auth_spa_server,                           /* server function */
157   auth_spa_client,                           /* client function */
158   NULL                                       /* diagnostic function */
159   },
160 #endif
161
162 #ifdef AUTH_TLS
163   {
164   US"tls",                                   /* lookup name */
165   auth_tls_options,
166   &auth_tls_options_count,
167   &auth_tls_option_defaults,
168   sizeof(auth_tls_options_block),
169   auth_tls_init,                             /* init function */
170   auth_tls_server,                           /* server function */
171   NULL,                                      /* client function */
172   NULL                                       /* diagnostic function */
173   },
174 #endif
175
176 { US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL  }
177 };
178
179
180 /* Tables of information about which routers and transports are included in the
181 exim binary. */
182
183 /* Pull in the necessary header files */
184
185 #include "routers/rf_functions.h"
186
187 #ifdef ROUTER_ACCEPT
188 #include "routers/accept.h"
189 #endif
190
191 #ifdef ROUTER_DNSLOOKUP
192 #include "routers/dnslookup.h"
193 #endif
194
195 #ifdef ROUTER_MANUALROUTE
196 #include "routers/manualroute.h"
197 #endif
198
199 #ifdef ROUTER_IPLITERAL
200 #include "routers/ipliteral.h"
201 #endif
202
203 #ifdef ROUTER_IPLOOKUP
204 #include "routers/iplookup.h"
205 #endif
206
207 #ifdef ROUTER_QUERYPROGRAM
208 #include "routers/queryprogram.h"
209 #endif
210
211 #ifdef ROUTER_REDIRECT
212 #include "routers/redirect.h"
213 #endif
214
215 #ifdef TRANSPORT_APPENDFILE
216 #include "transports/appendfile.h"
217 #endif
218
219 #ifdef TRANSPORT_AUTOREPLY
220 #include "transports/autoreply.h"
221 #endif
222
223 #ifdef TRANSPORT_LMTP
224 #include "transports/lmtp.h"
225 #endif
226
227 #ifdef TRANSPORT_PIPE
228 #include "transports/pipe.h"
229 #endif
230
231 #ifdef EXPERIMENTAL_QUEUEFILE
232 #include "transports/queuefile.h"
233 #endif
234
235 #ifdef TRANSPORT_SMTP
236 #include "transports/smtp.h"
237 #endif
238
239
240 /* Now set up the structures, terminated by an entry with a null name. */
241
242 router_info routers_available[] = {
243 #ifdef ROUTER_ACCEPT
244   {
245   US"accept",
246   accept_router_options,
247   &accept_router_options_count,
248   &accept_router_option_defaults,
249   sizeof(accept_router_options_block),
250   accept_router_init,
251   accept_router_entry,
252   NULL,     /* no tidyup entry */
253   ri_yestransport
254   },
255 #endif
256 #ifdef ROUTER_DNSLOOKUP
257   {
258   US"dnslookup",
259   dnslookup_router_options,
260   &dnslookup_router_options_count,
261   &dnslookup_router_option_defaults,
262   sizeof(dnslookup_router_options_block),
263   dnslookup_router_init,
264   dnslookup_router_entry,
265   NULL,     /* no tidyup entry */
266   ri_yestransport
267   },
268 #endif
269 #ifdef ROUTER_IPLITERAL
270   {
271   US"ipliteral",
272   ipliteral_router_options,
273   &ipliteral_router_options_count,
274   &ipliteral_router_option_defaults,
275   sizeof(ipliteral_router_options_block),
276   ipliteral_router_init,
277   ipliteral_router_entry,
278   NULL,     /* no tidyup entry */
279   ri_yestransport
280   },
281 #endif
282 #ifdef ROUTER_IPLOOKUP
283   {
284   US"iplookup",
285   iplookup_router_options,
286   &iplookup_router_options_count,
287   &iplookup_router_option_defaults,
288   sizeof(iplookup_router_options_block),
289   iplookup_router_init,
290   iplookup_router_entry,
291   NULL,     /* no tidyup entry */
292   ri_notransport
293   },
294 #endif
295 #ifdef ROUTER_MANUALROUTE
296   {
297   US"manualroute",
298   manualroute_router_options,
299   &manualroute_router_options_count,
300   &manualroute_router_option_defaults,
301   sizeof(manualroute_router_options_block),
302   manualroute_router_init,
303   manualroute_router_entry,
304   NULL,     /* no tidyup entry */
305   0
306   },
307 #endif
308 #ifdef ROUTER_QUERYPROGRAM
309   {
310   US"queryprogram",
311   queryprogram_router_options,
312   &queryprogram_router_options_count,
313   &queryprogram_router_option_defaults,
314   sizeof(queryprogram_router_options_block),
315   queryprogram_router_init,
316   queryprogram_router_entry,
317   NULL,     /* no tidyup entry */
318   0
319   },
320 #endif
321 #ifdef ROUTER_REDIRECT
322   {
323   US"redirect",
324   redirect_router_options,
325   &redirect_router_options_count,
326   &redirect_router_option_defaults,
327   sizeof(redirect_router_options_block),
328   redirect_router_init,
329   redirect_router_entry,
330   NULL,     /* no tidyup entry */
331   ri_notransport
332   },
333 #endif
334 { US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, 0 }
335 };
336
337
338
339 transport_info transports_available[] = {
340 #ifdef TRANSPORT_APPENDFILE
341   {
342   US"appendfile",                              /* driver name */
343   appendfile_transport_options,                /* local options table */
344   &appendfile_transport_options_count,         /* number of entries */
345   &appendfile_transport_option_defaults,       /* private options defaults */
346   sizeof(appendfile_transport_options_block),  /* size of private block */
347   appendfile_transport_init,                   /* init entry point */
348   appendfile_transport_entry,                  /* main entry point */
349   NULL,                                        /* no tidyup entry */
350   NULL,                                        /* no closedown entry */
351   TRUE,                                        /* local flag */
352   },
353 #endif
354 #ifdef TRANSPORT_AUTOREPLY
355   {
356   US"autoreply",                               /* driver name */
357   autoreply_transport_options,                 /* local options table */
358   &autoreply_transport_options_count,          /* number of entries */
359   &autoreply_transport_option_defaults,        /* private options defaults */
360   sizeof(autoreply_transport_options_block),   /* size of private block */
361   autoreply_transport_init,                    /* init entry point */
362   autoreply_transport_entry,                   /* main entry point */
363   NULL,                                        /* no tidyup entry */
364   NULL,                                        /* no closedown entry */
365   TRUE                                         /* local flag */
366   },
367 #endif
368 #ifdef TRANSPORT_LMTP
369   {
370   US"lmtp",                                    /* driver name */
371   lmtp_transport_options,                      /* local options table */
372   &lmtp_transport_options_count,               /* number of entries */
373   &lmtp_transport_option_defaults,             /* private options defaults */
374   sizeof(lmtp_transport_options_block),        /* size of private block */
375   lmtp_transport_init,                         /* init entry point */
376   lmtp_transport_entry,                        /* main entry point */
377   NULL,                                        /* no tidyup entry */
378   NULL,                                        /* no closedown entry */
379   TRUE                                         /* local flag */
380   },
381 #endif
382 #ifdef TRANSPORT_PIPE
383   {
384   US"pipe",                                    /* driver name */
385   pipe_transport_options,                      /* local options table */
386   &pipe_transport_options_count,               /* number of entries */
387   &pipe_transport_option_defaults,             /* private options defaults */
388   sizeof(pipe_transport_options_block),        /* size of private block */
389   pipe_transport_init,                         /* init entry point */
390   pipe_transport_entry,                        /* main entry point */
391   NULL,                                        /* no tidyup entry */
392   NULL,                                        /* no closedown entry */
393   TRUE                                         /* local flag */
394   },
395 #endif
396 #ifdef EXPERIMENTAL_QUEUEFILE
397   {
398   US"queuefile",                               /* driver name */
399   queuefile_transport_options,                 /* local options table */
400   &queuefile_transport_options_count,          /* number of entries */
401   &queuefile_transport_option_defaults,        /* private options defaults */
402   sizeof(queuefile_transport_options_block),   /* size of private block */
403   queuefile_transport_init,                    /* init entry point */
404   queuefile_transport_entry,                   /* main entry point */
405   NULL,                                        /* no tidyup entry */
406   NULL,                                        /* no closedown entry */
407   TRUE                                         /* local flag */
408   },
409 #endif
410 #ifdef TRANSPORT_SMTP
411   {
412   US"smtp",                                    /* driver name */
413   smtp_transport_options,                      /* local options table */
414   &smtp_transport_options_count,               /* number of entries */
415   &smtp_transport_option_defaults,             /* private options defaults */
416   sizeof(smtp_transport_options_block),        /* size of private block */
417   smtp_transport_init,                         /* init entry point */
418   smtp_transport_entry,                        /* main entry point */
419   NULL,                                        /* no tidyup entry */
420   smtp_transport_closedown,                    /* close down passed channel */
421   FALSE                                        /* local flag */
422   },
423 #endif
424 { US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL, FALSE }
425 };
426
427 struct lookupmodulestr
428 {
429   void *dl;
430   struct lookup_module_info *info;
431   struct lookupmodulestr *next;
432 };
433
434 static struct lookupmodulestr *lookupmodules = NULL;
435
436 static void
437 addlookupmodule(void *dl, struct lookup_module_info *info)
438 {
439 struct lookupmodulestr *p = store_malloc(sizeof(struct lookupmodulestr));
440
441 p->dl = dl;
442 p->info = info;
443 p->next = lookupmodules;
444 lookupmodules = p;
445 lookup_list_count += info->lookupcount;
446 }
447
448 /* only valid after lookup_list and lookup_list_count are assigned */
449 static void
450 add_lookup_to_list(lookup_info *info)
451 {
452 /* need to add the lookup to lookup_list, sorted */
453 int pos = 0;
454
455 /* strategy is to go through the list until we find
456 either an empty spot or a name that is higher.
457 this can't fail because we have enough space. */
458
459 while (lookup_list[pos] && (Ustrcmp(lookup_list[pos]->name, info->name) <= 0))
460   pos++;
461
462 if (lookup_list[pos])
463   {
464   /* need to insert it, so move all the other items up
465   (last slot is still empty, of course) */
466
467   memmove(&lookup_list[pos+1],
468           &lookup_list[pos],
469           sizeof(lookup_info *) * (lookup_list_count-pos-1));
470   }
471 lookup_list[pos] = info;
472 }
473
474
475 /* These need to be at file level for old versions of gcc (2.95.2 reported),
476  * which give parse errors on an extern in function scope.  Each entry needs
477  * to also be invoked in init_lookup_list() below  */
478
479 #if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
480 extern lookup_module_info cdb_lookup_module_info;
481 #endif
482 #if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
483 extern lookup_module_info dbmdb_lookup_module_info;
484 #endif
485 #if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
486 extern lookup_module_info dnsdb_lookup_module_info;
487 #endif
488 #if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
489 extern lookup_module_info dsearch_lookup_module_info;
490 #endif
491 #if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
492 extern lookup_module_info ibase_lookup_module_info;
493 #endif
494 #if defined(LOOKUP_LDAP)
495 extern lookup_module_info ldap_lookup_module_info;
496 #endif
497 #if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
498 extern lookup_module_info lsearch_lookup_module_info;
499 #endif
500 #if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
501 extern lookup_module_info mysql_lookup_module_info;
502 #endif
503 #if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
504 extern lookup_module_info nis_lookup_module_info;
505 #endif
506 #if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
507 extern lookup_module_info nisplus_lookup_module_info;
508 #endif
509 #if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
510 extern lookup_module_info oracle_lookup_module_info;
511 #endif
512 #if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
513 extern lookup_module_info passwd_lookup_module_info;
514 #endif
515 #if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
516 extern lookup_module_info pgsql_lookup_module_info;
517 #endif
518 #if defined(LOOKUP_REDIS) && LOOKUP_REDIS!=2
519 extern lookup_module_info redis_lookup_module_info;
520 #endif
521 #if defined(EXPERIMENTAL_LMDB)
522 extern lookup_module_info lmdb_lookup_module_info;
523 #endif
524 #if defined(EXPERIMENTAL_SPF)
525 extern lookup_module_info spf_lookup_module_info;
526 #endif
527 #if defined(LOOKUP_SQLITE) && LOOKUP_SQLITE!=2
528 extern lookup_module_info sqlite_lookup_module_info;
529 #endif
530 #if defined(LOOKUP_TESTDB) && LOOKUP_TESTDB!=2
531 extern lookup_module_info testdb_lookup_module_info;
532 #endif
533 #if defined(LOOKUP_WHOSON) && LOOKUP_WHOSON!=2
534 extern lookup_module_info whoson_lookup_module_info;
535 #endif
536
537
538 void
539 init_lookup_list(void)
540 {
541 #ifdef LOOKUP_MODULE_DIR
542   DIR *dd;
543   struct dirent *ent;
544   int countmodules = 0;
545   int moduleerrors = 0;
546 #endif
547   struct lookupmodulestr *p;
548
549   if (lookup_list_init_done)
550     return;
551   lookup_list_init_done = 1;
552
553 #if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
554   addlookupmodule(NULL, &cdb_lookup_module_info);
555 #endif
556
557 #if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
558   addlookupmodule(NULL, &dbmdb_lookup_module_info);
559 #endif
560
561 #if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
562   addlookupmodule(NULL, &dnsdb_lookup_module_info);
563 #endif
564
565 #if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
566   addlookupmodule(NULL, &dsearch_lookup_module_info);
567 #endif
568
569 #if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
570   addlookupmodule(NULL, &ibase_lookup_module_info);
571 #endif
572
573 #ifdef LOOKUP_LDAP
574   addlookupmodule(NULL, &ldap_lookup_module_info);
575 #endif
576
577 #if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
578   addlookupmodule(NULL, &lsearch_lookup_module_info);
579 #endif
580
581 #if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
582   addlookupmodule(NULL, &mysql_lookup_module_info);
583 #endif
584
585 #if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
586   addlookupmodule(NULL, &nis_lookup_module_info);
587 #endif
588
589 #if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
590   addlookupmodule(NULL, &nisplus_lookup_module_info);
591 #endif
592
593 #if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
594   addlookupmodule(NULL, &oracle_lookup_module_info);
595 #endif
596
597 #if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
598   addlookupmodule(NULL, &passwd_lookup_module_info);
599 #endif
600
601 #if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
602   addlookupmodule(NULL, &pgsql_lookup_module_info);
603 #endif
604
605 #if defined(LOOKUP_REDIS) && LOOKUP_REDIS!=2
606   addlookupmodule(NULL, &redis_lookup_module_info);
607 #endif
608
609 #ifdef EXPERIMENTAL_LMDB
610   addlookupmodule(NULL, &lmdb_lookup_module_info);
611 #endif
612
613 #ifdef EXPERIMENTAL_SPF
614   addlookupmodule(NULL, &spf_lookup_module_info);
615 #endif
616
617 #if defined(LOOKUP_SQLITE) && LOOKUP_SQLITE!=2
618   addlookupmodule(NULL, &sqlite_lookup_module_info);
619 #endif
620
621 #if defined(LOOKUP_TESTDB) && LOOKUP_TESTDB!=2
622   addlookupmodule(NULL, &testdb_lookup_module_info);
623 #endif
624
625 #if defined(LOOKUP_WHOSON) && LOOKUP_WHOSON!=2
626   addlookupmodule(NULL, &whoson_lookup_module_info);
627 #endif
628
629 #ifdef LOOKUP_MODULE_DIR
630   dd = opendir(LOOKUP_MODULE_DIR);
631   if (dd == NULL) {
632     DEBUG(D_lookup) debug_printf("Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
633     log_write(0, LOG_MAIN, "Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
634   }
635   else {
636     const pcre *regex_islookupmod = regex_must_compile(
637       US"\\." DYNLIB_FN_EXT "$", FALSE, TRUE);
638
639     DEBUG(D_lookup) debug_printf("Loading lookup modules from %s\n", LOOKUP_MODULE_DIR);
640     while ((ent = readdir(dd)) != NULL) {
641       char *name = ent->d_name;
642       int len = (int)strlen(name);
643       if (pcre_exec(regex_islookupmod, NULL, name, len, 0, PCRE_EOPT, NULL, 0) >= 0) {
644         int pathnamelen = len + (int)strlen(LOOKUP_MODULE_DIR) + 2;
645         void *dl;
646         struct lookup_module_info *info;
647         const char *errormsg;
648
649         /* SRH: am I being paranoid here or what? */
650         if (pathnamelen > big_buffer_size) {
651           fprintf(stderr, "Loading lookup modules: %s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
652           log_write(0, LOG_MAIN|LOG_PANIC, "%s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
653           continue;
654         }
655
656         /* SRH: snprintf here? */
657         sprintf(CS big_buffer, "%s/%s", LOOKUP_MODULE_DIR, name);
658
659         dl = dlopen(CS big_buffer, RTLD_NOW);// TJ was LAZY
660         if (dl == NULL) {
661           fprintf(stderr, "Error loading %s: %s\n", name, dlerror());
662           moduleerrors++;
663           log_write(0, LOG_MAIN|LOG_PANIC, "Error loading lookup module %s: %s\n", name, dlerror());
664           continue;
665         }
666
667         /* FreeBSD nsdispatch() can trigger dlerror() errors about
668          * _nss_cache_cycle_prevention_function; we need to clear the dlerror()
669          * state before calling dlsym(), so that any error afterwards only
670          * comes from dlsym().
671          */
672         errormsg = dlerror();
673
674         info = (struct lookup_module_info*) dlsym(dl, "_lookup_module_info");
675         if ((errormsg = dlerror()) != NULL) {
676           fprintf(stderr, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
677           dlclose(dl);
678           moduleerrors++;
679           log_write(0, LOG_MAIN|LOG_PANIC, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
680           continue;
681         }
682         if (info->magic != LOOKUP_MODULE_INFO_MAGIC) {
683           fprintf(stderr, "Lookup module %s is not compatible with this version of Exim\n", name);
684           dlclose(dl);
685           moduleerrors++;
686           log_write(0, LOG_MAIN|LOG_PANIC, "Lookup module %s is not compatible with this version of Exim\n", name);
687           continue;
688         }
689
690         addlookupmodule(dl, info);
691         DEBUG(D_lookup) debug_printf("Loaded \"%s\" (%d lookup types)\n", name, info->lookupcount);
692         countmodules++;
693       }
694     }
695     store_free((void*)regex_islookupmod);
696     closedir(dd);
697   }
698
699   DEBUG(D_lookup) debug_printf("Loaded %d lookup modules\n", countmodules);
700 #endif
701
702   DEBUG(D_lookup) debug_printf("Total %d lookups\n", lookup_list_count);
703
704   lookup_list = store_malloc(sizeof(lookup_info *) * lookup_list_count);
705   memset(lookup_list, 0, sizeof(lookup_info *) * lookup_list_count);
706
707   /* now add all lookups to the real list */
708   p = lookupmodules;
709   while (p) {
710     int j;
711     struct lookupmodulestr *pnext;
712
713     for (j = 0; j < p->info->lookupcount; j++)
714       add_lookup_to_list(p->info->lookups[j]);
715
716     pnext = p->next;
717     store_free(p);
718     p = pnext;
719   }
720   /* just to be sure */
721   lookupmodules = NULL;
722 }
723
724 /* End of drtables.c */