Add unit test for AggregateException.GetBaseException that works on .net but is broke...
[mono.git] / mcs / class / Mono.Security / Mono.Security.Protocol.Tls / ServerContext.cs
1 // Transport Security Layer (TLS)
2 // Copyright (c) 2003-2004 Carlos Guzman Alvarez
3
4 //
5 // Permission is hereby granted, free of charge, to any person obtaining
6 // a copy of this software and associated documentation files (the
7 // "Software"), to deal in the Software without restriction, including
8 // without limitation the rights to use, copy, modify, merge, publish,
9 // distribute, sublicense, and/or sell copies of the Software, and to
10 // permit persons to whom the Software is furnished to do so, subject to
11 // the following conditions:
12 // 
13 // The above copyright notice and this permission notice shall be
14 // included in all copies or substantial portions of the Software.
15 // 
16 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
20 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
21 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
22 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 //
24
25 using System;
26 using System.Collections;
27 using System.Security.Cryptography;
28 using System.Security.Cryptography.X509Certificates;
29
30 using Mono.Security.Protocol.Tls.Handshake;
31 using MonoX509 = Mono.Security.X509;
32
33 namespace Mono.Security.Protocol.Tls
34 {
35         internal class ServerContext : Context
36         {
37                 #region Fields
38
39                 private SslServerStream sslStream;
40                 private bool request_client_certificate;
41                 private bool                    clientCertificateRequired;
42
43                 #endregion
44
45                 #region Properties
46
47                 public SslServerStream SslStream
48                 {
49                         get { return this.sslStream; }
50                 }
51
52                 public bool     ClientCertificateRequired
53                 {
54                         get { return this.clientCertificateRequired; }
55                 }
56
57                 public bool RequestClientCertificate {
58                         get { return request_client_certificate; }
59                 }
60
61                 #endregion
62
63                 #region Constructors
64
65                 public ServerContext(
66                         SslServerStream                 stream,
67                         SecurityProtocolType    securityProtocolType,
68                         X509Certificate                 serverCertificate,
69                         bool                                    clientCertificateRequired,
70                         bool                                    requestClientCertificate)
71                         : base(securityProtocolType)
72                 {
73                         this.sslStream                                  = stream;
74                         this.clientCertificateRequired  = clientCertificateRequired;
75                         this.request_client_certificate = requestClientCertificate;
76
77                         // Convert the System.Security cert to a Mono Cert
78                         MonoX509.X509Certificate cert = new MonoX509.X509Certificate(serverCertificate.GetRawCertData());
79
80                         // Add server certificate to the certificate collection
81                         this.ServerSettings.Certificates = new MonoX509.X509CertificateCollection();
82                         this.ServerSettings.Certificates.Add(cert);
83
84                         this.ServerSettings.UpdateCertificateRSA();
85
86                         // Add requested certificate types
87                         this.ServerSettings.CertificateTypes = new ClientCertificateType[1];
88                         this.ServerSettings.CertificateTypes[0] = ClientCertificateType.RSA;
89
90                         // Add certificate authorities
91                         MonoX509.X509CertificateCollection trusted = MonoX509.X509StoreManager.TrustedRootCertificates;
92                         string[] list = new string [trusted.Count];
93                         int i = 0;
94                         foreach (MonoX509.X509Certificate root in trusted)
95                         {
96                                 list [i++] = root.IssuerName;
97                         }
98                         this.ServerSettings.DistinguisedNames = list;
99                 }
100
101                 #endregion
102         }
103 }