projects
/
cloudstore.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
move create_user to perl API
[cloudstore.git]
/
create-user.sh
1
#!/bin/sh -e
2
3
. ./env.sh
4
5
email=$1
6
password=$2
7
quota=$3
8
9
if [ -z "$email" -o -z "$password" -o ]; then
10
echo "Usage: $0 email password [quota]"
11
exit 1
12
fi
13
14
test -z "$quota" && quota=200000
15
16
17
perl -Ilib -MCloudStore::API -e 'print "u" . CloudStore::API->new("s1")->create_user(@ARGV),$/' $email $password $quota
18