Add API endpoint for /setup

api/v1/admin/setup/default

@@ -0,0 +1,26 @@
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# Copyright (c) 2015 Alexander Williams, Unscramble <license@unscramble.jp>
+
+(de setup-update ()
+  (if (get 'newtoken 'http)
+      (if (update-token @)
+          (http-msg 200)
+          (http-msg 400) )
+      (http-msg 400) ) )
+
+[de setup-new ()
+  (let Path (pack *Admin_path "etc/api.token")
+    (if (num? (car (info Path)))
+        (http-msg 403)
+        (setup-update) ]
+
+[de setup-request ()
+  (when *Post
+    (if (validate-token (get 'token 'http))
+        (setup-update)
+        (setup-new) ]
+
+(setup-request)

api/v1/core/allowed.l

@@ -5,4 +5,4 @@
 # Copyright (c) 2015 Alexander Williams, Unscramble <license@unscramble.jp>
 
 (allowed ("api/v1/admin")
-  token license settings update )
+  newtoken token setup license settings update )

api/v1/core/auth.l

@@ -10,7 +10,6 @@
       (= Token (in Path (line T) ]
 
 [de update-token (Token)
-  (let Path (pack *Admin_path "etc/api.token")
-    (unless (num? (car (info Path)))
-      (out (pack *Upload_path "api.token") (prinl Token))
-      (call 'sudo (pack *Admin_path "bin/update_token.sh") ]
+  (when Token
+    (out (pack *Upload_path "api.token") (prinl Token))
+    (call 'sudo (pack *Admin_path "bin/update_token.sh") ]