X-Git-Url: http://git.rot13.org/?p=cloudstore.git;a=blobdiff_plain;f=create-user.sh;h=54d81a12c259d384d06c0b60f93e28419cc963d9;hp=2f07d3bfc5215f68013d74e63e5a73851c26040e;hb=HEAD;hpb=ac03fd76cd29f930c855952c3610c70c15a55fa3

diff --git a/create-user.sh b/create-user.sh
index 2f07d3b..54d81a1 100755
--- a/create-user.sh
+++ b/create-user.sh
@@ -1,12 +1,18 @@
-#!/bin/sh -xe
+#!/bin/sh -e
 
-login=$1
+. ./env.sh
+
+email=$1
 password=$2
+quota=$3
 
-if [ -z "$login" -o -z "$password" ]; then
-	echo "Usage: $0 login password"
+if [ -z "$email" -o -z "$password" -o ]; then
+	echo "Usage: $0 email password [quota]"
 	exit 1
 fi
 
-mkdir -p users/$login/blob
-echo "$login:$password" > users/$login/secrets
+test -z "$quota" && quota=200000
+
+
+perl -Ilib -MCloudStore::API -e 'print "u" . CloudStore::API->new("s1")->create_user(@ARGV),$/' $email $password $quota
+