bear0053 has asked for the wisdom of the Perl Monks concerning the following question:
the response i get is:use Win32::OLE; my $xml = 'some xml date not important to problem'; my $SendObject = Win32::OLE->new('WinHttp.WinHttpRequest.5.1'); #this is a problem...this is suppose to ignore error flags $SendObject->SetProperty('Option', 4); $SendObject->open("POST", "https://url", "false"); $SendObject->setRequestHeader("Content-type", "text/xml"); $SendObject->send($xml); my $response = $SendObject->responseText; if(Win32::OLE->LastError()){ print "\n\n".Win32::OLE->LastError()."\n\n"; }
this will ignore the flags apparently in release winHttp 5.1 by default ignore all flag means ignore none of them unless you set it to 0x3300$SendObject->SetProperty('Option', 4, 0x3300);
|
|---|