Perl：从SOAP :: WSDL对象获取完整请求

Question

我正在使用SOAP::WSDL和另一家公司的自定义WSDL文件。 每当他们为我做出改变并重新创建我的模块时，就会出现问题。 找到问题相当繁琐，因为我找不到正确的方法来访问发送到SOAP服务器的实际请求。

到目前为止，获取请求的唯一方法是使用tcpdump与wireshark一起提取请求和结果。 这是有效的，但由于我在开发机器上没有root权限，所以每次我想要这样做时都需要管理员。 我觉得必须有另一种方法来获取SOAP::WSDL内部的HTTP::Request对象。 但是如果服务器返回错误，我甚至没有响应对象，而是一个与请求没有可见关系的SOAP::WSDL::SOAP::Typelib::Fault11对象。

我也试过使用调试器，但是我找不到实际的请求部分。 我还没有理解如何告诉debuger跳到复杂数量的包内的特定部分。

Answer 1

我偶然发现了这个问题，我自己也有同样的问题。 我发现答案是使用raina77ow列出的两个选项。

$service->outputxml(1);

返回整个SOAP信封xml，但这需要与之结合使用

$service->no_dispatch(1);

设置no_dispatch后，将打印SOAP请求，而不是请求的回复。 希望这可以帮助别人。

Answer 2

您是否尝试过使用SOAP :: WSDL :: Client跟踪方法 - 尤其是outputxml ？ 它返回要发送到服务器的原始SOAP信封。

您还可以使用SOAP :: WSDL包的no_dispatch配置方法：

设置时，call（）返回普通请求XML，而不是将SOAP调用分派给SOAP服务。 方便测试/调试。

Answer 3

我找到了一种方法来至少打印出生成的XML代码。

首先，我看了一下raina77ow建议的SOAP :: WSDL :: Client 。 但这不是我所需要的。 但后来我遇到了SOAP :: WSDL :: Factory :: Serializer 。 在那里，它说：

也可以使用set_serializer方法将Serializer对象直接传递给SOAP :: WSDL :: Client。

有点烦躁，我想出了一个SOAP :: WSDL :: Serializer :: XSD的包装类，它是SOAP :: WSDL使用的默认序列化程序。 看一下代码也有帮助。

这是我写的模块。 它使用SOAP::WSDL::Serializer::XSD作为基类，并重载new和serialize方法。 虽然它只将参数传递给new ，但它从serialize获取返回的XML并打印它，这足以进行调试。 我不确定是否有办法将它放在某个地方我可以很容易地得到它。

package MySerializer;
use strict;
use warnings;
use base qw(SOAP::WSDL::Serializer::XSD);

sub new {
  my $self = shift;
  my $class = ref($self) || $self;
  return $self if ref $self;

  # Create the base object and return it
  my $base_object = $class->SUPER::new(@_);
  return bless ($base_object, $class);
}

sub serialize {
  my ($self, $args_of_ref) = @_;

  # This is basically a wrapper function that calls the real Serializer's
  # serialize-method and grabs and prints the returned XML before it
  # giving it back to the caller

  my $xml = ref($self)->SUPER::serialize($args_of_ref);
  print "\n\n$xml\n\n"; # here we go
  return $xml;
}

1;

以下是我称之为：

my $serializer = MySerializer->new();
$self->{'_interface'} = Lib::Interfaces::MyInterface->new();
$self->{'_interface'}->set_serializer($serializer); # comment out to deactivate

它很容易停用。 只在set_serializer行中添加注释。

当然，在命令行中打印一块XML并不是很漂亮，但它可以完成工作。 我只需要偶尔使用它为什么编码/测试，所以这很好我猜。