#!/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 to Table.pm ( via tabutils.pm)


=cut

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

$ENV{'XCATXMLTRACE'} = 1;
my $XML = `cat /root/lissa/xmlapi/getTablesAllRowAttribsreq`;

my $data = $XML;

$ENV{'XCATSHOWXML'} = 1;

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

