X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=create-user.sh;fp=create-user.sh;h=5afc06f03d760f481808ebc00215659c00576c1c;hb=1c78ec96e7c67b00227c436c9b50e38a0fce1ee2;hp=56c945945a56b587ff5c4126db5edeb2881f3ea1;hpb=c230f0bd4c2f006ea5c1627bc6a1e6d9a5243364;p=cloudstore.git

diff --git a/create-user.sh b/create-user.sh
index 56c9459..5afc06f 100755
--- 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`