xcat-core/xCAT-test/xmlapi/xmldriver.org

#!/usr/bin/env perl

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 Data::Dumper; use Getopt::Long; require xCAT::MsgUtils; require xCAT::DSHCLI; use xCAT::Utils; use xCAT::RemoteShellExp; require xCAT::PCMClient; my $bname = basename($0);

#—————————————————————————–

=head1 pcmdriver - test XMLapi for PCM

=cut

#—————————————————————————–

my $XML=`cat /root/lissa/PCM/api/getAllEntriesreq `; my $data=$XML;

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