VB script
Perl
Beide codes hebben in env.cgi dezelfde output. Echter als ik de POST naar de API van de leverancier stuur doet de VB code het maar de Perl code niet. Kan het mogelijk zijn dat XMLHTTP nog meer dingen meestuurt dan alleen de POST data.
code:
1
2
3
4
5
6
7
8
| Dim xmlHTTP
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
Dim URLPath
URLPath = "http://localhost/cgi-bin/env.cgi"
xmlHTTP.open "POST", URLPath, False
xmlHTTP.send( strxml) |
Perl
code:
1
2
3
4
5
6
7
| my $ua = LWP::UserAgent->new(agent => 'xml client');
my $adress = 'http://localhost/cgi-bin/env.cgi';
my $resp = $ua->request(
POST $adress ,
Content => [$strXML ]
); |
Beide codes hebben in env.cgi dezelfde output. Echter als ik de POST naar de API van de leverancier stuur doet de VB code het maar de Perl code niet. Kan het mogelijk zijn dat XMLHTTP nog meer dingen meestuurt dan alleen de POST data.