fixup

Readme.org

@@ -11,16 +11,16 @@ It's written in [[https://julialang.org/][Julia]].
 The usage is quite simple and similar to [[https://github.com/JuliaWeb/HTTP.jl][HTTP.jl]]
 
 First, import the library
-#+begin_src julia
+#+begin_src julia :tangle server.jl
 using Gemenon
 #+end_src
 
 Then, setup the SSL config
-#+begin_src julia
+#+begin_src julia :tangle server.jl
   const verify_callback(preverify_ok, x509_ctx)::Cint = 1
 
   function init_ssl_context()
-      ctx = Gemenon.OpenSSL.SSLContext()
+      ctx = Gemenon.OpenSSL.SSLContext(mode = Gemenon.OpenSSL.ServerMode)
       Gemenon.OpenSSL.ca_chain!(ctx, "./cert.crt", "./key.key")
 
       Gemenon.OpenSSL.set_options!(ctx, Gemenon.OpenSSL.SSL_OP_NO_SSLv3)
@@ -36,7 +36,7 @@ Then, setup the SSL config
 You are ready to listen for connections!
 You can do this like in Mux.jl
 
-#+begin_src julia
+#+begin_src julia :tangle server.jl
   @app test = (
       req -> document(req.conn, """
   # Welcome to Gemenon!
@@ -45,5 +45,5 @@ You can do this like in Mux.jl
   => gemini://nixo.xyz/ The Gemenon-Powered Anonymous Board
   """))
 
-  serve(test, init_ssl_context, Gemenon.Sockets.ip"0.0.0.0", 1999)
+  serve(test, init_ssl_context, Gemenon.Sockets.ip"0.0.0.0", 1965)
 #+end_src

src/client.jl

@@ -1,5 +1,6 @@
 import Base.get
-function get(request::Request; certs::Union{CAChain,Nothing} = nothing)
+function get(request::Request; certs::Union{CAChain,Nothing} = nothing,
+             sni = true)
     req = string(request)
     let len = sizeof(req)
         if len > 1024
@@ -15,6 +16,8 @@ function get(request::Request; certs::Union{CAChain,Nothing} = nothing)
     io = Sockets.connect(request.host, request.port)
 
     client = SSLClient(ctx, io)
+    sni && @show OpenSSL.set_host_name(client, request.host)
+
     OpenSSL.do_ssl_handshake(client)
     
     while true

src/types.jl

@@ -84,6 +84,8 @@ function Request(protocol, host, port, path, query)
         path, query, true, "")
 end
 
+unescape(::Nothing) = ""
+
 "unescape(percent_encoded_uri)::String
 
 Replace %xx escaped chars with their single-character equivalent.