mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-22 19:52:03 +00:00
41 lines
891 B
Perl
Executable File
41 lines
891 B
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 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;
|
|
|