bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#34134: 27.0.50; process-contact for accepted sockets broken


From: Mathew Handugan
Subject: bug#34134: 27.0.50; process-contact for accepted sockets broken
Date: Fri, 18 Jan 2019 22:52:41 -0800

Git commit be9e60fc3c43cc49cc5d749924c3e96737ae297c  causes accepted sockets to store 't as :host instead of the string-formatted peer IP address.

This manifests as
 (process-contact proc)
returning something like
 (t 55269)

instead of the expected:
 ("192.168.2.13" 55269)

my clumsy attempt at a simple example:

(defun echo-server-filter (proc string) (print (format "%s %s" (process-contact proc) string)))
(progn
  (setq echo-server-port 10000)
  (make-network-process :name "echo-server" :family 'ipv4 :service echo-server-port :filter 'echo-server-filter :sentinel 'echo-server-filter :server 't)
  (let ((client-process (open-network-stream "echo-client"
                             "*echo-client*" "localhost" echo-server-port)))
    (process-send-string client-process "hello world\n")
    (sleep-for 1)
    (delete-process client-process))
  (delete-process "echo-server")
  )



reply via email to

[Prev in Thread] Current Thread [Next in Thread]