diff options
Diffstat (limited to 'session.txr')
| -rw-r--r-- | session.txr | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/session.txr b/session.txr index 1f9be6e..facc486 100644 --- a/session.txr +++ b/session.txr @@ -1,4 +1,5 @@ @(define ensure-session (userid clientip)) +@ (local sessionid) @ (do (ensure-dir sessions-dir #o700)) @ (bind sessionid @(rand (expt 2 128))) @ (output `@{sessions-dir}/@userid`) |