src/src/drtables.c

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