We were using SOAP::Lite but since we have moved to windows 2003 SSLeay fails. I have tried for 3 weeks to get our currentl SOAP::Lite program to work but have been unable to get SSLeay to work. So since I had an .asp program that works from another app on the same box. I thought I could take the VB script code and try to rewrite it in Perl as a work around. Any help or advice is appreciated. Thanks Larry
-----Original Message----- From: Foo JH [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 13, 2006 11:15 PM To: Briggs, Larry Cc: 'perl-win32-users@listserv.ActiveState.com' Subject: Re: Webservice Call using Win32::OLE I can't give you a direct answer, but maybe you'd like to try SOAP::Lite instead. It's cross-platform (may not be relavant), and it has worked on both Java and C# web services. Briggs, Larry wrote: > Hi I am trying to convert the following VB script webservice call > into perl I am trying to use Win32::OLE. Can this be done and if it > can how would I go about doing this. I have provided the Perl code > that I have tried to write so far. Any help that you can provide to point me in the right direction. > > Const appUserID = "ServiceID" > Const password = "ServicePass" > Const appTokenName = "TokenName" > encryptedToken = Request.Cookies("Cookies") > ' set up data to post to web service > postData = "" > postData = postData & "userID=" & appUserID > postData = postData & "&password=" & password > postData = postData & "&encryptedToken=" & encryptedToken > > ' set URL to web service method > decryptWebServiceURL = > "https://Webserver/decryptTokenService/decryptToken.asmx/decryptToken"; > > ' create ServerXMLHTTP object > Set oServXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") > > ' initialize ServerXMLHTTP object > Call oServXMLHTTP.open("POST", decryptWebServiceURL, False) > > ' set ServerXMLHTTP header to post data > Call oServXMLHTTP.setRequestHeader("Content-Type", > "application/x-www-form-urlencoded") > > ' send request to web service > Call oServXMLHTTP.send(postData) > > ' retrieve results from web service > Set decryptToken = oServXMLHTTP.responseXML > > ' destroy ServerXMLHTTP object > Set oServXMLHTTP = Nothing > > Perlcode > #!perl -w > use strict; > use CGI qw/:standard/; > use CGI::Cookie; > use CGI::CARP qw(fatalsToBrowser); > use MIME::Base64; > $GopaxCookie = $Cookies{"GOPAX"}; > my $ServiceID = "ServiceID"; > my $PassWd = "ServicePass"; > use Win32::OLE qw(in with); > my $Postdata =""; > $Postdata = $Postdata."userID=". $ServiceID ; > $Postdata = $Postdata."password=". $PassWd ; > $Postdata = $Postdata."encryptedToken=". $GopaxCookie; my > $decryptWebServiceUrl = > "https://Webserver/decryptTokenService/decryptToken.asmx/decryptToken"; > ; > > my $DOM = Win32::OLE->new('MSXML2.ServerXMLHTTP') or die "new() failed"; > $DOM->open("POST",$decryptWebServiceUrl, "FALSE"); > > $DOM->setRequestHeader("Content-Type","application/x-www-form-urlencoded"); > $DOM->send($Postdata); > my $Results = $DOM->responseXML; > > Thanks > Larry > _______________________________________________ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
