#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN
{
    $::XCATROOT =
        $ENV{'XCATROOT'} ? $ENV{'XCATROOT'}
      : -d '/opt/xcat'   ? '/opt/xcat'
      : '/usr';
}
use lib "$::XCATROOT/lib/perl";
use strict;
use File::Basename;
use Cwd;
use Socket;
use XML::Simple;
require xCAT::MsgUtils;
use xCAT::Utils;
require xCAT::Client;
my $bname = basename($0);

#-----------------------------------------------------------------------------

=head1 pcmdriver - test XMLapi for PCM 


=cut

#-----------------------------------------------------------------------------
# Main

 $ENV{'XCATXMLTRACE'}=1;
my $XML=`cat /root/lissa/PCM/api/getTablesAllRowAttribsreq`;
#my $XML=`cat /root/lissa/PCM/api/getAllEntriesreq `;
#my $XML=`cat /root/lissa/PCM/api/setNodesAttribsreq `;
#y $XML=`cat /root/lissa/PCM/api/getTablesAllNodeAttribsreq `;
#my $XML=`cat /root/lissa/PCM/api/getTablesAllNodeAttribsreq1`;
#my $XML=`cat /root/lissa/PCM/api/getTablesAllNodeAttribsreq2`;
#my $XML=`cat /root/lissa/PCM/api/getTablesAllNodeAttribsreq3`;
#my $XML=`cat /root/lissa/PCM/api/getTablesNodesAttribsreq`;
#my $XML=`cat /root/lissa/PCM/api/getTablesNodesAttribsreq2`;
#my $XML=`cat /root/lissa/PCM/api/getTablesNodesAttribsreq1`;
#my $XML=`cat /root/lissa/PCM/api/setNodesAttribsreq1.1 `;
#my $XML=`cat /root/lissa/PCM/api/getNodesAttribsreq1 `;
#y $XML=`cat /root/lissa/PCM/api/getNodesAttribsreq `;
#my $XML=`cat /root/lissa/PCM/api/getNodesAttribsreq2 `;
#my $XML=`cat /root/lissa/PCM/api/setNodesAttribsreq3 `;
#my $XML=`cat /root/lissa/PCM/api/delEntriesreq `;
#my $XML=`cat /root/lissa/PCM/api/delEntriesreq3 `;
#my $XML=`cat /root/lissa/PCM/api/getAttribsreq `;
#my $XML=`cat /root/lissa/PCM/api/getAttribsreq2 `;
#my $XML=`cat /root/lissa/PCM/api/setAttribsreq `;
#my $XML=`cat /root/lissa/PCM/api/noderangereq `;

my $data=$XML;

$ENV{'XCATSHOWXML'}=1;

xCAT::Client::submit_request($data, \&xCAT::Client::handle_response);
exit $xCAT::Client::EXITCODE;