Revision: 4220 Author: edi URL: http://bknr.net/trac/changeset/4220

Remove setuid/setgid stuff

U trunk/thirdparty/hunchentoot/server.lisp

Modified: trunk/thirdparty/hunchentoot/server.lisp =================================================================== --- trunk/thirdparty/hunchentoot/server.lisp 2009-02-10 10:30:10 UTC (rev 4219) +++ trunk/thirdparty/hunchentoot/server.lisp 2009-02-10 10:31:33 UTC (rev 4220) @@ -212,8 +212,6 @@ input-chunking-p connection-timeout persistent-connections-p read-timeout write-timeout - #+(and :unix (not :win32)) setuid - #+(and :unix (not :win32)) setgid #-:hunchentoot-no-ssl #-:hunchentoot-no-ssl #-:hunchentoot-no-ssl ssl-certificate-file ssl-privatekey-file ssl-privatekey-password access-logger) @@ -279,12 +277,6 @@ want to specify this argument unless you want to have non-standard threading behavior. See the documentation for more information.

-On Unix you can use SETUID and SETGID to change the UID and GID of the -process directly after the server has been started. (You might want -to do this if you're using a privileged port like 80.) SETUID and -SETGID can be integers (the actual IDs) or strings (for the user and -group name respectively). - MESSAGE-LOGGER is a designator for a function to call to log messages by the server. It must accept a severity level for the message (one of :INFO, :WARNING, or :ERROR), a format string, and an arbitary @@ -322,18 +314,6 @@ 'server args))) (start server) - #+(and :unix (not :win32)) - (when setgid - ;; we must make sure to call setgid before we call setuid or - ;; suddenly we aren't root anymore... - (etypecase setgid - (integer (setgid setgid)) - (string (setgid (get-gid-from-name setgid))))) - #+(and :unix (not :win32)) - (when setuid - (etypecase setuid - (integer (setuid setuid)) - (string (setuid (get-uid-from-name setuid))))) server))

(defun stop-server (server)