src/src/drtables.c

   1 /*************************************************
   2 *     Exim - an Internet mail transport agent    *
   3 *************************************************/
   4
   5 /* Copyright (c) University of Cambridge 1995 - 2009 */
   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 #if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
 451 extern lookup_module_info pgsql_lookup_module_info;
 452 #endif
 453 #if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
 454 extern lookup_module_info passwd_lookup_module_info;
 455 #endif
 456 #if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
 457 extern lookup_module_info oracle_lookup_module_info;
 458 #endif
 459 #if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
 460 extern lookup_module_info nisplus_lookup_module_info;
 461 #endif
 462 #if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
 463 extern lookup_module_info nis_lookup_module_info;
 464 #endif
 465 #if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
 466 extern lookup_module_info mysql_lookup_module_info;
 467 #endif
 468 #if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
 469 extern lookup_module_info lsearch_lookup_module_info;
 470 #endif
 471 #ifdef LOOKUP_LDAP
 472 extern lookup_module_info ldap_lookup_module_info;
 473 #endif
 474 #if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
 475 extern lookup_module_info ibase_lookup_module_info;
 476 #endif
 477 #if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
 478 extern lookup_module_info dsearch_lookup_module_info;
 479 #endif
 480 #if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
 481 extern lookup_module_info dnsdb_lookup_module_info;
 482 #endif
 483 #if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
 484 extern lookup_module_info dbmdb_lookup_module_info;
 485 #endif
 486 #if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
 487 extern lookup_module_info cdb_lookup_module_info;
 488 #endif
 489
 490 void init_lookup_list(void)
 491 {
 492   DIR *dd;
 493   struct dirent *ent;
 494   const pcre *regex_islookupmod = regex_must_compile(
 495       US"\\." DYNLIB_FN_EXT "$", FALSE, TRUE);
 496   int countmodules = 0;
 497   int moduleerrors = 0;
 498   struct lookupmodulestr *p;
 499
 500   if (lookup_list_init_done)
 501     return;
 502   lookup_list_init_done = 1;
 503
 504 #if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
 505   addlookupmodule(NULL, &cdb_lookup_module_info);
 506 #endif
 507
 508 #if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
 509   addlookupmodule(NULL, &dbmdb_lookup_module_info);
 510 #endif
 511
 512 #if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
 513   addlookupmodule(NULL, &dnsdb_lookup_module_info);
 514 #endif
 515
 516 #if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
 517   addlookupmodule(NULL, &dsearch_lookup_module_info);
 518 #endif
 519
 520 #if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
 521   addlookupmodule(NULL, &ibase_lookup_module_info);
 522 #endif
 523
 524 #ifdef LOOKUP_LDAP
 525   addlookupmodule(NULL, &ldap_lookup_module_info);
 526 #endif
 527
 528 #if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
 529   addlookupmodule(NULL, &lsearch_lookup_module_info);
 530 #endif
 531
 532 #if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
 533   addlookupmodule(NULL, &mysql_lookup_module_info);
 534 #endif
 535
 536 #if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
 537   addlookupmodule(NULL, &nis_lookup_module_info);
 538 #endif
 539
 540 #if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
 541   addlookupmodule(NULL, &nisplus_lookup_module_info);
 542 #endif
 543
 544 #if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
 545   addlookupmodule(NULL, &oracle_lookup_module_info);
 546 #endif
 547
 548 #if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
 549   addlookupmodule(NULL, &passwd_lookup_module_info);
 550 #endif
 551
 552 #if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
 553   addlookupmodule(NULL, &pgsql_lookup_module_info);
 554 #endif
 555
 556 #ifdef EXPERIMENTAL_SPF
 557   addlookupmodule(NULL, &spf_lookup_module_info);
 558 #endif
 559
 560 #if defined(LOOKUP_SQLITE) && LOOKUP_SQLITE!=2
 561   addlookupmodule(NULL, &sqlite_lookup_module_info);
 562 #endif
 563
 564 #if defined(LOOKUP_TESTDB) && LOOKUP_TESTDB!=2
 565   addlookupmodule(NULL, &testdb_lookup_module_info);
 566 #endif
 567
 568 #if defined(LOOKUP_WHOSON) && LOOKUP_WHOSON!=2
 569   addlookupmodule(NULL, &whoson_lookup_module_info);
 570 #endif
 571
 572 #ifdef LOOKUP_MODULE_DIR
 573   dd = opendir(LOOKUP_MODULE_DIR);
 574   if (dd == NULL) {
 575     DEBUG(D_lookup) debug_printf("Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
 576     log_write(0, LOG_MAIN, "Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
 577   }
 578   else {
 579     DEBUG(D_lookup) debug_printf("Loading lookup modules from %s\n", LOOKUP_MODULE_DIR);
 580     while ((ent = readdir(dd)) != NULL) {
 581       char *name = ent->d_name;
 582       int len = (int)strlen(name);
 583       if (pcre_exec(regex_islookupmod, NULL, name, len, 0, PCRE_EOPT, NULL, 0) >= 0) {
 584         int pathnamelen = len + (int)strlen(LOOKUP_MODULE_DIR) + 2;
 585         void *dl;
 586         struct lookup_module_info *info;
 587         const char *errormsg;
 588
 589         /* SRH: am I being paranoid here or what? */
 590         if (pathnamelen > big_buffer_size) {
 591           fprintf(stderr, "Loading lookup modules: %s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
 592           log_write(0, LOG_MAIN|LOG_PANIC, "%s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
 593           continue;
 594         }
 595
 596         /* SRH: snprintf here? */
 597         sprintf(CS big_buffer, "%s/%s", LOOKUP_MODULE_DIR, name);
 598
 599         dl = dlopen(CS big_buffer, RTLD_NOW);// TJ was LAZY
 600         if (dl == NULL) {
 601           fprintf(stderr, "Error loading %s: %s\n", name, dlerror());
 602           moduleerrors++;
 603           log_write(0, LOG_MAIN|LOG_PANIC, "Error loading lookup module %s: %s\n", name, dlerror());
 604           continue;
 605         }
 606
 607         /* FreeBSD nsdispatch() can trigger dlerror() errors about
 608          * _nss_cache_cycle_prevention_function; we need to clear the dlerror()
 609          * state before calling dlsym(), so that any error afterwards only
 610          * comes from dlsym().
 611          */
 612         errormsg = dlerror();
 613
 614         info = (struct lookup_module_info*) dlsym(dl, "_lookup_module_info");
 615         if ((errormsg = dlerror()) != NULL) {
 616           fprintf(stderr, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
 617           dlclose(dl);
 618           moduleerrors++;
 619           log_write(0, LOG_MAIN|LOG_PANIC, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
 620           continue;
 621         }
 622         if (info->magic != LOOKUP_MODULE_INFO_MAGIC) {
 623           fprintf(stderr, "Lookup module %s is not compatible with this version of Exim\n", name);
 624           dlclose(dl);
 625           moduleerrors++;
 626           log_write(0, LOG_MAIN|LOG_PANIC, "Lookup module %s is not compatible with this version of Exim\n", name);
 627           continue;
 628         }
 629
 630         addlookupmodule(dl, info);
 631         DEBUG(D_lookup) debug_printf("Loaded \"%s\" (%d lookup types)\n", name, info->lookupcount);
 632         countmodules++;
 633       }
 634     }
 635     closedir(dd);
 636   }
 637
 638   DEBUG(D_lookup) debug_printf("Loaded %d lookup modules\n", countmodules);
 639 #endif
 640
 641   store_free((void*)regex_islookupmod);
 642
 643   DEBUG(D_lookup) debug_printf("Total %d lookups\n", lookup_list_count);
 644
 645   lookup_list = store_malloc(sizeof(lookup_info *) * lookup_list_count);
 646   memset(lookup_list, 0, sizeof(lookup_info *) * lookup_list_count);
 647
 648   /* now add all lookups to the real list */
 649   p = lookupmodules;
 650   while (p) {
 651     int j;
 652     struct lookupmodulestr *pnext;
 653
 654     for (j = 0; j < p->info->lookupcount; j++)
 655       add_lookup_to_list(p->info->lookups[j]);
 656
 657     pnext = p->next;
 658     store_free(p);
 659     p = pnext;
 660   }
 661   /* just to be sure */
 662   lookupmodules = NULL;
 663 }
 664
 665 /* End of drtables.c */