small fixes

sympa-community · Feb 14, 2023 · 4f0e847 · 4f0e847
1 parent 29e619a
commit 4f0e847
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/lib/Sympa/CLI/test/soap.pm b/src/lib/Sympa/CLI/test/soap.pm
@@ -72,8 +72,8 @@ sub _run {
         }
 
         play_soap_as_trusted($soap_url, $trusted_application,
-            $trusted_application_password, $service, $proxy_vars,
-            $service_parameters);
+            $trusted_application_password, $proxy_vars,
+            $service, $service_parameters);
     } elsif ($service eq 'getUserEmailByCookie') {
         play_soap(
             $soap_url,
@@ -110,8 +110,8 @@ sub play_soap_as_trusted {
     my $soap_url                     = shift;
     my $trusted_application          = shift;
     my $trusted_application_password = shift;
-    my $service                      = shift;
     my $proxy_vars                   = shift;
+    my $service                      = shift;
     my $service_parameters           = shift;
 
     my $soap = SOAP::Lite->new();
@@ -124,9 +124,8 @@ sub play_soap_as_trusted {
     } else {
         @parameters = ();
     }
-    my $p = join(',', @parameters);
-    printf
-        "calling authenticateRemoteAppAndRun( $trusted_application, $trusted_application_password, $proxy_vars,$service,$p)\n";
+    printf "calling authenticateRemoteAppAndRun( %s, ?, %s, %s, %s )\n",
+        $trusted_application, $proxy_vars, $service, join ',', @parameters;
 
     my $reponse =
         $soap->authenticateRemoteAppAndRun($trusted_application,