#!/opt/perl5/bin/perl use SOAP::Lite +trace; use SOAP::MIME; use MIME::Entity; $SOAP::Constants::DO_NOT_USE_CHARSET = 1; my $cid = "Test"; my $ent = MIME::Entity->build(Boundary => "soap-boarder", Type => "multipart/related", 'Content-Id' =>"<$cid>"); print SOAP::Lite -> uri('http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2') -> on_action(sub { return "\"\""; }) -> proxy('http://10.236.137.7:10021/vas_soap') -> parts($ent) #-> SubmitReq(SOAP::Data->name("MM7Version" => '5.3.0')) -> result; #### mkuetk@smswxp2:~/perlScripts > perl Soap01.pl SOAP::Transport::new: () SOAP::Serializer::new: () SOAP::Deserializer::new: () SOAP::Parser::new: () SOAP::Lite::new: () SOAP::Transport::HTTP::Client::new: () SOAP::Serializer::envelope: () SOAP::Serializer::envelope: result SOAP::Data::new: () SOAP::Data::new: () SOAP::Data::new: () SOAP::Data::new: () SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x85a1a2c) SOAP::Transport::HTTP::Client::send_receive: POST http://10.236.137.7:10021/vas_soap HTTP/1.1 Accept: text/xml Accept: multipart/* Content-Length: 1035 Content-Type: Multipart/Related; type="text/xml"; start=""; boundary="----------=_1 091521171-25073-0" SOAPAction: "" This is a multi-part message in MIME format... ------------=_1091521171-25073-0 Content-Type: text/xml Content-Disposition: inline Content-Transfer-Encoding: 8bit Content-Location: /main_envelope Content-Id: ------------=_1091521171-25073-0 Content-Type: multipart/related; boundary="soap-boarder" Content-Transfer-Encoding: binary MIME-Version: 1.0 X-Mailer: MIME-tools 6.110 (Entity 6.109 ) Content-Id: This is a multi-part message in MIME format... --soap-boarder-- ------------=_1091521171-25073-0-- SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x869c7a4) SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error Connection: close Date: Tue, 03 Aug 2004 08:24:45 GMT Server: Apache/1.3.20 (Unix) mod_ssl/2.8.4 OpenSSL/0.9.6 Content-Type: text/html; charset=iso-8859-1 Client-Date: Tue, 03 Aug 2004 08:19:32 GMT Client-Response-Num: 1 Client-Transfer-Encoding: chunked Title: 500 Internal Server Error 500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, mmscadm@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

SOAP::Deserializer::deserialize: () SOAP::Parser::decode: () 500 Internal Server Error at /usr/local/lib/perl5/site_perl/5.6.1/SOAP/MIME.pm line 207 SOAP::Lite::DESTROY: () SOAP::Transport::DESTROY: () SOAP::Transport::HTTP::Client::DESTROY: () SOAP::Deserializer::DESTROY: () SOAP::Serializer::DESTROY: () SOAP::Data::DESTROY: () SOAP::Data::DESTROY: () SOAP::Data::DESTROY: () SOAP::Data::DESTROY: () SOAP::Parser::DESTROY: () #### POST /vas_soap HTTP/1.0 Content-Type: multipart/related; boundary="soap-border"; type="text/xml"; start="Test" Content-Length: 2749 Authorization: Basic NDM2NjQxMjMxMjM0OjEyMzQ= SOAPAction: "" --soap-border Content-Type: application/xml Content-ID: Test TransID 4.3.0 436641231234 News 436641231234 436643316123 gold-sp33-im42 mms00016666 Personal False False Normal MMSC-ATP-036_2 --soap-border Content-Type: multipart/mixed; boundary="boundary