Skip to content
Snippets Groups Projects
Commit 1b530f35 authored by Guillaume ROUSSE's avatar Guillaume ROUSSE
Browse files

shorter variable name

parent a87808f1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
lib/IdPAccountManager/WebRequest.pm
+ 74
− 74
View file @ 1b530f35
...@@ -78,7 +78,7 @@ sub execute { ...@@ -78,7 +78,7 @@ sub execute {
my $status; my $status;
# initialize output parameters # initialize output parameters
$self->{param_out} = { $self->{out} = {
url_cgi => $ENV{SCRIPT_NAME}, url_cgi => $ENV{SCRIPT_NAME},
env => \%ENV, env => \%ENV,
actions => \%actions, actions => \%actions,
...@@ -99,7 +99,7 @@ sub execute { ...@@ -99,7 +99,7 @@ sub execute {
if (defined $format{$parameter} if (defined $format{$parameter}
&& !ref($format{$parameter})) { && !ref($format{$parameter})) {
if ($parameters{$parameter} !~ /^$format{$parameter}$/) { if ($parameters{$parameter} !~ /^$format{$parameter}$/) {
push @{ $self->{param_out}->{errors} }, "format_$parameter"; push @{ $self->{out}->{errors} }, "format_$parameter";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Incorrect parameter format : $parameter" message => "Incorrect parameter format : $parameter"
...@@ -114,7 +114,7 @@ sub execute { ...@@ -114,7 +114,7 @@ sub execute {
} }
# register needed parameters # register needed parameters
$self->{param_in} = { $self->{in} = {
email_adress => $parameters{action}, email_adress => $parameters{action},
style => $parameters{style}, style => $parameters{style},
sp_entityid => $parameters{sp_entityid}, sp_entityid => $parameters{sp_entityid},
...@@ -130,7 +130,7 @@ sub execute { ...@@ -130,7 +130,7 @@ sub execute {
$status = $self->$method(); $status = $self->$method();
} else { } else {
## inknown action ## inknown action
push @{ $self->{param_out}->{errors} }, "unknown_action"; push @{ $self->{out}->{errors} }, "unknown_action";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Unknown action '$action'" message => "Unknown action '$action'"
...@@ -149,8 +149,8 @@ sub respond { ...@@ -149,8 +149,8 @@ sub respond {
## Automatic pass object entries to the output hash ## Automatic pass object entries to the output hash
foreach my $key (keys %{$self}) { foreach my $key (keys %{$self}) {
$self->{param_out}{$key} ||= $self->{$key} $self->{out}{$key} ||= $self->{$key}
unless ($key eq 'param_out'); unless ($key eq 'out');
} }
## An action may redirect to an external URL ## An action may redirect to an external URL
...@@ -183,13 +183,13 @@ sub respond { ...@@ -183,13 +183,13 @@ sub respond {
my $template; my $template;
## nobanner is used to do AJAX to get only pieces of HTML to load in the web client ## nobanner is used to do AJAX to get only pieces of HTML to load in the web client
if ($self->{param_in}->{style} eq 'nobanner') { if ($self->{in}->{style} eq 'nobanner') {
$template = 'templates/web/index-nobanner.tt2.html'; $template = 'templates/web/index-nobanner.tt2.html';
} else { } else {
$template = 'templates/web/index.tt2.html'; $template = 'templates/web/index.tt2.html';
} }
unless ($tt2->process($template, $self->{param_out}, \*STDOUT)) { unless ($tt2->process($template, $self->{out}, \*STDOUT)) {
printf "Content-type: text/plain\n\n Error: %s", $tt2->error(); printf "Content-type: text/plain\n\n Error: %s", $tt2->error();
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
...@@ -200,7 +200,7 @@ sub respond { ...@@ -200,7 +200,7 @@ sub respond {
## Ignore some type of errors ## Ignore some type of errors
my @errors_admin; my @errors_admin;
foreach my $id_error (@{ $self->{param_out}->{errors} }) { foreach my $id_error (@{ $self->{out}->{errors} }) {
unless ($id_error =~ /^(error_x)$/) { unless ($id_error =~ /^(error_x)$/) {
push @errors_admin, $id_error; push @errors_admin, $id_error;
} }
...@@ -208,10 +208,10 @@ sub respond { ...@@ -208,10 +208,10 @@ sub respond {
## Mail notification of admins about the error ## Mail notification of admins about the error
if (@errors_admin) { if (@errors_admin) {
$self->{param_out}->{subject} = 'Error notification - web interface'; $self->{out}->{subject} = 'Error notification - web interface';
IdPAccountManager::Tools::mail_notice( IdPAccountManager::Tools::mail_notice(
template => 'templates/mail/notification_generic_error.tt2.eml', template => 'templates/mail/notification_generic_error.tt2.eml',
data => $self->{param_out}, data => $self->{out},
logger => $self->{logger}, logger => $self->{logger},
conf => $self->{configuration}, conf => $self->{configuration},
admin_email => $self->{configuration}->{admin_email}, admin_email => $self->{configuration}->{admin_email},
...@@ -236,7 +236,7 @@ sub req_account_wizard { ...@@ -236,7 +236,7 @@ sub req_account_wizard {
); );
}; };
if ($EVAL_ERROR) { if ($EVAL_ERROR) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to load federation metadata: $EVAL_ERROR" message => "Failed to load federation metadata: $EVAL_ERROR"
...@@ -245,10 +245,10 @@ sub req_account_wizard { ...@@ -245,10 +245,10 @@ sub req_account_wizard {
} }
eval { eval {
$self->{param_out} = $federation_metadata->parse(); $self->{out} = $federation_metadata->parse();
}; };
if ($EVAL_ERROR) { if ($EVAL_ERROR) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to parse federation metadata: $EVAL_ERROR" message => "Failed to parse federation metadata: $EVAL_ERROR"
...@@ -265,8 +265,8 @@ sub req_select_sp { ...@@ -265,8 +265,8 @@ sub req_select_sp {
my ($self) = @_; my ($self) = @_;
$self->{logger}->log(level => LOG_INFO, message => ""); $self->{logger}->log(level => LOG_INFO, message => "");
unless ($self->{param_in}->{sp_entityid}) { unless ($self->{in}->{sp_entityid}) {
push @{ $self->{param_out}->{errors} }, "missing_sp_entityid"; push @{ $self->{out}->{errors} }, "missing_sp_entityid";
$self->{logger} $self->{logger}
->log(level => LOG_ERROR, message => "Missing parameter sp_entityid"); ->log(level => LOG_ERROR, message => "Missing parameter sp_entityid");
return undef; return undef;
...@@ -280,7 +280,7 @@ sub req_select_sp { ...@@ -280,7 +280,7 @@ sub req_select_sp {
); );
}; };
if ($EVAL_ERROR) { if ($EVAL_ERROR) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to load federation metadata: $EVAL_ERROR" message => "Failed to load federation metadata: $EVAL_ERROR"
...@@ -290,11 +290,11 @@ sub req_select_sp { ...@@ -290,11 +290,11 @@ sub req_select_sp {
eval { eval {
$federation_metadata->parse( $federation_metadata->parse(
filter_entity_id => $self->{param_in}->{sp_entityid} filter_entity_id => $self->{in}->{sp_entityid}
); );
}; };
if ($EVAL_ERROR) { if ($EVAL_ERROR) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to parse federation metadata: $EVAL_ERROR" message => "Failed to parse federation metadata: $EVAL_ERROR"
...@@ -305,7 +305,7 @@ sub req_select_sp { ...@@ -305,7 +305,7 @@ sub req_select_sp {
## Create a serviceprovider object to store major parameters for this SP in DB ## Create a serviceprovider object to store major parameters for this SP in DB
my $service_provider = IdPAccountManager::Data::ServiceProvider->new( my $service_provider = IdPAccountManager::Data::ServiceProvider->new(
db => $self->{db}, db => $self->{db},
entityid => $self->{param_in}->{sp_entityid}, entityid => $self->{in}->{sp_entityid},
dev_sp_contact => $self->{configuration}->{dev_sp_contact} dev_sp_contact => $self->{configuration}->{dev_sp_contact}
); );
...@@ -346,13 +346,13 @@ sub req_select_sp { ...@@ -346,13 +346,13 @@ sub req_select_sp {
$service_provider = IdPAccountManager::Data::ServiceProvider->new( $service_provider = IdPAccountManager::Data::ServiceProvider->new(
db => $self->{db}, db => $self->{db},
entityid => $self->{param_in}->{sp_entityid}, entityid => $self->{in}->{sp_entityid},
contacts => join(',', @contacts), contacts => join(',', @contacts),
displayname => $display_name, displayname => $display_name,
dev_sp_contact => $self->{configuration}->{dev_sp_contact} dev_sp_contact => $self->{configuration}->{dev_sp_contact}
); );
unless (defined $service_provider) { unless (defined $service_provider) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to create serviceprovider object" message => "Failed to create serviceprovider object"
...@@ -362,7 +362,7 @@ sub req_select_sp { ...@@ -362,7 +362,7 @@ sub req_select_sp {
} }
unless ($service_provider->save()) { unless ($service_provider->save()) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to save serviceprovider object" message => "Failed to save serviceprovider object"
...@@ -370,9 +370,9 @@ sub req_select_sp { ...@@ -370,9 +370,9 @@ sub req_select_sp {
return undef; return undef;
} }
$self->{param_out}->{sp_metadata_as_hashref} = $self->{out}->{sp_metadata_as_hashref} =
$federation_metadata->{federation_metadata_as_hashref}->[0]; $federation_metadata->{federation_metadata_as_hashref}->[0];
$self->{param_out}->{serviceprovider} = $service_provider; $self->{out}->{serviceprovider} = $service_provider;
return 1; return 1;
} }
...@@ -383,15 +383,15 @@ sub req_generate_token { ...@@ -383,15 +383,15 @@ sub req_generate_token {
my ($self) = @_; my ($self) = @_;
$self->{logger}->log(level => LOG_INFO, message => ""); $self->{logger}->log(level => LOG_INFO, message => "");
unless ($self->{param_in}->{sp_entityid}) { unless ($self->{in}->{sp_entityid}) {
push @{ $self->{param_out}->{errors} }, "missing_sp_entityid"; push @{ $self->{out}->{errors} }, "missing_sp_entityid";
$self->{logger} $self->{logger}
->log(level => LOG_ERROR, message => "Missing parameter sp_entityid"); ->log(level => LOG_ERROR, message => "Missing parameter sp_entityid");
return undef; return undef;
} }
unless ($self->{param_in}->{email_address}) { unless ($self->{in}->{email_address}) {
push @{ $self->{param_out}->{errors} }, "email_address"; push @{ $self->{out}->{errors} }, "email_address";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Missing parameter email_address" message => "Missing parameter email_address"
...@@ -402,42 +402,42 @@ sub req_generate_token { ...@@ -402,42 +402,42 @@ sub req_generate_token {
## Create a serviceprovider object to load parameters for this SP from DB ## Create a serviceprovider object to load parameters for this SP from DB
my $service_provider = IdPAccountManager::Data::ServiceProvider->new( my $service_provider = IdPAccountManager::Data::ServiceProvider->new(
db => $self->{db}, db => $self->{db},
entityid => $self->{param_in}->{sp_entityid}, entityid => $self->{in}->{sp_entityid},
dev_sp_contact => $self->{configuration}->{dev_sp_contact} dev_sp_contact => $self->{configuration}->{dev_sp_contact}
); );
# Try loading DB object first # Try loading DB object first
unless ($service_provider->load(speculative => 1)) { unless ($service_provider->load(speculative => 1)) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to load SP with entityid '%s'", message => "Failed to load SP with entityid '%s'",
$self->{param_in}->{sp_entityid} $self->{in}->{sp_entityid}
); );
return undef; return undef;
} }
## Check that email_address is a known contact for this SP ## Check that email_address is a known contact for this SP
unless ($service_provider->is_contact($self->{param_in}->{email_address})) unless ($service_provider->is_contact($self->{in}->{email_address}))
{ {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => message =>
"Requested a token for %s for an unautorized address '%s'", "Requested a token for %s for an unautorized address '%s'",
$self->{param_in}->{sp_entityid}, $self->{in}->{sp_entityid},
$self->{param_in}->{email_address} $self->{in}->{email_address}
); );
return undef; return undef;
} }
my $authentication_token = IdPAccountManager::Data::AuthenticationToken->new( my $authentication_token = IdPAccountManager::Data::AuthenticationToken->new(
db => $self->{db}, db => $self->{db},
email_address => $self->{param_in}->{email_address}, email_address => $self->{in}->{email_address},
sp_entityid => $self->{param_in}->{sp_entityid} sp_entityid => $self->{in}->{sp_entityid}
); );
unless (defined $authentication_token) { unless (defined $authentication_token) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to create authentication token" message => "Failed to create authentication token"
...@@ -448,7 +448,7 @@ sub req_generate_token { ...@@ -448,7 +448,7 @@ sub req_generate_token {
## First remove token if one exist for this email+SP ## First remove token if one exist for this email+SP
if ($authentication_token->load(speculative => 1)) { if ($authentication_token->load(speculative => 1)) {
unless ($authentication_token->delete()) { unless ($authentication_token->delete()) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => sprintf( message => sprintf(
...@@ -461,11 +461,11 @@ sub req_generate_token { ...@@ -461,11 +461,11 @@ sub req_generate_token {
$authentication_token = IdPAccountManager::Data::AuthenticationToken->new( $authentication_token = IdPAccountManager::Data::AuthenticationToken->new(
db => $self->{db}, db => $self->{db},
email_address => $self->{param_in}->{email_address}, email_address => $self->{in}->{email_address},
sp_entityid => $self->{param_in}->{sp_entityid} sp_entityid => $self->{in}->{sp_entityid}
); );
unless (defined $authentication_token) { unless (defined $authentication_token) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to create authentication token" message => "Failed to create authentication token"
...@@ -475,7 +475,7 @@ sub req_generate_token { ...@@ -475,7 +475,7 @@ sub req_generate_token {
} }
unless ($authentication_token->save()) { unless ($authentication_token->save()) {
push @{ $self->{param_out}->{errors} }, "internal"; push @{ $self->{out}->{errors} }, "internal";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to save authentication token" message => "Failed to save authentication token"
...@@ -483,26 +483,26 @@ sub req_generate_token { ...@@ -483,26 +483,26 @@ sub req_generate_token {
return undef; return undef;
} }
$self->{param_out}->{email_address} = $self->{param_in}->{email_address}; $self->{out}->{email_address} = $self->{in}->{email_address};
$self->{param_out}->{sp_entityid} = $self->{param_in}->{sp_entityid}; $self->{out}->{sp_entityid} = $self->{in}->{sp_entityid};
$self->{param_out}->{to} = $self->{param_in}->{email_address}; $self->{out}->{to} = $self->{in}->{email_address};
$self->{param_out}->{authentication_token} = $self->{out}->{authentication_token} =
$authentication_token->get('token'); $authentication_token->get('token');
## Send the challenge email with the token ## Send the challenge email with the token
IdPAccountManager::Tools::mail_notice( IdPAccountManager::Tools::mail_notice(
template => 'templates/mail/send_authentication_token.tt2.eml', template => 'templates/mail/send_authentication_token.tt2.eml',
to => $self->{param_in}->{email_address}, to => $self->{in}->{email_address},
data => $self->{param_out}, data => $self->{out},
logger => $self->{logger} logger => $self->{logger}
); );
$self->{logger}->log( $self->{logger}->log(
level => LOG_INFO, level => LOG_INFO,
message => "Token send to %s for sp_entityid=%s;token=%s", message => "Token send to %s for sp_entityid=%s;token=%s",
$self->{param_in}->{email_address}, $self->{in}->{email_address},
$self->{param_in}->{sp_entityid}, $self->{in}->{sp_entityid},
$self->{param_out}->{authentication_token} $self->{out}->{authentication_token}
); );
return 1; return 1;
...@@ -515,16 +515,16 @@ sub req_validate_token { ...@@ -515,16 +515,16 @@ sub req_validate_token {
my ($self) = @_; my ($self) = @_;
$self->{logger}->log(level => LOG_INFO, message => ""); $self->{logger}->log(level => LOG_INFO, message => "");
unless ($self->{param_in}->{sp_entityid}) { unless ($self->{in}->{sp_entityid}) {
push @{ $self->{param_out}->{errors} }, "missing_sp_entityid"; push @{ $self->{out}->{errors} }, "missing_sp_entityid";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, message => "Missing parameter sp_entityid" level => LOG_ERROR, message => "Missing parameter sp_entityid"
); );
return undef; return undef;
} }
unless ($self->{param_in}->{authentication_token}) { unless ($self->{in}->{authentication_token}) {
push @{ $self->{param_out}->{errors} }, push @{ $self->{out}->{errors} },
"missing_authentication_token"; "missing_authentication_token";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
...@@ -535,30 +535,30 @@ sub req_validate_token { ...@@ -535,30 +535,30 @@ sub req_validate_token {
my $authentication_token = IdPAccountManager::Data::AuthenticationToken->new( my $authentication_token = IdPAccountManager::Data::AuthenticationToken->new(
db => $self->{db}, db => $self->{db},
token => $self->{param_in}->{authentication_token}); token => $self->{in}->{authentication_token});
unless ($authentication_token->load()) { unless ($authentication_token->load()) {
push @{ $self->{param_out}->{errors} }, "wrong_token"; push @{ $self->{out}->{errors} }, "wrong_token";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => message =>
"Failed to validate authentication token %s for sp_entityid %s", "Failed to validate authentication token %s for sp_entityid %s",
$self->{param_in}->{authentication_token}, $self->{in}->{authentication_token},
$self->{param_in}->{sp_entityid} $self->{in}->{sp_entityid}
); );
return undef; return undef;
} }
unless ($authentication_token->get('sp_entityid') eq unless ($authentication_token->get('sp_entityid') eq
$self->{param_in}->{sp_entityid}) $self->{in}->{sp_entityid})
{ {
push @{ $self->{param_out}->{errors} }, "wrong_token_for_sp"; push @{ $self->{out}->{errors} }, "wrong_token_for_sp";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => message =>
"Authentication token %s cannot be used for SP with entityid %s", "Authentication token %s cannot be used for SP with entityid %s",
$self->{param_in}->{authentication_token}, $self->{in}->{authentication_token},
$self->{param_in}->{sp_entityid} $self->{in}->{sp_entityid}
); );
return undef; return undef;
} }
...@@ -568,7 +568,7 @@ sub req_validate_token { ...@@ -568,7 +568,7 @@ sub req_validate_token {
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to delete authentication token %s", message => "Failed to delete authentication token %s",
$self->{param_in}->{authentication_token} $self->{in}->{authentication_token}
); );
} }
...@@ -579,7 +579,7 @@ sub req_validate_token { ...@@ -579,7 +579,7 @@ sub req_validate_token {
my $test_account = IdPAccountManager::Data::TestAccount->new( my $test_account = IdPAccountManager::Data::TestAccount->new(
db => $self->{db}, db => $self->{db},
account_profile => $profile, account_profile => $profile,
sp_entityid => $self->{param_in}->{sp_entityid} sp_entityid => $self->{in}->{sp_entityid}
); );
next unless $test_account; next unless $test_account;
next unless $test_account->save(); next unless $test_account->save();
...@@ -587,11 +587,11 @@ sub req_validate_token { ...@@ -587,11 +587,11 @@ sub req_validate_token {
} }
unless (@test_accounts) { unless (@test_accounts) {
push @{ $self->{param_out}->{errors} }, "accounts_creation_failed"; push @{ $self->{out}->{errors} }, "accounts_creation_failed";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to create test accounts for SP with entityid %s", message => "Failed to create test accounts for SP with entityid %s",
$self->{param_in}->{sp_entityid} $self->{in}->{sp_entityid}
); );
return undef; return undef;
} }
...@@ -601,7 +601,7 @@ sub req_validate_token { ...@@ -601,7 +601,7 @@ sub req_validate_token {
$self->{configuration}->{root_manager_dir}, $self->{configuration}->{root_manager_dir},
$self->{configuration} $self->{configuration}
)) { )) {
push @{ $self->{param_out}->{errors} }, "accounts_creation_failed"; push @{ $self->{out}->{errors} }, "accounts_creation_failed";
$self->{logger}->log( $self->{logger}->log(
level => LOG_ERROR, level => LOG_ERROR,
message => "Failed to create simpleSAMLphp configuration file" message => "Failed to create simpleSAMLphp configuration file"
...@@ -612,12 +612,12 @@ sub req_validate_token { ...@@ -612,12 +612,12 @@ sub req_validate_token {
$self->{logger}->log( $self->{logger}->log(
level => LOG_INFO, level => LOG_INFO,
message => "Token validated for sp_entityid=%s;token=%s", message => "Token validated for sp_entityid=%s;token=%s",
$self->{param_in}->{sp_entityid}, $self->{in}->{sp_entityid},
$self->{param_in}->{authentication_token} $self->{in}->{authentication_token}
); );
$self->{param_out}->{sp_entityid} = $self->{param_in}->{sp_entityid}; $self->{out}->{sp_entityid} = $self->{in}->{sp_entityid};
$self->{param_out}->{test_accounts} = \@test_accounts; $self->{out}->{test_accounts} = \@test_accounts;
return 1; return 1;
} }
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment