NAME
Xpriori::XMS::Svc - Perl implementaion of Web Service for communicating with Xpriori::XMS Database.
SYNOPSIS
#>> 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
DESCRIPTION
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.
login($$$%)
$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.
logout
$sXml = Xpriori::XMS::Svc->logout($sConn);
ends up session.
Other Sessions
$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.
SEE ALSO
Xpriori::XMS::HTTP
AUTHOR
KAWAI,Takanori [email protected]
COPYRIGHT
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.