Advertisement
Guest User

Untitled

a guest
Dec 18th, 2014
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.71 KB | None | 0 0
  1.                 my $WFDialog = {
  2.                     request => {
  3.                         uri => $tx->req->url->path->{path} || 'Unknown URI',
  4.                         proto => $tx->req->url->{scheme} || 'Unknown Proto',
  5.                         host => $tx->req->url->{host} || 'Unknown Host',
  6.                         headers => $tx->req->content->{header_buffer} || 'Unknown headers',
  7.                         request => $tx->req->content->asset->{content} || 'Unknown request',
  8.                     },
  9.                     response => {
  10.                         headers => $tx->res->content->headers->{headers} || 'Unknown headers',
  11.                         content => $tx->res->content->asset->{content} || 'Unknown content',
  12.                         SOAPError => XMLin($tx->res->content->asset->{content})->{'soap:Body'}->{'soap:Fault'}->{'soap:Reason'}->{'soap:Text'}->{content} || 'Unknown SOAPError'
  13.                     },
  14.                 };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement