lisp help - loginname

I have this little routine that checks for a users login name. If the user isn't "john" then it restricts them from running a custom command.

I want to add additional users to the "approve list". Below is what I added but doesn't seem to work. Any ideas on how I would fix this?

(defun logincheck ()
(if (/= (strcase (getvar "loginname") t) "john" "jack" "bob")
(progn
(alert "Access Denied! Contact Your CAD Administrator")
(exit)
))

TIA

Collin

 

(defun logincheck ()
(setq login-name (strcase (getvar "loginname")))
(setq login-list
(list "TOM" "DICK" "HARRY" "COLLIN")) ; <<<ADD TO THIS LIST
(if (not (member login-name login-list))
(alert "Access Denied! Contact Your CAD Administrator")
)
(princ)
)

Have a great weekend!
-doug

isn't "john" then it restricts them from running a custom command.

added but doesn't seem to work. Any ideas on how I would fix this?

 

(if (not (member (strcase (getvar "loginname") t) (list "john" "jack"
"bob")))
(progn
....

isn't "john" then it restricts them from running a custom command.

added but doesn't seem to work. Any ideas on how I would fix this?

 

Thanks everyone. I got it to work.

 

And your final code was...

 

I just modified my original code to add the new users.