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