X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=register.scm;h=e6b46f2b7de33ffa26285bcc9016fb5c14a4836b;hb=7eb64931b42ef14d7d45b859b97f6176ccc4d46d;hp=91ac133ba457f1be974f5abe0cfef7556b91fe8d;hpb=82cfbc20755fd3cbf37d0d66b14d682c1619f586;p=microbotany.git

diff --git a/register.scm b/register.scm
index 91ac133..e6b46f2 100755
--- a/register.scm
+++ b/register.scm
@@ -2,16 +2,13 @@
 ;;
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken io)
-          uri-common simple-sha1)
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
         (serve-query "User name")
         (let* ((username (symbol->string (caar query)))
                (hash (string->sha1sum (conc username
-                                            (number->string (pseudo-random-integer 10000))))))
+                                            (number->string (pseudo-random-integer 1000000))))))
           (with-output-to-file (conc "accounts/" hash)
             (lambda ()
               (write (make-garden username))))