picolisp

commit b85bd8a2868845ba132b9bfe95d42914c2fada1a
parent ebf46fdf96c63cef07cc973bf646cedcdf54f773
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 26 May 2013 11:57:44 +0200

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
@@ -1,4 +1,4 @@
-# 23may13abu
+# 26may13abu
 # (c) Software Lab. Alexander Burger
 
 # *Salt *Login *Users *Perms
@@ -28,9 +28,10 @@
                   (inc (& 63 (rd 1))) ) ) ) ) ) )
 
 (de auth (Nm Pw)
-   (with (db 'nm '+User Nm)
-      (when (= (: pw) (passwd Pw (: pw)))
-         This ) ) )
+   (and
+      (; (db 'nm '+User Nm) pw 0)
+      (= @ (passwd Pw @))
+      This ) )
 
 ### Login ###
 (de login (Nm Pw)