Signed-off-by: Yehuda Sadeh <yehuda@redhat.com>
if ($cmd_op !~ /keys/){
return (0,0);
}
- my @get_user = (split/,/,$cmd_op);
+ my @get_user = (split/\n/,$cmd_op);
foreach (@get_user) {
if ($_ =~ /access_key/ ){
$get_acc_key = $_;
$acc_key =~ s/\\//g;
$acc_key =~ s/ //g;
$acc_key =~ s/"//g;
+ $acc_key =~ s/,//g;
my $secret_key = $get_sec_key;
my $sec_key = (split /:/, $secret_key)[1];
- chop($sec_key);
- chop($sec_key);
$sec_key =~ s/\\//g;
$sec_key =~ s/ //g;
$sec_key =~ s/"//g;
+ $sec_key =~ s/,//g;
return ($acc_key, $sec_key);
}