利用perl soap服务向.net、https服务端传送UserToken
服务端传送数据使用SSL加密 基于wsse2.0开发的.net webservicesoap xml:
message = qq{
u_name
u_pwd
......
};
my $userAgent = LWP::UserAgent->new();
$userAgent->credentials('globusfamily.com:80','',$u_name,$u_pwd);
my $request = HTTP::Request->new(POST => $vendor_url);
$request->authorization_basic('amy@gotobus.com', 'gotobus888');
$request->header(SOAPAction => 'http://www.globusfamily.com/api/booking/ws/internal/GVI_Booking');
$request->content($message);
$request->content_type("text/xml; ");
my $response = $userAgent->request($request);
#die $message;
if($response->code == 200) {
my $return_xml = $response->as_string;
$return_xml = JUtility->unescape_XML($return_xml);
$return_xml =~ s/&/&/g;
}
else
{
return "";
}
页:
[1]