Work on setuid/setgid, add raw-data-parser for the brmbar disaster.
This commit is contained in:
parent
ae5b9e2775
commit
8bd46721aa
4 changed files with 93 additions and 6 deletions
|
@ -33,7 +33,8 @@
|
|||
uri-common
|
||||
(chicken string)
|
||||
api-servlets
|
||||
bar-db)
|
||||
bar-db
|
||||
(chicken process-context posix))
|
||||
|
||||
(define -port- (make-parameter #f))
|
||||
(define -certificate- (make-parameter #f))
|
||||
|
@ -98,8 +99,12 @@
|
|||
private-key: (-key-))
|
||||
(tcp-listen port)))
|
||||
|
||||
(when (and (-user-) (-group-))
|
||||
(switch-user/group (-user-) (-group-)))
|
||||
(when (or (-user-) (-group-))
|
||||
(print "current user id: " (current-user-id))
|
||||
(print "current effective user id: " (current-effective-user-id))
|
||||
(switch-user/group (-user-) (-group-))
|
||||
(print "current user id: " (current-user-id))
|
||||
(print "current effective user id: " (current-effective-user-id)))
|
||||
|
||||
(bar-db-init! (-db-name-) (-db-host-) (-db-user-) (-db-pass-))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue