diff options
author | Paul Querna | 2004-09-27 02:59:32 +0000 |
---|---|---|
committer | Paul Querna | 2004-09-27 02:59:32 +0000 |
commit | 9706fc2bfa08fd50d0a754aa7ede8434cb004c8b (patch) | |
tree | 09281ea11b607b1a52275717f19974fdb72c7261 | |
parent | 7acaed0944e0bc6b79dcfaecf0667dabcc223d61 (diff) |
iniail makefiles and license foo
-rw-r--r-- | LICENSE | 202 | ||||
-rw-r--r-- | Makefile.am | 3 | ||||
-rwxr-xr-x | autogen.sh | 10 | ||||
-rw-r--r-- | configure.ac | 41 | ||||
-rw-r--r-- | src/Makefile.am | 41 | ||||
-rw-r--r-- | src/mod_gnutls.c | 465 |
6 files changed, 762 insertions, 0 deletions
@@ -0,0 +1,202 @@ | |||
1 | Apache License | ||
2 | Version 2.0, January 2004 | ||
3 | http://www.apache.org/licenses/ | ||
4 | |||
5 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION | ||
6 | |||
7 | 1. Definitions. | ||
8 | |||
9 | "License" shall mean the terms and conditions for use, reproduction, | ||
10 | and distribution as defined by Sections 1 through 9 of this document. | ||
11 | |||
12 | "Licensor" shall mean the copyright owner or entity authorized by | ||
13 | the copyright owner that is granting the License. | ||
14 | |||
15 | "Legal Entity" shall mean the union of the acting entity and all | ||
16 | other entities that control, are controlled by, or are under common | ||
17 | control with that entity. For the purposes of this definition, | ||
18 | "control" means (i) the power, direct or indirect, to cause the | ||
19 | direction or management of such entity, whether by contract or | ||
20 | otherwise, or (ii) ownership of fifty percent (50%) or more of the | ||
21 | outstanding shares, or (iii) beneficial ownership of such entity. | ||
22 | |||
23 | "You" (or "Your") shall mean an individual or Legal Entity | ||
24 | exercising permissions granted by this License. | ||
25 | |||
26 | "Source" form shall mean the preferred form for making modifications, | ||
27 | including but not limited to software source code, documentation | ||
28 | source, and configuration files. | ||
29 | |||
30 | "Object" form shall mean any form resulting from mechanical | ||
31 | transformation or translation of a Source form, including but | ||
32 | not limited to compiled object code, generated documentation, | ||
33 | and conversions to other media types. | ||
34 | |||
35 | "Work" shall mean the work of authorship, whether in Source or | ||
36 | Object form, made available under the License, as indicated by a | ||
37 | copyright notice that is included in or attached to the work | ||
38 | (an example is provided in the Appendix below). | ||
39 | |||
40 | "Derivative Works" shall mean any work, whether in Source or Object | ||
41 | form, that is based on (or derived from) the Work and for which the | ||
42 | editorial revisions, annotations, elaborations, or other modifications | ||
43 | represent, as a whole, an original work of authorship. For the purposes | ||
44 | of this License, Derivative Works shall not include works that remain | ||
45 | separable from, or merely link (or bind by name) to the interfaces of, | ||
46 | the Work and Derivative Works thereof. | ||
47 | |||
48 | "Contribution" shall mean any work of authorship, including | ||
49 | the original version of the Work and any modifications or additions | ||
50 | to that Work or Derivative Works thereof, that is intentionally | ||
51 | submitted to Licensor for inclusion in the Work by the copyright owner | ||
52 | or by an individual or Legal Entity authorized to submit on behalf of | ||
53 | the copyright owner. For the purposes of this definition, "submitted" | ||
54 | means any form of electronic, verbal, or written communication sent | ||
55 | to the Licensor or its representatives, including but not limited to | ||
56 | communication on electronic mailing lists, source code control systems, | ||
57 | and issue tracking systems that are managed by, or on behalf of, the | ||
58 | Licensor for the purpose of discussing and improving the Work, but | ||
59 | excluding communication that is conspicuously marked or otherwise | ||
60 | designated in writing by the copyright owner as "Not a Contribution." | ||
61 | |||
62 | "Contributor" shall mean Licensor and any individual or Legal Entity | ||
63 | on behalf of whom a Contribution has been received by Licensor and | ||
64 | subsequently incorporated within the Work. | ||
65 | |||
66 | 2. Grant of Copyright License. Subject to the terms and conditions of | ||
67 | this License, each Contributor hereby grants to You a perpetual, | ||
68 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable | ||
69 | copyright license to reproduce, prepare Derivative Works of, | ||
70 | publicly display, publicly perform, sublicense, and distribute the | ||
71 | Work and such Derivative Works in Source or Object form. | ||
72 | |||
73 | 3. Grant of Patent License. Subject to the terms and conditions of | ||
74 | this License, each Contributor hereby grants to You a perpetual, | ||
75 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable | ||
76 | (except as stated in this section) patent license to make, have made, | ||
77 | use, offer to sell, sell, import, and otherwise transfer the Work, | ||
78 | where such license applies only to those patent claims licensable | ||
79 | by such Contributor that are necessarily infringed by their | ||
80 | Contribution(s) alone or by combination of their Contribution(s) | ||
81 | with the Work to which such Contribution(s) was submitted. If You | ||
82 | institute patent litigation against any entity (including a | ||
83 | cross-claim or counterclaim in a lawsuit) alleging that the Work | ||
84 | or a Contribution incorporated within the Work constitutes direct | ||
85 | or contributory patent infringement, then any patent licenses | ||
86 | granted to You under this License for that Work shall terminate | ||
87 | as of the date such litigation is filed. | ||
88 | |||
89 | 4. Redistribution. You may reproduce and distribute copies of the | ||
90 | Work or Derivative Works thereof in any medium, with or without | ||
91 | modifications, and in Source or Object form, provided that You | ||
92 | meet the following conditions: | ||
93 | |||
94 | (a) You must give any other recipients of the Work or | ||
95 | Derivative Works a copy of this License; and | ||
96 | |||
97 | (b) You must cause any modified files to carry prominent notices | ||
98 | stating that You changed the files; and | ||
99 | |||
100 | (c) You must retain, in the Source form of any Derivative Works | ||
101 | that You distribute, all copyright, patent, trademark, and | ||
102 | attribution notices from the Source form of the Work, | ||
103 | excluding those notices that do not pertain to any part of | ||
104 | the Derivative Works; and | ||
105 | |||
106 | (d) If the Work includes a "NOTICE" text file as part of its | ||
107 | distribution, then any Derivative Works that You distribute must | ||
108 | include a readable copy of the attribution notices contained | ||
109 | within such NOTICE file, excluding those notices that do not | ||
110 | pertain to any part of the Derivative Works, in at least one | ||
111 | of the following places: within a NOTICE text file distributed | ||
112 | as part of the Derivative Works; within the Source form or | ||
113 | documentation, if provided along with the Derivative Works; or, | ||
114 | within a display generated by the Derivative Works, if and | ||
115 | wherever such third-party notices normally appear. The contents | ||
116 | of the NOTICE file are for informational purposes only and | ||
117 | do not modify the License. You may add Your own attribution | ||
118 | notices within Derivative Works that You distribute, alongside | ||
119 | or as an addendum to the NOTICE text from the Work, provided | ||
120 | that such additional attribution notices cannot be construed | ||
121 | as modifying the License. | ||
122 | |||
123 | You may add Your own copyright statement to Your modifications and | ||
124 | may provide additional or different license terms and conditions | ||
125 | for use, reproduction, or distribution of Your modifications, or | ||
126 | for any such Derivative Works as a whole, provided Your use, | ||
127 | reproduction, and distribution of the Work otherwise complies with | ||
128 | the conditions stated in this License. | ||
129 | |||
130 | 5. Submission of Contributions. Unless You explicitly state otherwise, | ||
131 | any Contribution intentionally submitted for inclusion in the Work | ||
132 | by You to the Licensor shall be under the terms and conditions of | ||
133 | this License, without any additional terms or conditions. | ||
134 | Notwithstanding the above, nothing herein shall supersede or modify | ||
135 | the terms of any separate license agreement you may have executed | ||
136 | with Licensor regarding such Contributions. | ||
137 | |||
138 | 6. Trademarks. This License does not grant permission to use the trade | ||
139 | names, trademarks, service marks, or product names of the Licensor, | ||
140 | except as required for reasonable and customary use in describing the | ||
141 | origin of the Work and reproducing the content of the NOTICE file. | ||
142 | |||
143 | 7. Disclaimer of Warranty. Unless required by applicable law or | ||
144 | agreed to in writing, Licensor provides the Work (and each | ||
145 | Contributor provides its Contributions) on an "AS IS" BASIS, | ||
146 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or | ||
147 | implied, including, without limitation, any warranties or conditions | ||
148 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A | ||
149 | PARTICULAR PURPOSE. You are solely responsible for determining the | ||
150 | appropriateness of using or redistributing the Work and assume any | ||
151 | risks associated with Your exercise of permissions under this License. | ||
152 | |||
153 | 8. Limitation of Liability. In no event and under no legal theory, | ||
154 | whether in tort (including negligence), contract, or otherwise, | ||
155 | unless required by applicable law (such as deliberate and grossly | ||
156 | negligent acts) or agreed to in writing, shall any Contributor be | ||
157 | liable to You for damages, including any direct, indirect, special, | ||
158 | incidental, or consequential damages of any character arising as a | ||
159 | result of this License or out of the use or inability to use the | ||
160 | Work (including but not limited to damages for loss of goodwill, | ||
161 | work stoppage, computer failure or malfunction, or any and all | ||
162 | other commercial damages or losses), even if such Contributor | ||
163 | has been advised of the possibility of such damages. | ||
164 | |||
165 | 9. Accepting Warranty or Additional Liability. While redistributing | ||
166 | the Work or Derivative Works thereof, You may choose to offer, | ||
167 | and charge a fee for, acceptance of support, warranty, indemnity, | ||
168 | or other liability obligations and/or rights consistent with this | ||
169 | License. However, in accepting such obligations, You may act only | ||
170 | on Your own behalf and on Your sole responsibility, not on behalf | ||
171 | of any other Contributor, and only if You agree to indemnify, | ||
172 | defend, and hold each Contributor harmless for any liability | ||
173 | incurred by, or claims asserted against, such Contributor by reason | ||
174 | of your accepting any such warranty or additional liability. | ||
175 | |||
176 | END OF TERMS AND CONDITIONS | ||
177 | |||
178 | APPENDIX: How to apply the Apache License to your work. | ||
179 | |||
180 | To apply the Apache License to your work, attach the following | ||
181 | boilerplate notice, with the fields enclosed by brackets "[]" | ||
182 | replaced with your own identifying information. (Don't include | ||
183 | the brackets!) The text should be enclosed in the appropriate | ||
184 | comment syntax for the file format. We also recommend that a | ||
185 | file or class name and description of purpose be included on the | ||
186 | same "printed page" as the copyright notice for easier | ||
187 | identification within third-party archives. | ||
188 | |||
189 | Copyright [yyyy] [name of copyright owner] | ||
190 | |||
191 | Licensed under the Apache License, Version 2.0 (the "License"); | ||
192 | you may not use this file except in compliance with the License. | ||
193 | You may obtain a copy of the License at | ||
194 | |||
195 | http://www.apache.org/licenses/LICENSE-2.0 | ||
196 | |||
197 | Unless required by applicable law or agreed to in writing, software | ||
198 | distributed under the License is distributed on an "AS IS" BASIS, | ||
199 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | ||
200 | See the License for the specific language governing permissions and | ||
201 | limitations under the License. | ||
202 | |||
diff --git a/Makefile.am b/Makefile.am new file mode 100644 index 0000000..aebf68d --- /dev/null +++ b/Makefile.am | |||
@@ -0,0 +1,3 @@ | |||
1 | EXTRA_DIST = m4/outoforder.m4 m4/apache.m4 | ||
2 | |||
3 | SUBDIRS = src | ||
diff --git a/autogen.sh b/autogen.sh new file mode 100755 index 0000000..6c8e11f --- /dev/null +++ b/autogen.sh | |||
@@ -0,0 +1,10 @@ | |||
1 | #!/bin/sh | ||
2 | # autogen.sh - generates configure using the autotools | ||
3 | # $Id: autogen.sh,v 1.1 2004/03/04 08:12:13 firechipmunk Exp $ | ||
4 | libtoolize --force --copy | ||
5 | #libtoolize14 --force --copy | ||
6 | aclocal -I m4 | ||
7 | autoheader | ||
8 | automake --add-missing --copy --foreign | ||
9 | autoconf | ||
10 | rm -rf autom4te.cache | ||
diff --git a/configure.ac b/configure.ac new file mode 100644 index 0000000..0cc92c4 --- /dev/null +++ b/configure.ac | |||
@@ -0,0 +1,41 @@ | |||
1 | AC_INIT | ||
2 | OOO_CONFIG_NICE(config.nice) | ||
3 | AC_CONFIG_SRCDIR([src/mod_gnutls.c]) | ||
4 | AM_MAINTAINER_MODE | ||
5 | AC_CANONICAL_TARGET | ||
6 | AM_INIT_AUTOMAKE(mod_gnutls, 0.1.0) | ||
7 | AM_CONFIG_HEADER([include/mod_gnutls_config.h:config.in]) | ||
8 | |||
9 | |||
10 | AC_PROG_CC | ||
11 | AC_PROG_LD | ||
12 | AC_PROG_INSTALL | ||
13 | AM_PROG_LIBTOOL | ||
14 | |||
15 | |||
16 | AC_PATH_PROG(PKG_CONFIG, pkg-config, no) | ||
17 | if test "x$PKG_CONFIG" = "xno"; then | ||
18 | AC_MSG_ERROR([You need to install pkg-config]) | ||
19 | fi | ||
20 | |||
21 | PKG_PATH= | ||
22 | |||
23 | AP_VERSION=2.0.40 | ||
24 | CHECK_APACHE(,$AP_VERSION, | ||
25 | :,:, | ||
26 | AC_MSG_ERROR([*** Apache version $AP_VERSION not found!]) | ||
27 | ) | ||
28 | |||
29 | MODULE_CFLAGS="${APXS_CFLAGS} ${AP_INCLUDES} ${APR_INCLUDES} ${APU_INCLUDES}" | ||
30 | |||
31 | AC_SUBST(MODULE_CFLAGS) | ||
32 | |||
33 | AC_CONFIG_FILES([Makefile src/Makefile]) | ||
34 | AC_OUTPUT | ||
35 | |||
36 | echo "---" | ||
37 | echo "Configuration summary for mod_gnutls" | ||
38 | echo "" | ||
39 | echo " * Apache modules directory = ${AP_LIBEXECDIR}" | ||
40 | echo "" | ||
41 | echo "---" | ||
diff --git a/src/Makefile.am b/src/Makefile.am new file mode 100644 index 0000000..7a4903a --- /dev/null +++ b/src/Makefile.am | |||
@@ -0,0 +1,41 @@ | |||
1 | CLEANFILES = .libs/libmod_gnutls *~ | ||
2 | |||
3 | libmod_gnutls_la_SOURCES = mod_gnutls.c | ||
4 | libmod_gnutls_la_CFLAGS = -Wall ${MODULE_CFLAGS} | ||
5 | libmod_gnutls_la_LDFLAGS = | ||
6 | |||
7 | lib_LTLIBRARIES = libmod_gnutls.la | ||
8 | |||
9 | make_so: $(lib_LTLIBRARIES) | ||
10 | @if test ! -L mod_gnutls.so ; then ln -s .libs/libmod_gnutls.so mod_gnutls.so ; fi | ||
11 | |||
12 | clean: | ||
13 | rm -f mod_gnutls.so | ||
14 | rm -f *.o *.lo *.la | ||
15 | rm -fr .libs | ||
16 | |||
17 | install: make_so | ||
18 | @${APXS_BIN} -i -n svn_view mod_gnutls.so | ||
19 | @echo "" | ||
20 | @echo "" | ||
21 | @echo "***********************************************" | ||
22 | @echo "" | ||
23 | @echo " Please read the documentation at " | ||
24 | @echo " http://www.outoforder.cc/ for " | ||
25 | @echo " details on configuration of this module " | ||
26 | @echo "" | ||
27 | @echo "***********************************************" | ||
28 | @echo "" | ||
29 | |||
30 | activate: make_so | ||
31 | @${APXS_BIN} -i -a -n svn_view mod_gnutls.so | ||
32 | @echo "" | ||
33 | @echo "" | ||
34 | @echo "***********************************************" | ||
35 | @echo "" | ||
36 | @echo " Please read the documentation at " | ||
37 | @echo " http://www.outoforder.cc/ for " | ||
38 | @echo " details on configuration of this module " | ||
39 | @echo "" | ||
40 | @echo "***********************************************" | ||
41 | @echo "" | ||
diff --git a/src/mod_gnutls.c b/src/mod_gnutls.c new file mode 100644 index 0000000..bf0d9c3 --- /dev/null +++ b/src/mod_gnutls.c | |||
@@ -0,0 +1,465 @@ | |||
1 | /* ==================================================================== | ||
2 | * Copyright 2004 Paul Querna | ||
3 | * | ||
4 | * Licensed under the Apache License, Version 2.0 (the "License"); | ||
5 | * you may not use this file except in compliance with the License. | ||
6 | * You may obtain a copy of the License at | ||
7 | * | ||
8 | * http://www.apache.org/licenses/LICENSE-2.0 | ||
9 | * | ||
10 | * Unless required by applicable law or agreed to in writing, software | ||
11 | * distributed under the License is distributed on an "AS IS" BASIS, | ||
12 | * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | ||
13 | * See the License for the specific language governing permissions and | ||
14 | * limitations under the License. | ||
15 | * | ||
16 | */ | ||
17 | |||
18 | #include "httpd.h" | ||
19 | #include "http_config.h" | ||
20 | #include "http_protocol.h" | ||
21 | #include "http_connection.h" | ||
22 | #include "http_core.h" | ||
23 | #include "http_log.h" | ||
24 | #include "apr_buckets.h" | ||
25 | #include "apr_strings.h" | ||
26 | #include "apr_tables.h" | ||
27 | |||
28 | #include <gcrypt.h> | ||
29 | #include <gnutls/gnutls.h> | ||
30 | |||
31 | #if APR_HAS_THREADS | ||
32 | GCRY_THREAD_OPTION_PTHREAD_IMPL; | ||
33 | #endif | ||
34 | |||
35 | module AP_MODULE_DECLARE_DATA gnutls_module; | ||
36 | |||
37 | #define GNUTLS_OUTPUT_FILTER_NAME "GnuTLS Output Filter" | ||
38 | #define GNUTLS_INPUT_FILTER_NAME "GnuTLS Input Filter" | ||
39 | |||
40 | #define GNUTLS_ENABLED_FALSE 0 | ||
41 | #define GNUTLS_ENABLED_TRUE 1 | ||
42 | |||
43 | |||
44 | typedef struct gnutls_srvconf_t gnutls_srvconf_t; | ||
45 | struct gnutls_srvconf_t | ||
46 | { | ||
47 | gnutls_certificate_credentials_t certs; | ||
48 | char *key_file; | ||
49 | char *cert_file; | ||
50 | int enabled; | ||
51 | }; | ||
52 | |||
53 | typedef struct gnutls_handle_t gnutls_handle_t; | ||
54 | struct gnutls_handle_t | ||
55 | { | ||
56 | gnutls_srvconf_t *sc; | ||
57 | gnutls_session_t session; | ||
58 | ap_filter_t *input_filter; | ||
59 | apr_bucket_brigade *input_bb; | ||
60 | apr_read_type_e input_block; | ||
61 | }; | ||
62 | |||
63 | static apr_status_t gnutls_filter_input(ap_filter_t * f, | ||
64 | apr_bucket_brigade * bb, | ||
65 | ap_input_mode_t mode, | ||
66 | apr_read_type_e block, | ||
67 | apr_off_t readbytes) | ||
68 | { | ||
69 | apr_status_t status = APR_SUCCESS; | ||
70 | gnutls_handle_t *ctxt = (gnutls_handle_t *) f->ctx; | ||
71 | |||
72 | if (f->c->aborted) { | ||
73 | apr_bucket *bucket = apr_bucket_eos_create(f->c->bucket_alloc); | ||
74 | APR_BRIGADE_INSERT_TAIL(bb, bucket); | ||
75 | return APR_ECONNABORTED; | ||
76 | } | ||
77 | |||
78 | return status; | ||
79 | } | ||
80 | |||
81 | static apr_status_t gnutls_filter_output(ap_filter_t * f, | ||
82 | apr_bucket_brigade * bb) | ||
83 | { | ||
84 | apr_bucket *b; | ||
85 | const char *buf = 0; | ||
86 | apr_size_t bytes = 0; | ||
87 | gnutls_handle_t *ctxt = (gnutls_handle_t *) f->ctx; | ||
88 | apr_status_t status = APR_SUCCESS; | ||
89 | |||
90 | if (!ctxt) { | ||
91 | /* first run. */ | ||
92 | } | ||
93 | |||
94 | for (b = APR_BRIGADE_FIRST(bb); | ||
95 | b != APR_BRIGADE_SENTINEL(bb); b = APR_BUCKET_NEXT(b)) { | ||
96 | if (APR_BUCKET_IS_EOS(b)) { | ||
97 | /* end of connection */ | ||
98 | } | ||
99 | else if (apr_bucket_read(b, &buf, &bytes, APR_BLOCK_READ) | ||
100 | == APR_SUCCESS) { | ||
101 | /* more data */ | ||
102 | } | ||
103 | } | ||
104 | |||
105 | return status; | ||
106 | } | ||
107 | |||
108 | static apr_status_t gnutls_cleanup_pre_config(void *data) | ||
109 | { | ||
110 | gnutls_global_deinit(); | ||
111 | return APR_SUCCESS; | ||
112 | } | ||
113 | |||
114 | static int gnutls_hook_pre_config(apr_pool_t * pconf, | ||
115 | apr_pool_t * plog, apr_pool_t * ptemp) | ||
116 | { | ||
117 | |||
118 | #if APR_HAS_THREADS | ||
119 | gcry_control(GCRYCTL_SET_THREAD_CBS, &gcry_threads_pthread); | ||
120 | #endif | ||
121 | |||
122 | gnutls_global_init(); | ||
123 | |||
124 | apr_pool_cleanup_register(pconf, NULL, gnutls_cleanup_pre_config, | ||
125 | apr_pool_cleanup_null); | ||
126 | |||
127 | return OK; | ||
128 | } | ||
129 | |||
130 | #define DH_BITS 1024 | ||
131 | #define RSA_BITS 512 | ||
132 | |||
133 | static int gnutls_hook_post_config(apr_pool_t * p, apr_pool_t * plog, | ||
134 | apr_pool_t * ptemp, | ||
135 | server_rec * base_server) | ||
136 | { | ||
137 | gnutls_srvconf_t *sc; | ||
138 | server_rec *s; | ||
139 | gnutls_dh_params_t dh_params; | ||
140 | gnutls_rsa_params_t rsa_params; | ||
141 | |||
142 | |||
143 | /* TODO: Should we regenerate these after X requests / X time ? */ | ||
144 | gnutls_dh_params_init(&dh_params); | ||
145 | gnutls_dh_params_generate2(dh_params, DH_BITS); | ||
146 | gnutls_rsa_params_init(&rsa_params); | ||
147 | gnutls_rsa_params_generate2(rsa_params, RSA_BITS); | ||
148 | |||
149 | for (s = base_server; s; s = s->next) { | ||
150 | sc = (gnutls_srvconf_t *) ap_get_module_config(s->module_config, | ||
151 | &gnutls_module); | ||
152 | if (sc->cert_file != NULL && sc->key_file != NULL) { | ||
153 | gnutls_certificate_set_x509_key_file(sc->certs, sc->cert_file, | ||
154 | sc->key_file, | ||
155 | GNUTLS_X509_FMT_PEM); | ||
156 | } | ||
157 | else { | ||
158 | ap_log_error(APLOG_MARK, APLOG_EMERG, 0, s, | ||
159 | "[GnuTLS] - Host '%s' is missing a Cert and Key File!", | ||
160 | s->server_hostname); | ||
161 | } | ||
162 | |||
163 | /** | ||
164 | * TODO: Is it okay for all virtual hosts to | ||
165 | * share the same DH/RSAparams? | ||
166 | */ | ||
167 | gnutls_certificate_set_dh_params(sc->certs, dh_params); | ||
168 | gnutls_certificate_set_rsa_export_params(sc->certs, rsa_params); | ||
169 | } | ||
170 | |||
171 | ap_add_version_component(p, "GnuTLS/" LIBGNUTLS_VERSION); | ||
172 | return OK; | ||
173 | } | ||
174 | |||
175 | static const char *gnutls_hook_http_method(const request_rec * r) | ||
176 | { | ||
177 | gnutls_srvconf_t *sc = | ||
178 | (gnutls_srvconf_t *) ap_get_module_config(r->server->module_config, | ||
179 | &gnutls_module); | ||
180 | |||
181 | if (sc->enabled == GNUTLS_ENABLED_FALSE) { | ||
182 | return NULL; | ||
183 | } | ||
184 | |||
185 | return "https"; | ||
186 | } | ||
187 | |||
188 | static apr_port_t gnutls_hook_default_port(const request_rec * r) | ||
189 | { | ||
190 | gnutls_srvconf_t *sc = | ||
191 | (gnutls_srvconf_t *) ap_get_module_config(r->server->module_config, | ||
192 | &gnutls_module); | ||
193 | |||
194 | if (sc->enabled == GNUTLS_ENABLED_FALSE) { | ||
195 | return 0; | ||
196 | } | ||
197 | |||
198 | return 443; | ||
199 | } | ||
200 | |||
201 | /** | ||
202 | * From mod_ssl / ssl_engine_io.c | ||
203 | * This function will read from a brigade and discard the read buckets as it | ||
204 | * proceeds. It will read at most *len bytes. | ||
205 | */ | ||
206 | static apr_status_t brigade_consume(apr_bucket_brigade * bb, | ||
207 | apr_read_type_e block, | ||
208 | char *c, apr_size_t * len) | ||
209 | { | ||
210 | apr_size_t actual = 0; | ||
211 | apr_status_t status = APR_SUCCESS; | ||
212 | |||
213 | while (!APR_BRIGADE_EMPTY(bb)) { | ||
214 | apr_bucket *b = APR_BRIGADE_FIRST(bb); | ||
215 | const char *str; | ||
216 | apr_size_t str_len; | ||
217 | apr_size_t consume; | ||
218 | |||
219 | /* Justin points out this is an http-ism that might | ||
220 | * not fit if brigade_consume is added to APR. Perhaps | ||
221 | * apr_bucket_read(eos_bucket) should return APR_EOF? | ||
222 | * Then this becomes mainline instead of a one-off. | ||
223 | */ | ||
224 | if (APR_BUCKET_IS_EOS(b)) { | ||
225 | status = APR_EOF; | ||
226 | break; | ||
227 | } | ||
228 | |||
229 | /* The reason I'm not offering brigade_consume yet | ||
230 | * across to apr-util is that the following call | ||
231 | * illustrates how borked that API really is. For | ||
232 | * this sort of case (caller provided buffer) it | ||
233 | * would be much more trivial for apr_bucket_consume | ||
234 | * to do all the work that follows, based on the | ||
235 | * particular characteristics of the bucket we are | ||
236 | * consuming here. | ||
237 | */ | ||
238 | status = apr_bucket_read(b, &str, &str_len, block); | ||
239 | |||
240 | if (status != APR_SUCCESS) { | ||
241 | if (APR_STATUS_IS_EOF(status)) { | ||
242 | /* This stream bucket was consumed */ | ||
243 | apr_bucket_delete(b); | ||
244 | continue; | ||
245 | } | ||
246 | break; | ||
247 | } | ||
248 | |||
249 | if (str_len > 0) { | ||
250 | /* Do not block once some data has been consumed */ | ||
251 | block = APR_NONBLOCK_READ; | ||
252 | |||
253 | /* Assure we don't overflow. */ | ||
254 | consume = (str_len + actual > *len) ? *len - actual : str_len; | ||
255 | |||
256 | memcpy(c, str, consume); | ||
257 | |||
258 | c += consume; | ||
259 | actual += consume; | ||
260 | |||
261 | if (consume >= b->length) { | ||
262 | /* This physical bucket was consumed */ | ||
263 | apr_bucket_delete(b); | ||
264 | } | ||
265 | else { | ||
266 | /* Only part of this physical bucket was consumed */ | ||
267 | b->start += consume; | ||
268 | b->length -= consume; | ||
269 | } | ||
270 | } | ||
271 | else if (b->length == 0) { | ||
272 | apr_bucket_delete(b); | ||
273 | } | ||
274 | |||
275 | /* This could probably be actual == *len, but be safe from stray | ||
276 | * photons. */ | ||
277 | if (actual >= *len) { | ||
278 | break; | ||
279 | } | ||
280 | } | ||
281 | |||
282 | *len = actual; | ||
283 | return status; | ||
284 | } | ||
285 | |||
286 | |||
287 | static ssize_t gnutls_transport_read(gnutls_transport_ptr_t ptr, | ||
288 | void *buffer, size_t len) | ||
289 | { | ||
290 | gnutls_handle_t *ctxt = ptr; | ||
291 | apr_status_t rc; | ||
292 | apr_size_t in = len; | ||
293 | /* If Len = 0, we don't do anything. */ | ||
294 | if (!len) | ||
295 | return 0; | ||
296 | |||
297 | if (APR_BRIGADE_EMPTY(ctxt->input_bb)) { | ||
298 | |||
299 | rc = ap_get_brigade(ctxt->input_filter->next, ctxt->input_bb, | ||
300 | AP_MODE_READBYTES, ctxt->input_block, in); | ||
301 | |||
302 | /* Not a problem, there was simply no data ready yet. | ||
303 | */ | ||
304 | if (APR_STATUS_IS_EAGAIN(rc) || APR_STATUS_IS_EINTR(rc) | ||
305 | || (rc == APR_SUCCESS && APR_BRIGADE_EMPTY(ctxt->input_bb))) { | ||
306 | return 0; | ||
307 | } | ||
308 | |||
309 | if (rc != APR_SUCCESS) { | ||
310 | /* Unexpected errors discard the brigade */ | ||
311 | apr_brigade_cleanup(ctxt->input_bb); | ||
312 | ctxt->input_bb = NULL; | ||
313 | return -1; | ||
314 | } | ||
315 | } | ||
316 | |||
317 | // brigade_consume(ctxt->input_bb, ctxt->input_block, buffer, &len); | ||
318 | |||
319 | |||
320 | ap_get_brigade(ctxt->input_filter->next, ctxt->input_bb, | ||
321 | AP_MODE_READBYTES, ctxt->input_block, len); | ||
322 | |||
323 | return len; | ||
324 | } | ||
325 | |||
326 | static ssize_t gnutls_transport_write(gnutls_transport_ptr_t ptr, | ||
327 | const void *buffer, size_t len) | ||
328 | { | ||
329 | gnutls_handle_t *ctxt = ptr; | ||
330 | |||
331 | // apr_bucket *bucket = apr_bucket_transient_create(in, inl, | ||
332 | // outctx->bb-> | ||
333 | // bucket_alloc); | ||
334 | |||
335 | // outctx->length += inl; | ||
336 | //APR_BRIGADE_INSERT_TAIL(outctx->bb, bucket); | ||
337 | return 0; | ||
338 | } | ||
339 | |||
340 | static int gnutls_hook_pre_connection(conn_rec * c, void *csd) | ||
341 | { | ||
342 | #ifndef GNUTLS_AS_FILTER | ||
343 | int cfd; | ||
344 | #endif | ||
345 | gnutls_handle_t *ctxt; | ||
346 | gnutls_srvconf_t *sc = | ||
347 | (gnutls_srvconf_t *) ap_get_module_config(c->base_server-> | ||
348 | module_config, | ||
349 | &gnutls_module); | ||
350 | |||
351 | if (!(sc && (sc->enabled == GNUTLS_ENABLED_TRUE))) { | ||
352 | return DECLINED; | ||
353 | } | ||
354 | |||
355 | ctxt = apr_pcalloc(c->pool, sizeof(*ctxt)); | ||
356 | |||
357 | ctxt->sc = sc; | ||
358 | gnutls_init(&ctxt->session, GNUTLS_SERVER); | ||
359 | |||
360 | gnutls_set_default_priority(ctxt->session); | ||
361 | |||
362 | gnutls_credentials_set(ctxt->session, GNUTLS_CRD_CERTIFICATE, sc->certs); | ||
363 | |||
364 | gnutls_certificate_server_set_request(ctxt->session, GNUTLS_CERT_REQUEST); | ||
365 | |||
366 | gnutls_dh_set_prime_bits(ctxt->session, DH_BITS); | ||
367 | |||
368 | ap_set_module_config(c->conn_config, &gnutls_module, ctxt); | ||
369 | |||
370 | #ifdef GNUTLS_AS_FILTER | ||
371 | gnutls_transport_set_pull_function(ctxt->session, gnutls_transport_read); | ||
372 | gnutls_transport_set_push_function(ctxt->session, gnutls_transport_write); | ||
373 | gnutls_transport_set_ptr(ctxt->session, ctxt); | ||
374 | |||
375 | ap_add_input_filter(GNUTLS_INPUT_FILTER_NAME, ctxt, NULL, c); | ||
376 | ap_add_output_filter(GNUTLS_OUTPUT_FILTER_NAME, ctxt, NULL, c); | ||
377 | #else | ||
378 | apr_os_sock_get(&cfd, csd); | ||
379 | gnutls_transport_set_ptr(ctxt->session, (gnutls_transport_ptr)cfd); | ||
380 | #endif | ||
381 | return OK; | ||
382 | } | ||
383 | |||
384 | static const char *gnutls_set_ca_file(cmd_parms * parms, void *dummy, | ||
385 | const char *arg) | ||
386 | { | ||
387 | gnutls_srvconf_t *sc = | ||
388 | (gnutls_srvconf_t *) ap_get_module_config(parms->server-> | ||
389 | module_config, | ||
390 | &gnutls_module); | ||
391 | /* TODO: CRL, CAFile */ | ||
392 | // gnutls_certificate_set_x509_trust_file(sc->certs, CAFILE, | ||
393 | // GNUTLS_X509_FMT_PEM); | ||
394 | return NULL; | ||
395 | } | ||
396 | |||
397 | static const command_rec gnutls_cmds[] = { | ||
398 | AP_INIT_FLAG("GnuTLSEnable", ap_set_flag_slot, | ||
399 | (void *) APR_OFFSETOF(gnutls_srvconf_t, enabled), RSRC_CONF, | ||
400 | "Whether this server has GnuTLS Enabled. Default: Off"), | ||
401 | AP_INIT_TAKE1("GnuTLSCertificateFile", ap_set_string_slot, | ||
402 | (void *) APR_OFFSETOF(gnutls_srvconf_t, cert_file), | ||
403 | RSRC_CONF, | ||
404 | "SSL Server Key file"), | ||
405 | AP_INIT_TAKE1("GnuTLSKeyFile", ap_set_string_slot, | ||
406 | (void *) APR_OFFSETOF(gnutls_srvconf_t, key_file), | ||
407 | RSRC_CONF, | ||
408 | "SSL Server Certificate file"), | ||
409 | {NULL} | ||
410 | }; | ||
411 | |||
412 | /* TODO: CACertificateFile & Client Authentication | ||
413 | * AP_INIT_TAKE1("GnuTLSCACertificateFile", ap_set_server_string_slot, | ||
414 | * (void *) APR_OFFSETOF(gnutls_srvconf_t, key_file), NULL, | ||
415 | * RSRC_CONF, | ||
416 | * "CA"), | ||
417 | */ | ||
418 | |||
419 | static void gnutls_hooks(apr_pool_t * p) | ||
420 | { | ||
421 | ap_hook_pre_connection(gnutls_hook_pre_connection, NULL, NULL, | ||
422 | APR_HOOK_MIDDLE); | ||
423 | ap_hook_post_config(gnutls_hook_post_config, NULL, NULL, APR_HOOK_MIDDLE); | ||
424 | ap_hook_http_method(gnutls_hook_http_method, NULL, NULL, APR_HOOK_MIDDLE); | ||
425 | ap_hook_default_port(gnutls_hook_default_port, NULL, NULL, | ||
426 | APR_HOOK_MIDDLE); | ||
427 | ap_hook_pre_config(gnutls_hook_pre_config, NULL, NULL, APR_HOOK_MIDDLE); | ||
428 | |||
429 | /* TODO: HTTP Upgrade Filter */ | ||
430 | /* ap_register_output_filter ("UPGRADE_FILTER", | ||
431 | * ssl_io_filter_Upgrade, NULL, AP_FTYPE_PROTOCOL + 5); | ||
432 | */ | ||
433 | |||
434 | ap_register_input_filter(GNUTLS_INPUT_FILTER_NAME, gnutls_filter_input, | ||
435 | NULL, AP_FTYPE_CONNECTION + 5); | ||
436 | ap_register_output_filter(GNUTLS_OUTPUT_FILTER_NAME, gnutls_filter_output, | ||
437 | NULL, AP_FTYPE_CONNECTION + 5); | ||
438 | |||
439 | } | ||
440 | |||
441 | static void *gnutls_config_server_create(apr_pool_t * p, server_rec * s) | ||
442 | { | ||
443 | gnutls_srvconf_t *sc = apr_pcalloc(p, sizeof *sc); | ||
444 | |||
445 | sc->enabled = GNUTLS_ENABLED_FALSE; | ||
446 | |||
447 | gnutls_certificate_allocate_credentials(&sc->certs); | ||
448 | |||
449 | sc->key_file = NULL; | ||
450 | sc->cert_file = NULL; | ||
451 | return sc; | ||
452 | } | ||
453 | |||
454 | |||
455 | |||
456 | module AP_MODULE_DECLARE_DATA gnutls_module = { | ||
457 | STANDARD20_MODULE_STUFF, | ||
458 | NULL, | ||
459 | NULL, | ||
460 | gnutls_config_server_create, | ||
461 | NULL, | ||
462 | /* gnutls_config_server_merge, */ | ||
463 | gnutls_cmds, | ||
464 | gnutls_hooks | ||
465 | }; | ||