-#!/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
+