Load and call merge on DW.
This commit is contained in:
parent
dfb60f9682
commit
8d6ad646c3
3 changed files with 11 additions and 3 deletions
|
@ -61,7 +61,7 @@
|
|||
(email (cadddr row))
|
||||
(groupstr (list-ref row 4))
|
||||
(groups (string-split groupstr ",")))
|
||||
(print "u=" username " n=" name " e=" email " g=" groups)
|
||||
;;(print "u=" username " n=" name " e=" email " g=" groups)
|
||||
(loop (cdr lines)
|
||||
(cons (list username name email groups)
|
||||
users))))))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue