# Function that deletes the user $rgw_user and write to logfile.
sub delete_user
{
- my $cmd = "sudo radosgw-admin user rm --uid=$rgw_user";
+ my $cmd = "$radosgw_admin user rm --uid=$rgw_user";
my $cmd_op = get_command_output($cmd);
if ($cmd_op !~ /aborting/){
print "user $rgw_user deleted\n";
}
sub quota_set_max_size {
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-size=1048576000`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=1048576000`;
if ($set_quota !~ /./){
print "quota set for the bucket: $bucketname \n";
} else {
sub quota_set_max_size_zero {
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-size=0`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=0`;
if ($set_quota !~ /./){
pass ("quota set for the bucket: $bucketname with max size as zero\n");
} else {
sub quota_set_max_objs_zero {
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-objects=0`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=0`;
if ($set_quota !~ /./){
pass ("quota set for the bucket: $bucketname with max objects as zero\n");
} else {
sub quota_set_neg_size {
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-size=-1`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=-1`;
if ($set_quota !~ /./){
pass ("quota set for the bucket: $bucketname with max size -1\n");
} else {
sub quota_set_neg_objs {
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-objects=-1`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=-1`;
if ($set_quota !~ /./){
pass ("quota set for the bucket: $bucketname max objects -1 \n");
} else {
}
sub quota_set_user_objs {
- my $set_quota = `sudo radosgw-admin quota set --uid=$rgw_user --quota-scope=bucket`;
- my $set_quota1 = `sudo radosgw-admin quota set --bucket=$bucketname --max-objects=1`;
+ my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=bucket`;
+ my $set_quota1 = `$radosgw_admin quota set --bucket=$bucketname --max-objects=1`;
if ($set_quota1 !~ /./){
print "bucket quota max_objs set for the given user: $bucketname \n";
} else {
}
sub quota_set_user_size {
- my $set_quota = `sudo radosgw-admin quota set --uid=$rgw_user --quota-scope=bucket`;
- my $set_quota1 = `sudo radosgw-admin quota set --bucket=$bucketname --max-size=1048576000`;
+ my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=bucket`;
+ my $set_quota1 = `$radosgw_admin quota set --bucket=$bucketname --max-size=1048576000`;
if ($set_quota1 !~ /./){
print "bucket quota max size set for the given user: $bucketname \n";
} else {
sub quota_set_max_obj {
# set max objects
- my $set_quota = `sudo radosgw-admin quota set --bucket=$bucketname --max-objects=1`;
+ my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=1`;
if ($set_quota !~ /./){
print "quota set for the bucket: $bucketname \n";
} else {
}
sub quota_enable {
- my $en_quota = `sudo radosgw-admin quota enable --bucket=$bucketname`;
+ my $en_quota = `$radosgw_admin quota enable --bucket=$bucketname`;
if ($en_quota !~ /./){
print "quota enabled for the bucket: $bucketname \n";
} else {
}
sub quota_disable {
- my $dis_quota = `sudo radosgw-admin quota disable --bucket=$bucketname`;
+ my $dis_quota = `$radosgw_admin quota disable --bucket=$bucketname`;
if ($dis_quota !~ /./){
print "quota disabled for the bucket: $bucketname \n";
} else {
sub quota_set_max_size_per_user {
my ($maxsize, $size1,$rgw_user) = @_;
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --uid=$rgw_user --quota-scope=user --max-size=$maxsize`;
+ my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=user --max-size=$maxsize`;
if (($set_quota !~ /./)&&($maxsize == 0)){
my $ret = test_max_objs($size1, $rgw_user);
if ($ret == 1){
sub max_size_per_user {
my ($maxsize, $size1,$rgw_user) = @_;
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --uid=$rgw_user --quota-scope=user --max-size=$maxsize`;
+ my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=user --max-size=$maxsize`;
if (($set_quota !~ /./) && ($maxsize != 0)) {
my $ret = test_max_objs($size1, $rgw_user);
if ($ret == 0){
# set max objects
my ($maxobjs, $size1, $rgw_user) = @_;
run_s3($rgw_user);
- my $set_quota = `sudo radosgw-admin quota set --uid=$rgw_user --quota-scope=user --max-objects=$maxobjs`;
+ my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=user --max-objects=$maxobjs`;
if (($set_quota !~ /./) && ($maxobjs == 0)){
my $ret = test_max_objs($size1, $rgw_user);
if ($ret == 1){
sub quota_enable_user {
my ($rgw_user) = @_;
- my $en_quota = `sudo radosgw-admin quota enable --uid=$rgw_user --quota-scope=user`;
+ my $en_quota = `$radosgw_admin quota enable --uid=$rgw_user --quota-scope=user`;
if ($en_quota !~ /./){
print "quota enabled for the user $rgw_user \n";
} else {
}
sub quota_disable_user {
- my $dis_quota = `sudo radosgw-admin quota disable --uid=$rgw_user --quota-scope=user`;
+ my $dis_quota = `$radosgw_admin quota disable --uid=$rgw_user --quota-scope=user`;
if ($dis_quota !~ /./){
print "quota disabled for the user $rgw_user \n";
} else {
my $PASS_CNT = 0;
my $FAIL_CNT = 0;
+our $radosgw_admin = $ENV{RGW_ADMIN}||"sudo radosgw-admin";
+
# function to get the current time stamp from the test set up
sub get_timestamp {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
sub get_user_info
{
my ($rgw_user) = @_;
- my $cmd = "sudo radosgw-admin user create --uid=$rgw_user --display-name=$rgw_user";
+ my $cmd = "$radosgw_admin user create --uid=$rgw_user --display-name=$rgw_user";
my $cmd_op = get_command_output($cmd);
if ($cmd_op !~ /keys/){
return (0,0);
sub purge_data
{
my ($rgw_user) = @_;
- my $cmd = "sudo radosgw-admin user rm --uid=$rgw_user --purge-data";
+ my $cmd = "$radosgw_admin user rm --uid=$rgw_user --purge-data";
my $cmd_op = get_command_output($cmd);
if ($cmd_op !~ /./){
print "user $rgw_user deleted\n";