Hilfe zu SOAP::Lite (Migration Powershell nach Perl) (Fragen zu Perl-Modulen)

[thread]20852[/thread]

Hilfe zu SOAP::Lite (Migration Powershell nach Perl)

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+9 replies

nyjo

2020-06-19 09:38

User since
2005-01-11
17 Artikel
BenutzerIn

Hallo,

kann man folgendes Powershell-Skript mit Perl SOAP::Lite abbilden?
Ich stehe ganz schön auf den Schlauch :-/

Code: (dl )

$user = "musteruser"
$pass = "4711"
$URI  = "http://SERVER:8080/inf-process-engine/soap?wsdl"

$secpasswd      = ConvertTo-SecureString $pass -AsPlainText -Force
$credentials    = New-Object System.Management.Automation.PSCredential($user, $secpasswd)

$Body = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soap="http://soap.service.engine.inf.com/"><soapenv:Header/>
<soapenv:Body><soap:instantiate><processUri>API_Test.ipd</processUri></soap:instantiate>
</soapenv:Body></soapenv:Envelope>'

$response = [xml](Invoke-WebRequest -Credential $credentials -Uri $URI -Headers (@{SOAPAction = 'instantiate'}) -Method Post -Body $Body -ContentType text/xml | Select-Object -Expand Content  )

$executionId    = $response.Envelope.Body.instantiateResponse.return.executionId
$var_a          = 3
$var_b          = 7

Write-Host "ExecutionID:" + $executionId

$Body = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soap="http://soap.service.engine.inf.com/" xmlns:dat="http://www.inf.com/datastore"><soapenv:Header/><soapenv:Body><soap:startProcess><executionId>' + $executionId + '</executionId><processParams><dat:entry name="a" type="x-xsd/integer"><dat:value>' + $var_a + '</dat:value></dat:entry><dat:entry name="b" type="x-xsd/integer"><dat:value>' + $var_b + '</dat:value></dat:entry></processParams></soap:startProcess></soapenv:Body></soapenv:Envelope>'

$response = [xml](Invoke-WebRequest -Credential $credentials -Uri $URI -Headers (@{SOAPAction = 'startProcess'}) -Method Post -Body $Body -ContentType text/xml | Select-Object -Expand Content)

Write-Host "Ergebnis: " + $response.Envelope.Body.startProcessResponse.return.pipeline.entry.value

mfg

nyjo

alles wird gut

---

mfg

Joachim Nyenhuis

gelöscht 2020-06-21 10:22
gelöscht 2020-06-21 10:30
gelöscht 2020-06-21 10:30
gelöscht 2020-06-21 10:37
+4 replies

Linuxer

2020-06-21 21:09

User since
2006-01-27
3870 Artikel
HausmeisterIn

user image

Hallo,

mir fehlen die Erfahrungen mit SOAP::Lite und Powershell, um Dir hier eine hilfreiche Antwort zu geben.

Wo stehst Du auf dem Schlauch?
Hast Du schon eine Umsetzung, die aber nicht die gleichen Ergebnisse liefert?
Hast Du noch gar nichts?

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+3 replies

nyjo

2020-06-22 12:50

User since
2005-01-11
17 Artikel
BenutzerIn

Hallo Linuxer,

Mir fehlt irgendwie der Einstieg!

Mit LWP::UserAgent und HTTP::Request hat es geklappt! Möchte aber gerne SOAP::Lite verwenden/einsteigen.

Code: (dl )

use strict;
use LWP::UserAgent;
use HTTP::Request;


my $url_of_wsdl = "http://[SERVER]:8080/inf-process-engine/soap?wsdl";
my $username 	= "musteruser";
my $password 	= "4711";

my $message = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:soap='http://soap.service.engine.inf.com/'><soapenv:Header/><soapenv:Body><soap:instantiate><processUri>API_Test.ipd</processUri></soap:instantiate></soapenv:Body></soapenv:Envelope>";			   
	   
		   
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => $url_of_wsdl);
$request->authorization_basic( "$username", "$password" );
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);
print $response->as_string;

mfg
Nyenhuis

alles wird gut

---

mfg

Joachim Nyenhuis

+2 replies

bianca

2020-06-23 08:35

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

2020-06-22T10:50:54 nyjo
Möchte aber gerne SOAP::Lite verwenden/einsteigen.

Würde ich nicht tun.

Ich bin damit nie warm geworden.
SOAP::Lite und charset
SOAP::Lite und certificate verify failed
SOAP::Lite und "no element found"
Gibt noch mehr, dies ist nur eine Auswahl.

Mit CPAN:

LWP::UserAgent hatte ich nie solche groben Probleme. Aber vielleicht ist es ja mittlerweile anders. Trotzdem würde ich eine laufende Lösung nicht gegen eine unbekannte ersetzen, nur um "gerne" damit zu arbeiten.

10 print "Hallo"
20 goto 10

nyjo

2020-06-23 10:45

User since
2005-01-11
17 Artikel
BenutzerIn

Hallo,
danke für die Info!

Werde folgenden Ansatz verwenden:

Code: (dl )

use strict;
use LWP::UserAgent;
use HTTP::Request;
use XML::Simple;
use Data::Dumper;


my $url_of_wsdl = "http://[SERVER]:8080/inf-process-engine/soap?wsdl";
my $username 	= "musteruser";
my $password 	= "4711";
my $xml 		= new XML::Simple;
my $message 	= "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:soap='http://soap.service.engine.inf.com/'><soapenv:Header/><soapenv:Body><soap:instantiate><processUri>API_Test.ipd</processUri></soap:instantiate></soapenv:Body></soapenv:Envelope>";			   
			   
			   
my $userAgent = LWP::UserAgent->new();

my $request = HTTP::Request->new(POST => $url_of_wsdl);
$request->authorization_basic( "$username", "$password" );
$request->content($message);
$request->content_type("text/xml; charset=utf-8");

my $response 	= $userAgent->request($request);
print $response->error_as_HTML unless $response->is_success;
my $data 		= $xml->XMLin( $response->content );
my $executionId = $data->{'S:Body'}->{'ns0:instantiateResponse'}->{'return'}->{executionId};

print "ExecutionID: ".$executionId."\n";

$message = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:soap='http://soap.service.engine.inf.com/' xmlns:dat='http://www.inf.com/datastore'><soapenv:Header/><soapenv:Body><soap:startProcess><executionId>".$executionId."</executionId><processParams><dat:entry name='a' type='x-xsd/integer'><dat:value>3</dat:value></dat:entry><dat:entry name='b' type='x-xsd/integer'><dat:value>7</dat:value></dat:entry></processParams></soap:startProcess></soapenv:Body></soapenv:Envelope>";
$request->content($message);
$response 	= $userAgent->request($request);
print $response->error_as_HTML unless $response->is_success;
$data 		= $xml->XMLin( $response->content );

my $ergebnis = $data->{'S:Body'}->{'ns0:startProcessResponse'}->{'return'}->{'pe:pipeline'}->{'dat:entry'}->{'dat:value'};

print "Ergebnis: ".$ergebnis;

alles wird gut

---

mfg

Joachim Nyenhuis

View all threads created 2020-06-19 09:38.