Re: [Demexp-dev] Issue to open an RPC TCP connection on the Internet

[David MENTRE]

David MENTRE <address@hidden> writes:

> Or would this "Connection refused" message be related to another issue?
> Any hint?

Ok, googling on it shows that the answer comes the server. 

I think I use very usual code to setup the server socket:


let setup_server_socket () =
  log "server: opening main socket (%s:%d)" !flag_address !flag_port;
  let main_socket = socket ~domain:PF_INET ~kind:SOCK_STREAM ~protocol:0 in
  setsockopt main_socket SO_REUSEADDR true;
  try
    let host_entry = gethostbyname !flag_address in
    if Array.length host_entry.h_addr_list > 0 then (
      bind main_socket ~addr:(ADDR_INET(host_entry.h_addr_list.(0),
                                        !flag_port));
      listen main_socket ~max:Config.server_max_clients;
      main_socket
    ) else (
      printf "error: found no entry for address: \"%s\"\n"
        !flag_address;
      exit 1
     )
  with Not_found ->
    printf "error: found no entry for address: \"%s\"\n"
      !flag_address;
    exit 1


  let socket = setup_server_socket () in
  let esys = Unixqueue.create_unix_event_system () in
  let server = Messages_srv.Demexp.V1.create_server
      ~limit:Config.server_max_clients
      ~proc_login:Work.login
      ~proc_goodbye:Work.goodbye
   [...]
      (Rpc_server.Descriptor socket)
      Rpc.Tcp
      Rpc.Socket
      esys in
  Rpc_server.set_session_filter 
    server 
    (fun _ -> 
      (`Accept_limit_length(Config.maximum_message_size, `Deny)));


I have:

 Config.server_max_clients=100
 Config.maximum_message_size=5 * 1024 * 1024 (* bytes *)

I really don't understand what is going wrong.


Best wishes,
d.
-- 
pub  1024D/A3AD7A2A 2004-10-03 David MENTRE <address@hidden>
 5996 CC46 4612 9CA4 3562  D7AC 6C67 9E96 A3AD 7A2A