-
Notifications
You must be signed in to change notification settings - Fork 125
/
ocaml-ssl_0001-Drop-SSLv2-support.patch
83 lines (76 loc) · 1.9 KB
/
ocaml-ssl_0001-Drop-SSLv2-support.patch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
From: Stephane Glondu <steph@glondu.net>
Date: Mon, 11 Apr 2011 23:01:54 +0200
Subject: Drop SSLv2 support
Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=622144
Signed-off-by: Stephane Glondu <steph@glondu.net>
---
src/ssl.ml | 1 -
src/ssl.mli | 1 -
src/ssl_stubs.c | 21 ++-------------------
3 files changed, 2 insertions(+), 21 deletions(-)
diff --git a/src/ssl.ml b/src/ssl.ml
index ff4b2af..dc2e790 100644
--- a/src/ssl.ml
+++ b/src/ssl.ml
@@ -21,7 +21,6 @@
(* $Id: ssl.ml 7933 2010-11-09 17:38:05Z smimram $ *)
type protocol =
- | SSLv2
| SSLv23
| SSLv3
| TLSv1
diff --git a/src/ssl.mli b/src/ssl.mli
index 2596f3c..354c9af 100644
--- a/src/ssl.mli
+++ b/src/ssl.mli
@@ -125,7 +125,6 @@ val get_error_string : unit -> string
(** Protocol used by SSL. *)
type protocol =
- | SSLv2 (** SSL v2 protocol *)
| SSLv23 (** SSL v3 protocol but can rollback to v2 *)
| SSLv3 (** SSL v3 protocol *)
| TLSv1 (** TLS v1 protocol *)
diff --git a/src/ssl_stubs.c b/src/ssl_stubs.c
index f4c8206..afc1e7f 100644
--- a/src/ssl_stubs.c
+++ b/src/ssl_stubs.c
@@ -193,23 +193,6 @@ static SSL_METHOD *get_method(int protocol, int type)
switch (type)
{
case 0:
- method = SSLv2_client_method();
- break;
-
- case 1:
- method = SSLv2_server_method();
- break;
-
- case 2:
- method = SSLv2_method();
- break;
- }
- break;
-
- case 1:
- switch (type)
- {
- case 0:
method = SSLv23_client_method();
break;
@@ -223,7 +206,7 @@ static SSL_METHOD *get_method(int protocol, int type)
}
break;
- case 2:
+ case 1:
switch (type)
{
case 0:
@@ -240,7 +223,7 @@ static SSL_METHOD *get_method(int protocol, int type)
}
break;
- case 3:
+ case 2:
switch (type)
{
case 0:
--