scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

NeXTstep is dead.

This commit is contained in:
sperber 2002-09-05 08:55:58 +00:00
parent 490a22d724
commit ed04d43b65
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/server.scm
View File

@ -40,8 +40,8 @@ exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@"
(define (top args) (define (top args)
(display "We be jammin, now.\n") (force-output) (display "We be jammin, now.\n") (force-output)
(cond ((zero? (user-uid)) (cond ((zero? (user-uid))
(set-gid -2) ; Should be (set-uid (->uid "nobody")) (set-gid (->gid "nobody"))
(set-uid -2))) ; but NeXTSTEP loses. (set-uid (->uid "nobody"))))
;; invariant environment is know initilialized by cgi-handler itself ;; invariant environment is know initilialized by cgi-handler itself
;; (initialise-request-invariant-cgi-env) ;; (initialise-request-invariant-cgi-env)
(httpd (with-path-handler (httpd (with-path-handler

4
start-web-server
View File

@ -107,8 +107,8 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
(get-options (cdr args)) (get-options (cdr args))
(format #t "options read~%") (format #t "options read~%")
(cond ((zero? (user-uid)) (cond ((zero? (user-uid))
(set-gid -2) ; Should be (set-uid (->uid "nobody")) (set-gid (->gid "nobody"))
(set-uid -2))) ; but NeXTSTEP loses. (set-uid (->uid "nobody"))))
(format #t "Going to run Webserver with: (format #t "Going to run Webserver with:
htdocs-dir: ~a htdocs-dir: ~a