[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
last (?) question on X-server
Date: Thu, 19 Sep 1991 18:13 EDT
From: firstname.lastname@example.org (David R. Strip)
So I got the server loaded, I added x-window-system to the namespace,
(undocumented), I created the rgb.text file (also undocumented), now
when I try something simple like xclock from a client host, I get
connection refused. I can't seem to find docs on where the
authorized host list lives. I though I remembered that it was somehow
related to the net mask, implying that if ftp worked from a host (for
example), then X would also. Well, ftp works from the client host I
was running xclock on. The server host name was correct on the client.
So, once again I turn to you for help. What am I missing this time.
Hope this is it. Hate to keep bugging everyone.
You're not missing anything, Symbolics completely screwed up on this
In Genera 8.0 the X server used the SECURE-SUBNETS list in the namespace
to authorize clients. The Genera 8.1 X server uses the authorized host
list, just like most other X servers. The default is to allow access
only from the local host. Unfortunately, Symbolics forgot to include a
user interface to updating this list!
Here's the code I wrote. It implements the "Enable X Client Host" and
"Disable X Client Host" commands in a Lisp Listener, and "Enable Client
Host" and "Disable Client Hosts" in the X Server activity.
;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-
;;; *********************** CHANGE LOG *******************
;;; 4/20/90 17:44:55 Barmar: Created.
;;; 6/16/91 19:12:10 Barmar: Deleted advice on x-server:|AddHost| and x-server:|RemoveHost|.
;;; 6/16/91 20:12:37 Barmar: Added com-enable-x-client-host and
#| *************** END OF CHANGE LOG ***************|#
;;; Lispm equivalents to the Unix xhost command. Currently only operates on the
;;; local host (accesses the underlying representation, rather than using the X
(setf (gethash host (x-server-lisp::x-server-authorized-hosts
(cp:install-command 'x-server-lisp::x-server-program 'com-enable-x-client-host "Enable Client Host")
(remhash hostname (x-server-lisp::x-server-authorized-hosts
(cp:install-command 'x-server-lisp::x-server-program 'com-disable-x-client-host "Disable Client Host")
;;; You may or may not want the following. It causes all authorized
;;; hosts to be considered "very authorized", which allows them to
;;; update the authorized host list (e.g. using "xhost"). Normally,
;;; only the local host is very authorized.
:around all-hosts-very-authorized nil