use CloudStore::API

[cloudstore.git] / create-user.sh

diff --git a/create-user.sh b/create-user.sh
index 56c9459..5afc06f 100755 (executable)
--- a/create-user.sh
+++ b/create-user.sh
@@ -13,6 +13,11 @@ fi
 
 test -z "$quota" && quota=200k
 
+
+perl -Ilib -MCloudStore::API -e 'print "u" . CloudStore::API->new("s1")->create_user(@ARGV),$/' $email $password $quota
+
+exit 0
+
 if passwd=`grep ":$email:" /var/lib/extrausers/passwd` ; then
        echo "## $passwd" 1>&2
        uid=`echo $passwd | cut -d: -f3`