#!/usr/bin/perl
use HTTP::Cookies;
use strict;
use LWP::UserAgent;
{
    my $ua = new LWP::UserAgent;
    $ua->cookie_jar(HTTP::Cookies->new());
    push @{$ua->requests_redirectable}, 'POST';
    my $search_command = "http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve";
    my $content = '<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/1999/XMLSchema" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><SOAP-ENV:Body><namesp1:search xmlns:namesp1="http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl"><databaseId xsi:type="xsd:string">DIIDW</databaseId><query xsi:type="xsd:string">TS=(create)</query><editions xsi:type="xsd:string"/><firstRec xsi:type="xsd:int">1</firstRec><numRecs xsi:type="xsd:int">1</numRecs></namesp1:search></SOAP-ENV:Body></SOAP-ENV:Envelope>';

    my $header = new HTTP::Headers (
        'Content-Type'   => 'text/xml; charset=utf-8',
        'User-Agent'     => 'PHP SOAP 0.1',
        'Content-Type'   => 'text/xml; charset=utf-8',
        'SOAPAction'     =>  "http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl#search",
    );

    my $req = new HTTP::Request('POST',$search_command,$header,$content);
    my $res = $ua->request($req);
    print $req->as_string."\n";
    my $response = $res->headers_as_string();
    my $response .= $res->content;
    print "---response---\n$response\n";
}

##</code><code>##

#!/exlibris/metalib/m4_b/product/bin/perl

sub BEGIN {
    unshift (@INC, $ENV{'aleph_ext'});
    unshift (@INC, "$ENV{'aleph_product'}"."/perl/lib/site_perl/5.005");
    unshift (@INC, "$ENV{'aleph_product'}"."/perl/lib/site_perl/5.005/i686-linux");
}

use SOAP::Lite+trace => 'debug';

my $soap_request = SOAP::Lite->new();
$soap_request->uri("http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl");
$soap_request->proxy("http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve");

$service = 'search';

my $soap_response = $soap_request->$service(
    SOAP::Data->name(databaseId => 'DIIDW'),
    SOAP::Data->name(query      => 'TS=(create)'),
    SOAP::Data->name(editions   => ""),
    SOAP::Data->name(firstRec   => '1'),
    SOAP::Data->name(numRecs   => '1'),
);