src/drtables.c

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