Changeset fcb122d in mod_gnutls for src


Ignore:
Timestamp:
Apr 5, 2005, 12:39:18 PM (15 years ago)
Author:
Paul Querna <chip@…>
Branches:
debian/master, debian/stretch-backports, jessie-backports, master, msva, upstream
Children:
42307a9
Parents:
6e0bfd6
Message:

checkpoint the work so far. The DBM cache needs a little more work.

Location:
src
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • src/gnutls_cache.c

    r6e0bfd6 rfcb122d  
    1 /* ====================================================================
    2  *  Copyright 2004 Paul Querna
     1/**
     2 *  Copyright 2004-2005 Paul Querna
    33 *
    44 *  Licensed under the Apache License, Version 2.0 (the "License");
    … …  
    2222#endif
    2323
     24#include "apr_dbm.h"
     25
    2426#include "ap_mpm.h"
     27
     28#include <unistd.h>
     29#include <sys/types.h>
     30
     31#if !defined(OS2) && !defined(WIN32) && !defined(BEOS) && !defined(NETWARE)
     32#include "unixd.h"
     33#endif
    2534
    2635#define GNUTLS_SESSION_ID_STRING_LEN \
    … …  
    153162        return -1;
    154163
    155     timeout = 3600;
     164    timeout = ctxt->sc->cache_timeout;
    156165
    157166    rv = apr_memcache_set(mc,  strkey, data.data, data.size, timeout, 0);
    … …  
    234243#endif /* have_apr_memcache */
    235244
     245#define SSL_DBM_FILE_MODE ( APR_UREAD | APR_UWRITE | APR_GREAD | APR_WREAD )
     246
     247static int dbm_cache_expire(mod_gnutls_handle_t *ctxt)
     248{
     249    apr_status_t rv;
     250    apr_dbm_t *dbm;
     251
     252    rv = apr_dbm_open(&dbm, ctxt->sc->cache_config,
     253                      APR_DBM_RWCREATE, SSL_DBM_FILE_MODE, ctxt->c->pool);
     254    if (rv != APR_SUCCESS) {
     255        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     256                     ctxt->c->base_server,
     257                     "[gnutls_cache] error opening cache '%s'",
     258                     ctxt->sc->cache_config);
     259        return -1;
     260    }
     261    apr_dbm_close(dbm);
     262
     263    return 0;
     264}
     265
     266static gnutls_datum_t dbm_cache_fetch(void* baton, gnutls_datum_t key)
     267{
     268    gnutls_datum_t data = { NULL, 0 };
     269    apr_dbm_t *dbm;
     270    apr_datum_t dbmkey;
     271    apr_datum_t dbmval;
     272    mod_gnutls_handle_t *ctxt = baton;
     273    apr_status_t rv;
     274
     275    dbmkey.dptr  = key.data;
     276    dbmkey.dsize = key.size;
     277
     278    rv = apr_dbm_open(&dbm, ctxt->sc->cache_config,
     279                      APR_DBM_RWCREATE, SSL_DBM_FILE_MODE, ctxt->c->pool);
     280    if (rv != APR_SUCCESS) {
     281        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     282                     ctxt->c->base_server,
     283                     "[gnutls_cache] error opening cache '%s'",
     284                     ctxt->sc->cache_config);
     285        return data;
     286    }
     287
     288    rv = apr_dbm_fetch(dbm, dbmkey, &dbmval);
     289
     290    if (rv != APR_SUCCESS) {
     291        apr_dbm_close(dbm);
     292        return data;
     293    }
     294
     295    if (dbmval.dptr == NULL || dbmval.dsize <= sizeof(apr_time_t)) {
     296        apr_dbm_close(dbm);
     297        return data;
     298    }
     299
     300    data.data = gnutls_malloc(dbmval.dsize - sizeof(apr_time_t));
     301    if (data.data == NULL)
     302        return data;
     303
     304    data.size = dbmval.dsize - sizeof(apr_time_t);
     305    memcpy(data.data, dbmval.dptr+sizeof(apr_time_t), data.size);
     306
     307    apr_dbm_close(dbm);
     308    return data;
     309}
     310
     311static int dbm_cache_store(void* baton, gnutls_datum_t key,
     312                          gnutls_datum_t data)
     313{
     314    apr_dbm_t *dbm;
     315    apr_datum_t dbmkey;
     316    apr_datum_t dbmval;
     317    mod_gnutls_handle_t *ctxt = baton;
     318    apr_status_t rv;
     319    apr_time_t timeout;
     320   
     321    dbmkey.dptr  = (char *)key.data;
     322    dbmkey.dsize = key.size;
     323
     324    /* create DBM value */
     325    dbmval.dsize = data.size;
     326    dbmval.dptr  = (char *)malloc(dbmval.dsize+sizeof(apr_time_t));
     327
     328    memcpy((char *)dbmval.dptr+sizeof(apr_time_t),
     329           data.data, data.size);
     330
     331    rv = apr_dbm_open(&dbm, ctxt->sc->cache_config,
     332                      APR_DBM_RWCREATE, SSL_DBM_FILE_MODE, ctxt->c->pool);
     333    if (rv != APR_SUCCESS) {
     334        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     335                     ctxt->c->base_server,
     336                     "[gnutls_cache] error opening cache '%s'",
     337                     ctxt->sc->cache_config);
     338        free(dbmval.dptr);       
     339        return -1;
     340    }
     341
     342    rv = apr_dbm_store(dbm, dbmkey, dbmval);
     343
     344    if (rv != APR_SUCCESS) {
     345        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     346                     ctxt->c->base_server,
     347                     "[gnutls_cache] error storing in cache '%s'",
     348                     ctxt->sc->cache_config);
     349        apr_dbm_close(dbm);
     350        free(dbmval.dptr);
     351        return -1;
     352    }
     353
     354    apr_dbm_close(dbm);
     355
     356    free(dbmval.dptr);
     357   
     358    return 0;
     359}
     360
     361static int dbm_cache_delete(void* baton, gnutls_datum_t key)
     362{
     363    apr_dbm_t *dbm;
     364    apr_datum_t dbmkey;
     365    mod_gnutls_handle_t *ctxt = baton;
     366    apr_status_t rv;
     367   
     368    dbmkey.dptr  = (char *)key.data;
     369    dbmkey.dsize = key.size;
     370
     371    rv = apr_dbm_open(&dbm, ctxt->sc->cache_config,
     372                      APR_DBM_RWCREATE, SSL_DBM_FILE_MODE, ctxt->c->pool);
     373    if (rv != APR_SUCCESS) {
     374        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     375                     ctxt->c->base_server,
     376                     "[gnutls_cache] error opening cache '%s'",
     377                     ctxt->sc->cache_config);
     378        return -1;
     379    }
     380
     381    rv = apr_dbm_delete(dbm, dbmkey);
     382
     383    if (rv != APR_SUCCESS) {
     384        ap_log_error(APLOG_MARK, APLOG_NOTICE, rv,
     385                     ctxt->c->base_server,
     386                     "[gnutls_cache] error storing in cache '%s'",
     387                     ctxt->sc->cache_config);
     388        apr_dbm_close(dbm);
     389        return -1;
     390    }
     391
     392    apr_dbm_close(dbm);
     393
     394    return 0;
     395}
     396
     397static int dbm_cache_child_init(apr_pool_t *p, server_rec *s,
     398                                mod_gnutls_srvconf_rec *sc)
     399{
     400    apr_status_t rv;
     401    apr_dbm_t *dbm;
     402    const char* path1;
     403    const char* path2;
     404
     405    rv = apr_dbm_open(&dbm, sc->cache_config, APR_DBM_RWCREATE,
     406                      SSL_DBM_FILE_MODE, p);
     407
     408    if (rv != APR_SUCCESS) {
     409        ap_log_error(APLOG_MARK, APLOG_ERR, rv, s,
     410                     "GnuTLS: Cannot create DBM Cache at `%s'",
     411                     sc->cache_config);
     412        return rv;
     413    }
     414
     415    apr_dbm_close(dbm);
     416
     417    apr_dbm_get_usednames(p, sc->cache_config, &path1, &path2);
     418
     419    /* The Following Code takes logic directly from mod_ssl's DBM Cache */
     420#if !defined(OS2) && !defined(WIN32) && !defined(BEOS) && !defined(NETWARE)
     421    /* Running as Root */
     422    if (geteuid() == 0)  {
     423        chown(path1, unixd_config.user_id, -1);
     424        if (path2 != NULL) {
     425            chown(path2, unixd_config.user_id, -1);
     426        }
     427    }
     428#endif
     429
     430    return rv;
     431}
     432
     433int mod_gnutls_cache_post_config(apr_pool_t *p, server_rec *s,
     434                                 mod_gnutls_srvconf_rec *sc)
     435{
     436    if (sc->cache_type == mod_gnutls_cache_dbm) {
     437        return dbm_cache_child_init(p, s, sc);
     438    }
     439    return 0;
     440}
     441
    236442int mod_gnutls_cache_child_init(apr_pool_t *p, server_rec *s,
    237443                                mod_gnutls_srvconf_rec *sc)
    238444{
     445    if (sc->cache_type == mod_gnutls_cache_dbm) {
     446        return 0;
     447    }
    239448#if HAVE_APR_MEMCACHE
    240     return mc_cache_child_init(p, s, sc);
    241 #else
    242     return 0;
     449    else if (sc->cache_type == mod_gnutls_cache_memcache) {
     450        return mc_cache_child_init(p, s, sc);
     451    }
    243452#endif
    244 }
     453    return 0;
     454}
     455
     456 #include <assert.h>
    245457
    246458int mod_gnutls_cache_session_init(mod_gnutls_handle_t *ctxt)
    247459{
     460    printf("Type: %d Params: %s\n",ctxt->sc->cache_type, ctxt->sc->cache_config);
     461    if (ctxt->sc->cache_type == mod_gnutls_cache_dbm) {
     462        gnutls_db_set_retrieve_function(ctxt->session, dbm_cache_fetch);
     463        gnutls_db_set_remove_function(ctxt->session, dbm_cache_delete);
     464        gnutls_db_set_store_function(ctxt->session, dbm_cache_store);
     465        gnutls_db_set_ptr(ctxt->session, ctxt);
     466    }
    248467#if HAVE_APR_MEMCACHE
    249     gnutls_db_set_retrieve_function(ctxt->session, mc_cache_fetch);
    250     gnutls_db_set_remove_function(ctxt->session, mc_cache_delete);
    251     gnutls_db_set_store_function(ctxt->session, mc_cache_store);
    252     gnutls_db_set_ptr(ctxt->session, ctxt);
    253 #else
    254     /* TODO: Alternative Cache Backends */
     468    else if (ctxt->sc->cache_type == mod_gnutls_cache_memcache) {
     469        gnutls_db_set_retrieve_function(ctxt->session, mc_cache_fetch);
     470        gnutls_db_set_remove_function(ctxt->session, mc_cache_delete);
     471        gnutls_db_set_store_function(ctxt->session, mc_cache_store);
     472        gnutls_db_set_ptr(ctxt->session, ctxt);
     473    }
    255474#endif
    256     return 0;
    257 }
     475    else {
     476        assert(1);
     477        /* No Session Cache is Available. Opps. */
     478    }
     479    return 0;
     480}

  • src/gnutls_io.c

    r6e0bfd6 rfcb122d  
    1 /* ====================================================================
    2  *  Copyright 2004 Paul Querna
     1/**
     2 *  Copyright 2004-2005 Paul Querna
    33 *
    44 *  Licensed under the Apache License, Version 2.0 (the "License");
    … …  
    343343    int ret;
    344344
    345     if (ctxt->status != 0)
     345    if (ctxt->status != 0) {
    346346        return;
    347         ret = gnutls_handshake(ctxt->session);
    348         if (ret < 0) {
    349             if (ret == GNUTLS_E_WARNING_ALERT_RECEIVED
    350                 || ret == GNUTLS_E_FATAL_ALERT_RECEIVED) {
    351                 ret = gnutls_alert_get(ctxt->session);
    352                 ap_log_error(APLOG_MARK, APLOG_ERR, 0, ctxt->c->base_server,
    353                              "GnuTLS: Hanshake Alert (%d) '%s'.\n", ret,
    354                              gnutls_alert_get_name(ret));
    355             }
     347    }
     348
     349tryagain:
     350
     351    ret = gnutls_handshake(ctxt->session);
     352    if (ret < 0) {
     353        if (ret == GNUTLS_E_WARNING_ALERT_RECEIVED
     354            || ret == GNUTLS_E_FATAL_ALERT_RECEIVED) {
     355            ret = gnutls_alert_get(ctxt->session);
     356            ap_log_error(APLOG_MARK, APLOG_ERR, 0, ctxt->c->base_server,
     357                         "GnuTLS: Hanshake Alert (%d) '%s'.\n", ret,
     358                         gnutls_alert_get_name(ret));
     359        }
    356360   
    357             gnutls_deinit(ctxt->session);
    358             ap_log_error(APLOG_MARK, APLOG_ERR, 0, ctxt->c->base_server,
    359                              "GnuTLS: Handshake Failed (%d) '%s'", ret,
    360                              gnutls_strerror(ret));
    361                 ctxt->status = -1;
    362                 return;
    363         }
    364         else {
    365             ctxt->status = 1;
    366             return;             /* all done with the handshake */
    367         }
    368 }
    369 
    370 
    371 apr_status_t mod_gnutls_filter_input(ap_filter_t * f,
     361        if (!gnutls_error_is_fatal(ret)) {
     362            ap_log_error(APLOG_MARK, APLOG_INFO, 0, ctxt->c->base_server,
     363                     "GnuTLS: Non-Fatal Handshake Error: (%d) '%s'", ret,
     364                      gnutls_strerror(ret));
     365            goto tryagain;
     366        }
     367
     368        ap_log_error(APLOG_MARK, APLOG_ERR, 0, ctxt->c->base_server,
     369                     "GnuTLS: Handshake Failed (%d) '%s'", ret,
     370                      gnutls_strerror(ret));
     371        ctxt->status = -1;
     372        gnutls_alert_send(ctxt->session, GNUTLS_AL_FATAL,
     373                          gnutls_error_to_alert(ret, NULL));
     374        gnutls_deinit(ctxt->session);
     375        return;
     376    }
     377    else {
     378        ctxt->status = 1;
     379        return;             /* all done with the handshake */
     380    }
     381}
     382
     383
     384apr_status_t mod_gnutls_filter_input(ap_filter_t* f,
    372385                                     apr_bucket_brigade * bb,
    373386                                     ap_input_mode_t mode,
    … …  
    456469    while (!APR_BRIGADE_EMPTY(bb)) {
    457470        apr_bucket *bucket = APR_BRIGADE_FIRST(bb);
    458         if (APR_BUCKET_IS_EOS(bucket) || AP_BUCKET_IS_EOC(bucket)) {
     471        if (AP_BUCKET_IS_EOC(bucket)) {
    459472
    460473            gnutls_bye(ctxt->session, GNUTLS_SHUT_WR);
    … …  
    466479            break;
    467480
    468         } else if (APR_BUCKET_IS_FLUSH(bucket)) {
     481        } else if (APR_BUCKET_IS_FLUSH(bucket) || APR_BUCKET_IS_EOS(bucket)) {
    469482
    470483            if ((status = ap_pass_brigade(f->next, bb)) != APR_SUCCESS) {

  • src/mod_gnutls.c

    r6e0bfd6 rfcb122d  
    1 /* ====================================================================
    2  *  Copyright 2004 Paul Querna
     1/**
     2 *  Copyright 2004-2005 Paul Querna
    33 *
    44 *  Licensed under the Apache License, Version 2.0 (the "License");
    … …  
    2222#endif
    2323
     24static apr_file_t* debug_log_fp;
     25
    2426static apr_status_t mod_gnutls_cleanup_pre_config(void *data)
    2527{
    … …  
    2830}
    2931
     32static void gnutls_debug_log_all( int level, const char* str)
     33{
     34    apr_file_printf(debug_log_fp, "<%d> %s\n", level, str);
     35}
     36
    3037static int mod_gnutls_hook_pre_config(apr_pool_t * pconf,
    3138                                      apr_pool_t * plog, apr_pool_t * ptemp)
    … …  
    3340
    3441#if APR_HAS_THREADS
     42    /* TODO: Check MPM Type here */
    3543    gcry_control(GCRYCTL_SET_THREAD_CBS, &gcry_threads_pthread);
    3644#endif
    … …  
    4149                              apr_pool_cleanup_null);
    4250
     51    apr_file_open(&debug_log_fp, "/tmp/gnutls_debug",
     52                  APR_APPEND|APR_WRITE|APR_CREATE, APR_OS_DEFAULT, pconf);
     53
     54    gnutls_global_set_log_level(9);
     55    gnutls_global_set_log_function(gnutls_debug_log_all);
     56
    4357    return OK;
    4458}
    4559
    46 #define DH_BITS 1024
    47 #ifdef USE_RSA
    48 #define RSA_BITS 512
    49 #endif
     60
     61static gnutls_datum load_params(const char* file, server_rec* s,
     62                                apr_pool_t* pool)
     63{
     64    gnutls_datum ret = { NULL, 0 };
     65    apr_file_t* fp;
     66    apr_finfo_t finfo;
     67    apr_status_t rv;
     68    apr_size_t br = 0;
     69
     70    rv = apr_file_open(&fp, file, APR_READ|APR_BINARY, APR_OS_DEFAULT,
     71                       pool);
     72    if (rv != APR_SUCCESS) {
     73        ap_log_error(APLOG_MARK, APLOG_STARTUP, rv, s,
     74                     "GnuTLS failed to load params file at: %s", file);
     75        return ret;
     76    }
     77
     78    rv = apr_file_info_get(&finfo, APR_FINFO_SIZE, fp);
     79
     80    if (rv != APR_SUCCESS) {
     81        ap_log_error(APLOG_MARK, APLOG_STARTUP, rv, s,
     82                     "GnuTLS failed to stat params file at: %s", file);
     83        return ret;
     84    }
     85
     86    ret.data = apr_palloc(pool, finfo.size+1);
     87    rv = apr_file_read_full(fp, ret.data, finfo.size, &br);
     88
     89    if (rv != APR_SUCCESS) {
     90        ap_log_error(APLOG_MARK, APLOG_STARTUP, rv, s,
     91                     "GnuTLS failed to read params file at: %s", file);
     92        return ret;
     93    }
     94
     95    ret.data[br] = '\0';
     96    ret.size = br;
     97
     98    return ret;
     99}
     100
    50101static int mod_gnutls_hook_post_config(apr_pool_t * p, apr_pool_t * plog,
    51102                                       apr_pool_t * ptemp,
    52103                                       server_rec * base_server)
    53104{
     105    int rv;
     106    server_rec *s;
     107    gnutls_dh_params_t dh_params;
     108    gnutls_rsa_params_t rsa_params;
    54109    mod_gnutls_srvconf_rec *sc;
     110    mod_gnutls_srvconf_rec *sc_base;
    55111    void *data = NULL;
    56112    int first_run = 0;
    57     server_rec *s;
    58     gnutls_dh_params_t dh_params;
    59 #ifdef USE_RSA
    60     gnutls_rsa_params_t rsa_params;
    61 #endif
    62113    const char *userdata_key = "mod_gnutls_init";
    63114         
    … …  
    71122
    72123
    73 //    if(first_run) {
    74         /* TODO: Should we regenerate these after X requests / X time ? */
     124    if (!first_run) {
     125        gnutls_datum pdata;
     126        apr_pool_t* tpool;
     127        s = base_server;
     128        sc_base = (mod_gnutls_srvconf_rec *) ap_get_module_config(s->module_config,
     129                                                             &gnutls_module);
     130
     131        apr_pool_create(&tpool, p);
     132
    75133        gnutls_dh_params_init(&dh_params);
    76         gnutls_dh_params_generate2(dh_params, DH_BITS);
    77 #ifdef USE_RSA
     134
     135        pdata = load_params(sc_base->dh_params_file, s, tpool);
     136
     137        if (pdata.size != 0) {
     138            rv = gnutls_dh_params_import_pkcs3(dh_params, &pdata,
     139                                               GNUTLS_X509_FMT_PEM);
     140            if (rv != 0) {
     141                ap_log_error(APLOG_MARK, APLOG_STARTUP, 0, s,
     142                             "GnuTLS: Unable to load DH Params: (%d) %s",
     143                             rv, gnutls_strerror(rv));
     144                exit(rv);
     145            }
     146        }
     147        else {
     148            ap_log_error(APLOG_MARK, APLOG_STARTUP, 0, s,
     149                         "GnuTLS: Unable to load DH Params."
     150                         " Shutting Down.");
     151            exit(-1);
     152        }
     153        apr_pool_clear(tpool);
     154
    78155        gnutls_rsa_params_init(&rsa_params);
    79         gnutls_rsa_params_generate2(rsa_params, RSA_BITS);
    80 #endif
    81 //    }
    82 
    83     for (s = base_server; s; s = s->next) {
    84         sc = (mod_gnutls_srvconf_rec *) ap_get_module_config(s->module_config,
    85                                                              &gnutls_module);
    86         if (sc->cert_file != NULL && sc->key_file != NULL) {
    87             gnutls_certificate_set_x509_key_file(sc->certs, sc->cert_file,
     156
     157        pdata = load_params(sc_base->rsa_params_file, s, tpool);
     158
     159        if (pdata.size != 0) {
     160            rv = gnutls_rsa_params_import_pkcs1(rsa_params, &pdata,
     161                                                GNUTLS_X509_FMT_PEM);
     162            if (rv != 0) {
     163                ap_log_error(APLOG_MARK, APLOG_STARTUP, 0, s,
     164                             "GnuTLS: Unable to load RSA Params: (%d) %s",
     165                             rv, gnutls_strerror(rv));
     166                exit(rv);
     167            }
     168        }
     169        else {
     170            ap_log_error(APLOG_MARK, APLOG_STARTUP, 0, s,
     171                         "GnuTLS: Unable to load RSA Params."
     172                         " Shutting Down.");
     173            exit(-1);
     174        }
     175
     176        apr_pool_destroy(tpool);
     177        rv = mod_gnutls_cache_post_config(p, s, sc_base);
     178        if (rv != 0) {
     179            ap_log_error(APLOG_MARK, APLOG_STARTUP, rv, s,
     180                         "GnuTLS: Post Config for GnuTLSCache Failed."
     181                         " Shutting Down.");
     182            exit(-1);
     183        }
     184         
     185        for (s = base_server; s; s = s->next) {
     186            sc = (mod_gnutls_srvconf_rec *) ap_get_module_config(s->module_config,
     187                                                                 &gnutls_module);
     188            sc->cache_type = sc_base->cache_type;
     189            sc->cache_config = sc_base->cache_config;
     190
     191            if (sc->cert_file != NULL && sc->key_file != NULL) {
     192                rv = gnutls_certificate_set_x509_key_file(sc->certs, sc->cert_file,
    88193                                                 sc->key_file,
    89194                                                 GNUTLS_X509_FMT_PEM);
    90 #ifdef USE_RSA
    91           gnutls_certificate_set_rsa_export_params(sc->certs, rsa_params);
    92 #endif
    93           gnutls_certificate_set_dh_params(sc->certs, dh_params);
    94         }
    95         else if (sc->enabled == GNUTLS_ENABLED_TRUE) {
    96             ap_log_error(APLOG_MARK, APLOG_EMERG, 0, s,
    97                          "[GnuTLS] - Host '%s:%d' is missing a Cert and Key File!",
     195                if (rv != 0) {
     196                    ap_log_error(APLOG_MARK, APLOG_EMERG, 0, s,
     197                         "[GnuTLS] - Host '%s:%d' has an invalid key or certificate:"
     198                         "(%s,%s) (%d) %s",
     199                         s->server_hostname, s->port, sc->cert_file, sc->key_file,
     200                         rv, gnutls_strerror(rv));
     201                }
     202                else {
     203                    gnutls_certificate_set_rsa_export_params(sc->certs,
     204                                                     rsa_params);
     205                    gnutls_certificate_set_dh_params(sc->certs, dh_params);
     206                }
     207            }
     208            else if (sc->enabled == GNUTLS_ENABLED_TRUE) {
     209                ap_log_error(APLOG_MARK, APLOG_EMERG, 0, s,
     210                             "[GnuTLS] - Host '%s:%d' is missing a "
     211                             "Cert and Key File!",
    98212                         s->server_hostname, s->port);
    99         }
    100     }
    101 
     213            }
     214        }
     215    } /* first_run */
    102216
    103217    ap_add_version_component(p, "GnuTLS/" LIBGNUTLS_VERSION);
    … …  
    112226                                                      &gnutls_module);
    113227
    114     if(sc->cache_config != NULL) {
     228    if (sc->cache_type != mod_gnutls_cache_none) {
    115229        rv = mod_gnutls_cache_child_init(p, s, sc);
    116230        if(rv != APR_SUCCESS) {
    … …  
    120234    }
    121235    else {
    122             ap_log_error(APLOG_MARK, APLOG_CRIT, 0, s,
    123                              "[GnuTLS] - No Cache Configured. Hint: GnuTLSCache");
     236        ap_log_error(APLOG_MARK, APLOG_CRIT, 0, s,
     237                     "[GnuTLS] - No Cache Configured. Hint: GnuTLSCache");
    124238    }
    125239}
    … …  
    177291    gnutls_init(&ctxt->session, GNUTLS_SERVER);
    178292
     293    gnutls_protocol_set_priority(ctxt->session, sc->protocol);
    179294    gnutls_cipher_set_priority(ctxt->session, sc->ciphers);
    180295    gnutls_compression_set_priority(ctxt->session, sc->compression);
    181296    gnutls_kx_set_priority(ctxt->session, sc->key_exchange);
    182     gnutls_protocol_set_priority(ctxt->session, sc->protocol);
    183297    gnutls_mac_set_priority(ctxt->session, sc->macs);
     298    gnutls_certificate_type_set_priority(ctxt->session, sc->cert_types);
    184299
    185300    gnutls_credentials_set(ctxt->session, GNUTLS_CRD_CERTIFICATE, sc->certs);
     301
    186302//  if(anon) {
    187303//    gnutls_credentials_set(ctxt->session, GNUTLS_CRD_ANON, sc->anoncred);
    … …  
    189305
    190306    gnutls_certificate_server_set_request(ctxt->session, GNUTLS_CERT_IGNORE);
    191 
    192     gnutls_dh_set_prime_bits(ctxt->session, DH_BITS);
    193307
    194308    mod_gnutls_cache_session_init(ctxt);
    … …  
    217331                                       mod_gnutls_transport_write);
    218332    gnutls_transport_set_ptr(ctxt->session, ctxt);
    219     ctxt->input_filter = ap_add_input_filter(GNUTLS_INPUT_FILTER_NAME, ctxt, NULL, c);
    220     ctxt->output_filter = ap_add_output_filter(GNUTLS_OUTPUT_FILTER_NAME, ctxt, NULL, c);
     333   
     334    ctxt->input_filter = ap_add_input_filter(GNUTLS_INPUT_FILTER_NAME, ctxt,
     335                                             NULL, c);
     336    ctxt->output_filter = ap_add_output_filter(GNUTLS_OUTPUT_FILTER_NAME, ctxt,
     337                                               NULL, c);
    221338
    222339    return OK;
    … …  
    234351        return DECLINED;
    235352    }
     353
    236354    apr_table_setn(env, "HTTPS", "on");
    237355    apr_table_setn(env, "SSL_PROTOCOL",
    … …  
    272390
    273391static const char *gnutls_set_cache(cmd_parms * parms, void *dummy,
    274                                        const char *arg)
     392                                       const char *type, const char* arg)
    275393{
    276394    const char* err;
    … …  
    282400    }
    283401
    284     sc->cache_config = apr_pstrdup(parms->pool, arg);
     402    if (strcasecmp("none", type) == 0) {
     403        sc->cache_type = mod_gnutls_cache_none;
     404    }
     405    else if (strcasecmp("dbm", type) == 0) {
     406        sc->cache_type = mod_gnutls_cache_dbm;
     407    }
     408#if HAVE_APR_MEMCACHE
     409    else if (strcasecmp("memcache", type) == 0) {
     410        sc->cache_type = mod_gnutls_cache_memcache;
     411    }
     412#endif
     413    else {
     414        return "Invalid Type for GnuTLSCache!";
     415    }
     416
     417    if (sc->cache_type == mod_gnutls_cache_dbm) {
     418        sc->cache_config = ap_server_root_relative(parms->pool, arg);
     419    }
     420    else {
     421        sc->cache_config = apr_pstrdup(parms->pool, arg);
     422    }
     423
    285424    return NULL;
    286425}
    … …  
    315454                  RSRC_CONF,
    316455                  "SSL Server Certificate file"),
    317     AP_INIT_TAKE1("GnuTLSCache", gnutls_set_cache,
     456    AP_INIT_TAKE2("GnuTLSCache", gnutls_set_cache,
    318457                  NULL,
    319458                  RSRC_CONF,
    320                   "SSL Server Certificate file"),
     459                  "Cache Configuration"),
    321460    AP_INIT_TAKE1("GnuTLSEnable", gnutls_set_enabled,
    322461                  NULL, RSRC_CONF,
    … …  
    373512    sc->key_file = NULL;
    374513    sc->cert_file = NULL;
    375     sc->cache_config = NULL;
    376 
     514    sc->cache_timeout = apr_time_from_sec(3600);
     515    sc->cache_type = mod_gnutls_cache_dbm;
     516    sc->cache_config = ap_server_root_relative(p, "conf/gnutls_cache");
     517
     518    /* TODO: Make this Configurable ! */
     519    sc->dh_params_file = ap_server_root_relative(p, "conf/dhfile");
     520    sc->rsa_params_file = ap_server_root_relative(p, "conf/rsafile");
     521
     522    /* TODO: Make this Configurable ! */
     523    /* meh. mod_ssl uses a flex based parser for this part.. sigh */
    377524    i = 0;
    378525    sc->ciphers[i++] = GNUTLS_CIPHER_AES_256_CBC;
    … …  
    384531
    385532    i = 0;
    386     sc->key_exchange[i++] = GNUTLS_KX_DHE_DSS;
    387533    sc->key_exchange[i++] = GNUTLS_KX_RSA;
    388     sc->key_exchange[i++] = GNUTLS_KX_DHE_RSA;
    389534    sc->key_exchange[i++] = GNUTLS_KX_RSA_EXPORT;
    390535    sc->key_exchange[i++] = GNUTLS_KX_DHE_DSS;
     536    sc->key_exchange[i++] = GNUTLS_KX_DHE_RSA;
     537    sc->key_exchange[i++] = GNUTLS_KX_ANON_DH;
     538    sc->key_exchange[i++] = GNUTLS_KX_SRP;
     539    sc->key_exchange[i++] = GNUTLS_KX_SRP_RSA;
     540    sc->key_exchange[i++] = GNUTLS_KX_SRP_DSS;
    391541    sc->key_exchange[i] = 0;
    392542
    … …  
    409559    sc->compression[i] = 0;
    410560
     561    i = 0;
     562    sc->cert_types[i++] = GNUTLS_CRT_X509;
     563    sc->cert_types[i] = 0;
     564 
    411565    return sc;
    412566}
Note: See TracChangeset for help on using the changeset viewer.