/usr/share/picolisp/lib/user.l is in picolisp 15.11-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # 05may15abu
# (c) Software Lab. Alexander Burger
(must "User Administration" UserAdmin)
(menu ,"User Administration"
(idForm ,"User" '(choUser) 'nm '+User T '(may Delete) '((: nm))
(<grid> 2
,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
,"Password"
(gui '(+Able +PasswdField)
'(or (may Password) (== *Login (: home obj)))
30 )
,"Role"
(gui '(+Able +E/R +Obj +TextField)
'(may RoleAdmin)
'(role : home obj)
'(nm +Role)
T )
,"Full Name" (gui '(+E/R +TextField) '(nam : home obj) 40)
,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) )
(<spread> NIL (editButton T)) ) )
# vi:et:ts=3:sw=3
|