61 lines
1.9 KiB
Perl
Executable File
61 lines
1.9 KiB
Perl
Executable File
#!/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;
|
|
|