commit 048e83a861d4849e16625881afe36ca6066b6146 parent b85bd8a2868845ba132b9bfe95d42914c2fada1a Author: Alexander Burger <abu@software-lab.de> Date: Sun, 26 May 2013 12:39:20 +0200 Fix password indirecton Diffstat:
| M | lib/adm.l | | | 9 | +++++---- |
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lib/adm.l b/lib/adm.l @@ -28,10 +28,11 @@ (inc (& 63 (rd 1))) ) ) ) ) ) ) (de auth (Nm Pw) - (and - (; (db 'nm '+User Nm) pw 0) - (= @ (passwd Pw @)) - This ) ) + (with (db 'nm '+User Nm) + (and + (: pw 0) + (= @ (passwd Pw @)) + This ) ) ) ### Login ### (de login (Nm Pw)