perl:
Code: Select all
#!/usr/bin/perl
use strict;
use HTTP::Request::Common;
use LWP;
use CGI;
$ua = LWP::UserAgent -> new (keep_alive => 1);
$url = someurl;
xml = somexml;
$req = HTTP::Request->new('POST' => $url);
$req -> push_header('Accept' => 'text/xml');
$req -> content_type('text/xml');
$req -> content($xml);
$req -> content_length (length $xml);
$resp = $ua -> request($req);
Code: Select all
<?php
$url = someurl;
$xml = somexml;
$header = array();
$header[] = "Accept: text/xml";
$header[] = "Content-Type: text/xml";
$header[] = "Content-Length: ".strlen($xml)."\r\n";
$header[] = $xml;
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_HTTPHEADER, $header);
curl_setopt($ch, CURLOPT_HEADER, true);
curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'HEAD');
$output = curl_exec($ch);
?>