42 lines
817 B
Plaintext
42 lines
817 B
Plaintext
note
|
|
description: "[
|
|
SSL enabled server
|
|
]"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
HTTPD_SERVER
|
|
|
|
inherit
|
|
HTTPD_SERVER_I
|
|
redefine
|
|
new_listening_socket
|
|
end
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Factory
|
|
|
|
new_listening_socket (a_addr: detachable INET_ADDRESS; a_http_port: INTEGER): HTTPD_STREAM_SOCKET
|
|
local
|
|
s_ssl: HTTPD_STREAM_SSL_SOCKET
|
|
do
|
|
if configuration.is_secure then
|
|
if a_addr /= Void then
|
|
create s_ssl.make_server_by_address_and_port (a_addr, a_http_port)
|
|
Result := s_ssl
|
|
else
|
|
create s_ssl.make_server_by_port (a_http_port)
|
|
end
|
|
s_ssl.set_tls_protocol (configuration.ssl_protocol)
|
|
s_ssl.set_certificate_filenames (configuration.ca_crt, configuration.ca_key)
|
|
Result := s_ssl
|
|
else
|
|
Result := Precursor (a_addr, a_http_port)
|
|
end
|
|
end
|
|
|
|
end
|