Xpriori::XMS::Svc - Perl implementaion of Web Service for communicating with Xpriori::XMS Database.

  #>> Sample for SOAP
    #!c:/perl/bin/perl
    use strict;
    use Xpriori::XMS::Svc;
    use SOAP::Transport::HTTP;
      SOAP::Transport::HTTP::CGI   
      -> dispatch_to('Xpriori::XMS::Svc')     
      -> handle;

  #>> Sample for JavaScript
    #!c:/perl/bin/perl
    use strict;
    use CGI;
    use JSON;
    use Xpriori::XMS::Svc;
    my $oCgi = new CGI();
    my $sMethod = $oCgi->param('_method');
    my $sConn   = $oCgi->param('_connect');
    my $raPrm   = from_json($oCgi->param('_param'));
    my $sRes = Xpriori::XMS::Svc->$sMethod($sConn, @$raPrm);
    print <<EOD;
    Content-Type: text/plain

    $sRes
    EOD
  # See sample/JavaScript/* more details

Xpriori::XMS::Svc is a base class for Web Service for Xpriori::XMS Database.

URL, User and Password should be set in 'NeoCoreSvc.cfg' included in the same directory.

$sConn = Xpriori::XMS::Svc->login();

connect to Xpriori::XMS and return SID for furture use. You can use SID for other methods. Althogh you can call other methods without SID, it will create other sessions. So if you want to use 'transaction', you should get $sConn first and use it with every methods you want.

$sXml = Xpriori::XMS::Svc->logout($sConn);

ends up session.

$sXml = Xpriori::XMS::Svc->{method}($sConn [, $sPrm1, $sPrm2...]); You can use many methods of Xpriori::XMS::HTTP showed below:

  setTraceLevels, getTraceLevels, setIsolationLevel,
  startTransaction, commitTransaction, rollbackTransaction,
  queryXML deleteXML, insertXML, modifyXML, copyXML,
  queryFlatXML, queryXMLUpdateIntent, queryCountXML, queryTreeXML,
  queryDataContextXML, getServerStatistics, clearServerStatistics,
  getServerVersion, storeXML

When you call these methods almost same way, except you should set $sConn.

 ex.

Xpriori::XMS::HTTP

KAWAI,Takanori kwitknr@cpan.org

The Xpriori::XMS::Http module is Copyright (c) 2009 KAWAI,Takanori, Japan. All rights reserved.

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.