API workers using Gearman::Driver
[cloudstore.git] / create-user.sh
index 85913a6..54d81a1 100755 (executable)
@@ -1,16 +1,18 @@
-#!/bin/sh -xe
+#!/bin/sh -e
 
-login=$1
+. ./env.sh
+
+email=$1
 password=$2
-host=$3
+quota=$3
 
-if [ -z "$login" -o -z "$password" ]; then
-       echo "Usage: $0 login password [host]"
+if [ -z "$email" -o -z "$password" -o ]; then
+       echo "Usage: $0 email password [quota]"
        exit 1
 fi
 
-mkdir -p users/$login/blob
-secrets="users/$login/secrets"
-test ! -z "$host" && login="$login+$host"
-grep "^$login:" $secrets || echo "$login:$password" >> $secrets
-cat $secrets
+test -z "$quota" && quota=200000
+
+
+perl -Ilib -MCloudStore::API -e 'print "u" . CloudStore::API->new("s1")->create_user(@ARGV),$/' $email $password $quota
+