5b44b630d9
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4925 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
1069 lines
25 KiB
Perl
1069 lines
25 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#-------------------------------------------------------
|
|
|
|
=head1
|
|
|
|
This is a utility plugin for z/VM.
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
package xCAT::zvmUtils;
|
|
use xCAT::MsgUtils;
|
|
use xCAT::Utils;
|
|
use xCAT::Table;
|
|
use strict;
|
|
use warnings;
|
|
1;
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getNodeProps
|
|
Description : Get node properties
|
|
Arguments : Table
|
|
Node
|
|
Properties
|
|
Returns : Node properties from given table
|
|
Example : my $propVals = xCAT::zvmUtils->getNodeProps($tabName, $node, $propNames);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getNodeProps {
|
|
|
|
# Get inputs
|
|
my ( $class, $tabName, $node, @propNames ) = @_;
|
|
|
|
# Get table
|
|
my $tab = xCAT::Table->new($tabName);
|
|
|
|
# Get property values
|
|
my $propVals = $tab->getNodeAttribs( $node, [@propNames] );
|
|
|
|
return ($propVals);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getTabPropsByKey
|
|
Description : Get table entry properties by key
|
|
Arguments : Table
|
|
Key name
|
|
Key value
|
|
Requested properties
|
|
Returns : Table entry properties
|
|
Example : my $propVals = xCAT::zvmUtils->getTabPropsByKey($tabName, $key, $keyValue, @reqProps);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getTabPropsByKey {
|
|
|
|
# Get inputs
|
|
my ( $class, $tabName, $key, $keyVal, @propNames ) = @_;
|
|
|
|
# Get table
|
|
my $tab = xCAT::Table->new($tabName);
|
|
my $propVals;
|
|
|
|
# Get table attributes matching given key
|
|
$propVals = $tab->getAttribs( { $key => $keyVal }, @propNames );
|
|
return ($propVals);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getAllTabEntries
|
|
Description : Get all entries within given table
|
|
Arguments : Table
|
|
Returns : All table entries
|
|
Example : my $entries = xCAT::zvmUtils->getAllTabEntries($tabName);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getAllTabEntries {
|
|
|
|
# Get inputs
|
|
my ( $class, $tabName ) = @_;
|
|
|
|
# Get table
|
|
my $tab = xCAT::Table->new($tabName);
|
|
my $entries;
|
|
|
|
# Get all entries within given table
|
|
$entries = $tab->getAllEntries();
|
|
return ($entries);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 setNodeProp
|
|
|
|
Description : Set node property in a given table
|
|
Arguments : Table
|
|
Node
|
|
Property
|
|
Returns : Nothing
|
|
Example : xCAT::zvmUtils->setNodeProp($tabName, $node, $propName, $propVal);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub setNodeProp {
|
|
|
|
# Get inputs
|
|
my ( $class, $tabName, $node, $propName, $propVal ) = @_;
|
|
|
|
# Get table
|
|
my $tab = xCAT::Table->new( $tabName, -create => 1, -autocommit => 0 );
|
|
|
|
# Set property
|
|
$tab->setAttribs( { 'node' => $node }, { $propName => $propVal } );
|
|
|
|
# Save table
|
|
$tab->commit;
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 delTabEntry
|
|
|
|
Description : Delete a table entry
|
|
Arguments : Table
|
|
Key name
|
|
Key value
|
|
Returns : Nothing
|
|
Example : xCAT::zvmUtils->delTabEntry($tabName, $keyName, $keyVal);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub delTabEntry {
|
|
|
|
# Get inputs
|
|
my ( $class, $tabName, $keyName, $keyVal ) = @_;
|
|
|
|
# Get table
|
|
my $tab = xCAT::Table->new( $tabName, -create => 1, -autocommit => 0 );
|
|
|
|
# Delete entry from table
|
|
my %key = ( $keyName => $keyVal );
|
|
$tab->delEntries( \%key );
|
|
|
|
# Save table
|
|
$tab->commit;
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 tabStr
|
|
|
|
Description : Tab string (4 spaces)
|
|
Arguments : String
|
|
Returns : Tabbed string
|
|
Example : my $str = xCAT::zvmUtils->tabStr($str);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub tabStr {
|
|
|
|
# Get inputs
|
|
my ( $class, $inStr ) = @_;
|
|
my @lines = split( "\n", $inStr );
|
|
|
|
# Tab output
|
|
my $outStr;
|
|
foreach (@lines) {
|
|
$outStr .= " $_\n";
|
|
}
|
|
|
|
return ($outStr);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 trimStr
|
|
|
|
Description : Trim whitespaces within a string
|
|
Arguments : String
|
|
Returns : Trimmed string
|
|
Example : my $str = xCAT::zvmUtils->trimStr($str);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub trimStr {
|
|
|
|
# Get string
|
|
my ( $class, $str ) = @_;
|
|
|
|
# Trim right
|
|
$str =~ s/\s*$//;
|
|
|
|
# Trim left
|
|
$str =~ s/^\s*//;
|
|
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 replaceStr
|
|
|
|
Description : Replace a given pattern within a string
|
|
Arguments : String
|
|
Returns : String with given pattern replaced
|
|
Example : my $str = xCAT::zvmUtils->replaceStr($str, $pattern, $replacement);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub replaceStr {
|
|
|
|
# Get string
|
|
my ( $class, $str, $pattern, $replacement ) = @_;
|
|
|
|
# Replace string
|
|
$str =~ s/$pattern/$replacement/g;
|
|
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 printLn
|
|
|
|
Description : Print string
|
|
Arguments : String
|
|
Returns : Nothing
|
|
Example : xCAT::zvmUtils->printLn($callback, $str);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub printLn {
|
|
|
|
# Get inputs
|
|
my ( $class, $callback, $str ) = @_;
|
|
|
|
# Print string
|
|
my $rsp;
|
|
$rsp->{data}->[0] = "$str";
|
|
xCAT::MsgUtils->message( "I", $rsp, $callback );
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 isZvmNode
|
|
|
|
Description : Checks if a given node is in the 'zvm' table
|
|
Arguments : Node
|
|
Returns : TRUE Node exists
|
|
FALSE Node does not exists
|
|
Example : my $out = xCAT::zvmUtils->isZvmNode($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub isZvmNode {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# zVM guest ID
|
|
my $id;
|
|
|
|
# Look in 'zvm' table
|
|
my $tab = xCAT::Table->new( 'zvm', -create => 1, -autocommit => 0 );
|
|
|
|
my @results = $tab->getAllAttribsWhere( "node like '%" . $node . "%'", 'userid' );
|
|
foreach (@results) {
|
|
|
|
# Get userID
|
|
$id = $_->{'userid'};
|
|
|
|
# Return 'TRUE' if given node is in the table
|
|
if ($id) {
|
|
return ('TRUE');
|
|
}
|
|
}
|
|
|
|
return ('FALSE');
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getIp
|
|
|
|
Description : Get the IP address of a given node
|
|
Arguments : Node
|
|
Returns : IP address of given node
|
|
Example : my $ip = xCAT::zvmUtils->getIp($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getIp {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get IP address
|
|
my $out = `ssh -o ConnectTimeout=10 $node "ifconfig" | grep "inet addr:" | grep -v "127.0.0.1"`;
|
|
my @lines = split( '\n', $out );
|
|
|
|
# Get the first IP that comes back
|
|
my @parms = split( ' ', $lines[0] );
|
|
foreach (@parms) {
|
|
|
|
# Get inet addr parameter
|
|
if ( $_ =~ m/addr:/i ) {
|
|
my @ip = split( ':', $_ );
|
|
return ( $ip[1] );
|
|
}
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getHwcfg
|
|
|
|
Description : Get hardware configuration file path of given node
|
|
SUSE -- /etc/sysconfig/hardware/hwcfg-qeth
|
|
Arguments : Node
|
|
Returns : Hardware configuration file path
|
|
Example : my $hwcfg = xCAT::zvmUtils->getHwcfg($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getHwcfg {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get OS
|
|
my $os = xCAT::zvmUtils->getOs($node);
|
|
|
|
# Get network configuration file path
|
|
my $out;
|
|
my @parms;
|
|
|
|
# If it is SUSE -- hwcfg-qeth file is in /etc/sysconfig/hardware
|
|
if ( $os =~ m/SUSE/i ) {
|
|
$out = `ssh -o ConnectTimeout=5 $node "ls /etc/sysconfig/hardware/hwcfg-qeth*"`;
|
|
@parms = split( '\n', $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
# If no file is found -- Return nothing
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getIfcfg
|
|
|
|
Description : Get network configuration file path of given node
|
|
Red Hat -- /etc/sysconfig/network-scripts/ifcfg-eth
|
|
SUSE -- /etc/sysconfig/network/ifcfg-qeth
|
|
Arguments : Node
|
|
Returns : Network configuration file path
|
|
Example : my $ifcfg = xCAT::zvmUtils->getIfcfg($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getIfcfg {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get OS
|
|
my $os = xCAT::zvmUtils->getOs($node);
|
|
|
|
# Get network configuration file path
|
|
my $out;
|
|
my @parms;
|
|
|
|
# If it is Red Hat -- ifcfg-qeth file is in /etc/sysconfig/network-scripts
|
|
if ( $os =~ m/Red Hat/i ) {
|
|
$out = `ssh -o ConnectTimeout=5 $node "ls /etc/sysconfig/network-scripts/ifcfg-eth*"`;
|
|
@parms = split( '\n', $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
# If it is SUSE -- ifcfg-qeth file is in /etc/sysconfig/network
|
|
elsif ( $os =~ m/SUSE/i ) {
|
|
$out = `ssh -o ConnectTimeout=5 $node "ls /etc/sysconfig/network/ifcfg-qeth*"`;
|
|
@parms = split( '\n', $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
# If no file is found -- Return nothing
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getIfcfgByNic
|
|
|
|
Description : Get /etc/sysconfig/network/ifcfg-qeth file name of given NIC
|
|
Arguments : Node
|
|
NIC address
|
|
Returns : /etc/sysconfig/network/ifcfg-qeth file name
|
|
Example : my $ifcfg = xCAT::zvmUtils->getIfcfgByNic($node, $nic);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getIfcfgByNic {
|
|
|
|
# Get inputs
|
|
my ( $class, $node, $nic ) = @_;
|
|
|
|
# Get OS
|
|
my $os = xCAT::zvmUtils->getOs($node);
|
|
|
|
# Get network configuration file path
|
|
my $out;
|
|
my @parms;
|
|
|
|
# If it is Red Hat -- ifcfg-qeth file is in /etc/sysconfig/network-scripts
|
|
if ( $os =~ m/Red Hat/i ) {
|
|
$out = `ssh -o ConnectTimeout=5 $node "ls /etc/sysconfig/network-scripts/ifcfg-eth*" | grep "$nic"`;
|
|
@parms = split( '\n', $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
# If it is SUSE -- ifcfg-qeth file is in /etc/sysconfig/network
|
|
elsif ( $os =~ m/SUSE/i ) {
|
|
$out = `ssh -o ConnectTimeout=5 $node "ls /etc/sysconfig/network/ifcfg-qeth*" | grep "$nic"`;
|
|
@parms = split( '\n', $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
# If no file is found -- Return nothing
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getBroadcastIP
|
|
|
|
Description : Get IP broadcast of given node
|
|
Arguments : Node
|
|
Returns : IP broadcast
|
|
Example : my $broadcast = xCAT::zvmUtils->getBroadcastIP($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getBroadcastIP {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get IP address
|
|
my $out = `ssh -o ConnectTimeout=5 $node "ifconfig" | grep "Bcast:" | cut -d: -f3`;
|
|
my @parms = split( ' ', $out );
|
|
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getDns
|
|
|
|
Description : Get DNS server of given node
|
|
Arguments : Node
|
|
Returns : DNS server
|
|
Example : my $dns = xCAT::zvmUtils->getDns($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getDns {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get IP address
|
|
my $out = `ssh -o ConnectTimeout=5 $node "cat /etc/resolv.conf" | grep "nameserver"`;
|
|
my @parms = split( ' ', $out );
|
|
|
|
return ( $parms[1] );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getGateway
|
|
|
|
Description : Get default gateway of given node
|
|
Arguments : Node
|
|
Returns : Default gateway
|
|
Example : my $gw = xCAT::zvmUtils->getGateway($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getGateway {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get IP address
|
|
my $out = `ssh -o ConnectTimeout=5 $node "cat /etc/sysconfig/network/routes"`;
|
|
my @parms = split( ' ', $out );
|
|
return ( $parms[1] );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 sendFile
|
|
|
|
Description : Send a file to a given node using SCP
|
|
Arguments : Node
|
|
Source file
|
|
Target file
|
|
Returns : Nothing
|
|
Example : xCAT::zvmUtils->sendFile($node, $srcFile, $trgtFile);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub sendFile {
|
|
|
|
# Get inputs
|
|
my ( $class, $node, $srcFile, $trgtFile ) = @_;
|
|
|
|
# Create destination string
|
|
my $dest = "root@" . $node;
|
|
|
|
# SCP directory entry file over to HCP
|
|
my $out = `scp $srcFile $dest:$trgtFile`;
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getRootDiskAddr
|
|
|
|
Description : Get root disk address of given node
|
|
Arguments : Node name
|
|
Returns : Root disk address
|
|
Example : my $deviceNode = xCAT::zvmUtils->getRootDiskAddr($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getRootDiskAddr {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get device node mounted on (/)
|
|
my $out = `ssh $node "mount" | grep "/ type" | sed 's/1//'`;
|
|
my @parms = split( " ", $out );
|
|
@parms = split( "/", xCAT::zvmUtils->trimStr( $parms[0] ) );
|
|
my $devNode = $parms[0];
|
|
|
|
# Get disk address
|
|
$out =
|
|
`ssh $node "cat /proc/dasd/devices" | grep "$devNode" | sed 's/(ECKD)//' | sed 's/(FBA )//' | sed 's/0.0.//'`;
|
|
@parms = split( " ", $out );
|
|
return ( $parms[0] );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 disableEnableDisk
|
|
|
|
Description : Disable/enable a disk for given node
|
|
Arguments : Device address
|
|
Option (-d|-e)
|
|
Returns : Nothing
|
|
Example : my $out = xCAT::zvmUtils->disableEnableDisk($callback, $node, $option, $devAddr);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub disableEnableDisk {
|
|
|
|
# Get inputs
|
|
my ( $class, $callback, $node, $option, $devAddr ) = @_;
|
|
|
|
# Disable/enable disk
|
|
if ( $option eq "-d" || $option eq "-e" ) {
|
|
my $out = `ssh $node "chccwdev $option $devAddr"`;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getMdisks
|
|
|
|
Description : Get MDisk statements in user directory entry
|
|
Arguments : Node
|
|
Returns : MDisk statements
|
|
Example : my @mdisks = xCAT::zvmUtils->getMdisks($callback, $node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getMdisks {
|
|
|
|
# Get inputs
|
|
my ( $class, $callback, $node ) = @_;
|
|
|
|
# Directory where executables are
|
|
my $dir = '/opt/zhcp/bin';
|
|
|
|
# Get HCP
|
|
my @propNames = ( 'hcp', 'userid' );
|
|
my $propVals = xCAT::zvmUtils->getNodeProps( 'zvm', $node, @propNames );
|
|
my $hcp = $propVals->{'hcp'};
|
|
|
|
# Get node userID
|
|
my $userId = $propVals->{'userid'};
|
|
|
|
my $out = `ssh $hcp "$dir/getuserentry $userId" | grep "MDISK"`;
|
|
|
|
# Get MDISK statements
|
|
my @lines = split( '\n', $out );
|
|
my @disks;
|
|
foreach (@lines) {
|
|
$_ = xCAT::zvmUtils->trimStr($_);
|
|
|
|
# Save MDISK statements
|
|
push( @disks, $_ );
|
|
}
|
|
|
|
return (@disks);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getUserEntryWODisk
|
|
|
|
Description : Get user directory entry for given node
|
|
without MDISK statments, and save it to a file
|
|
Arguments : Node
|
|
File name to save user entry under
|
|
Returns : Nothing
|
|
Example : my $out = xCAT::zvmUtils->getUserEntryWODisk($callback, $node, $file);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getUserEntryWODisk {
|
|
|
|
# Get inputs
|
|
my ( $class, $callback, $node, $file ) = @_;
|
|
|
|
# Directory where executables are
|
|
my $dir = '/opt/zhcp/bin';
|
|
|
|
# Get node properties from 'zvm' table
|
|
my @propNames = ( 'hcp', 'userid' );
|
|
my $propVals = xCAT::zvmUtils->getNodeProps( 'zvm', $node, @propNames );
|
|
|
|
# Get HCP
|
|
my $hcp = $propVals->{'hcp'};
|
|
if ( !$hcp ) {
|
|
xCAT::zvmUtils->printLn( $callback, "Error: Missing node HCP" );
|
|
return;
|
|
}
|
|
|
|
# Get node userID
|
|
my $userId = $propVals->{'userid'};
|
|
if ( !$userId ) {
|
|
xCAT::zvmUtils->printLn( $callback, "Error: Missing node ID" );
|
|
return;
|
|
}
|
|
|
|
my $out = `ssh $hcp "$dir/getuserentry $userId" | grep -v "MDISK"`;
|
|
|
|
# Create a file to save output
|
|
open( DIRENTRY, ">$file" );
|
|
|
|
# Save output
|
|
my @lines = split( '\n', $out );
|
|
foreach (@lines) {
|
|
|
|
# Trim line
|
|
$_ = xCAT::zvmUtils->trimStr($_);
|
|
|
|
# Write directory entry into file
|
|
print DIRENTRY "$_\n";
|
|
}
|
|
close(DIRENTRY);
|
|
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 appendHostname
|
|
|
|
Description : Append specified hostname in front of a given string
|
|
Arguments : Hostname
|
|
String
|
|
Returns : String with hostname in front
|
|
Example : my $str = xCAT::zvmUtils->appendHostname($hostname, $str);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub appendHostname {
|
|
my ( $class, $hostname, $str ) = @_;
|
|
|
|
# Append hostname to every line
|
|
my @outLn = split( "\n", $str );
|
|
$str = "";
|
|
foreach (@outLn) {
|
|
$str .= "$hostname: " . $_ . "\n";
|
|
}
|
|
|
|
return $str;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 checkOutput
|
|
|
|
Description : Check return of given output
|
|
Arguments : Output string
|
|
Returns : 0 Good output
|
|
-1 Bad output
|
|
Example : my $ans = xCAT::zvmUtils->checkOutput($callback, $out);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub checkOutput {
|
|
my ( $class, $callback, $out ) = @_;
|
|
|
|
# Check output string
|
|
my @outLn = split( "\n", $out );
|
|
foreach (@outLn) {
|
|
|
|
# If output contains 'Failed' return -1
|
|
if ( $_ =~ m/Failed/i ) {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 isAddressUsed
|
|
|
|
Description : Check if given address is used
|
|
Arguments : Node
|
|
Disk address
|
|
Returns : 0 Address used
|
|
-1 Address not used
|
|
Example : my $ans = xCAT::zvmUtils->isAddressUsed($node, $address);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub isAddressUsed {
|
|
my ( $class, $node, $address ) = @_;
|
|
|
|
# Search for disk address
|
|
my $out = `ssh -o ConnectTimeout=5 $node "vmcp q v dasd" | grep "DASD $address"`;
|
|
if ($out) {
|
|
return 0;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getMacID
|
|
|
|
Description : Get MACID from /opt/zhcp/conf/next_macid on HCP
|
|
Arguments : HCP node
|
|
Returns : MACID
|
|
Example : my $macId = xCAT::zvmUtils->getMacID($hcp);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getMacID {
|
|
my ( $class, $hcp ) = @_;
|
|
|
|
# Check /opt/zhcp/conf directory on HCP
|
|
my $out = `ssh -o ConnectTimeout=5 $hcp "test -d /opt/zhcp/conf && echo 'Directory exists'"`;
|
|
if ( $out =~ m/Directory exists/i ) {
|
|
|
|
# Check next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "test -e /opt/zhcp/conf/next_macid && echo 'File exists'"`;
|
|
if ( $out =~ m/File exists/i ) {
|
|
|
|
# Do nothing
|
|
}
|
|
else {
|
|
|
|
# Create next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "echo 'FFFFFF' > /opt/zhcp/conf/next_macid"`;
|
|
}
|
|
}
|
|
else {
|
|
|
|
# Create /opt/zhcp/conf directory
|
|
# Create next_mac -- Contains next MAC address to use
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "mkdir /opt/zhcp/conf"`;
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "echo 'FFFFFF' > /opt/zhcp/conf/next_macid"`;
|
|
}
|
|
|
|
# Read /opt/zhcp/conf/next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "cat /opt/zhcp/conf/next_macid"`;
|
|
my $macId = xCAT::zvmUtils->trimStr($out);
|
|
|
|
return $macId;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 generateMacId
|
|
|
|
Description : Generate a MACID
|
|
Arguments : HCP node
|
|
Returns : MACID
|
|
Example : my $macId = xCAT::zvmUtils->generateMacId($hcp);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub generateMacId {
|
|
my ( $class, $hcp ) = @_;
|
|
|
|
# Check /opt/zhcp/conf directory on HCP
|
|
my $out = `ssh -o ConnectTimeout=5 $hcp "test -d /opt/zhcp/conf && echo 'Directory exists'"`;
|
|
if ( $out =~ m/Directory exists/i ) {
|
|
|
|
# Check next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "test -e /opt/zhcp/conf/next_macid && echo 'File exists'"`;
|
|
if ( $out =~ m/File exists/i ) {
|
|
|
|
# Do nothing
|
|
}
|
|
else {
|
|
|
|
# Create next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "echo 'FFFFFF' > /opt/zhcp/conf/next_macid"`;
|
|
}
|
|
}
|
|
else {
|
|
|
|
# Create /opt/zhcp/conf directory
|
|
# Create next_mac -- Contains next MAC address to use
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "mkdir /opt/zhcp/conf"`;
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "echo 'FFFFFF' > /opt/zhcp/conf/next_macid"`;
|
|
}
|
|
|
|
# Read /opt/zhcp/conf/next_macid file
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "cat /opt/zhcp/conf/next_macid"`;
|
|
my $macId = xCAT::zvmUtils->trimStr($out);
|
|
my $int;
|
|
|
|
if ($macId) {
|
|
|
|
# Convert hexadecimal -- decimal
|
|
$int = hex($macId);
|
|
$macId = sprintf( "%d", $int );
|
|
|
|
# Generate new MAC suffix
|
|
$macId = $macId - 1;
|
|
|
|
# Convert decimal -- hexadecimal
|
|
$macId = sprintf( "%X", $macId );
|
|
|
|
# Save new MACID
|
|
$out = `ssh -o ConnectTimeout=5 $hcp "echo $macId > /opt/zhcp/conf/next_macid"`;
|
|
}
|
|
|
|
return $macId;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 createMacAddr
|
|
|
|
Description : Create a MAC address using HCP MAC prefix of given node
|
|
and given MAC suffix
|
|
Arguments : Node
|
|
MAC suffix
|
|
Returns : MAC address
|
|
Example : my $mac = xCAT::zvmUtils->createMacAddr($node, $suffix);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub createMacAddr {
|
|
my ( $class, $node, $suffix ) = @_;
|
|
|
|
# Get node properties from 'zvm' table
|
|
my @propNames = ('hcp');
|
|
my $propVals = xCAT::zvmUtils->getNodeProps( 'zvm', $node, @propNames );
|
|
|
|
# Get HCP
|
|
my $hcp = $propVals->{'hcp'};
|
|
if ( !$hcp ) {
|
|
return -1;
|
|
}
|
|
|
|
# Get HCP MAC address
|
|
# Get the first MAC address found
|
|
my $out = `ssh -o ConnectTimeout=5 $hcp "vmcp q nic" | grep "MAC"`;
|
|
my @lines = split( "\n", $out );
|
|
my @vars = split( " ", $lines[0] );
|
|
|
|
# Extract MAC prefix
|
|
my $prefix = $vars[1];
|
|
$prefix = xCAT::zvmUtils->replaceStr( $prefix, "-", "" );
|
|
$prefix = substr( $prefix, 0, 6 );
|
|
|
|
# Generate MAC address of source node
|
|
my $mac = $prefix . $suffix;
|
|
|
|
# If length is less than 12, append a zero
|
|
if ( length($mac) != 12 ) {
|
|
$mac = "0" . $mac;
|
|
}
|
|
|
|
$mac =
|
|
substr( $mac, 0, 2 ) . ":"
|
|
. substr( $mac, 2, 2 ) . ":"
|
|
. substr( $mac, 4, 2 ) . ":"
|
|
. substr( $mac, 6, 2 ) . ":"
|
|
. substr( $mac, 8, 2 ) . ":"
|
|
. substr( $mac, 10, 2 );
|
|
|
|
return $mac;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getSn
|
|
|
|
Description : Get serial number for given node
|
|
Arguments : Node
|
|
Returns : Serial number
|
|
Example : my $sn = xCAT::zvmUtils->getSn($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getSn {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get node properties from 'zvm' table
|
|
my @propNames = ('hcp');
|
|
my $propVals = xCAT::zvmUtils->getNodeProps( 'zvm', $node, @propNames );
|
|
|
|
# Get HCP
|
|
my $hcp = $propVals->{'hcp'};
|
|
|
|
# Look in /proc/sysinfo to get serial number
|
|
my $out = `ssh $hcp "cat /proc/sysinfo" | egrep -i "manufacturer|type|model|sequence code|plant"`;
|
|
my @props = split( '\n', $out );
|
|
my $man = $props[0];
|
|
my $type = $props[1];
|
|
my $model = $props[2];
|
|
my $sn = $props[3];
|
|
my $plant = $props[4];
|
|
|
|
# Trim and get property value
|
|
# Get manufacturer
|
|
@props = split( ':', $man );
|
|
$man = xCAT::zvmUtils->trimStr( $props[1] );
|
|
|
|
# Get machine type
|
|
@props = split( ':', $type );
|
|
$type = xCAT::zvmUtils->trimStr( $props[1] );
|
|
|
|
# Get model
|
|
@props = split( ': ', $model );
|
|
$model = xCAT::zvmUtils->trimStr( $props[1] );
|
|
@props = split( ' ', $model );
|
|
$model = xCAT::zvmUtils->trimStr( $props[0] );
|
|
|
|
# Get sequence number
|
|
@props = split( ':', $sn );
|
|
$sn = xCAT::zvmUtils->trimStr( $props[1] );
|
|
|
|
# Get plant
|
|
@props = split( ':', $plant );
|
|
$plant = xCAT::zvmUtils->trimStr( $props[1] );
|
|
|
|
return ("$man-$type-$model-$plant-$sn");
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getOs
|
|
|
|
Description : Get operating system name of given node
|
|
Arguments : Node
|
|
Returns : Operating system name
|
|
Example : my $osName = xCAT::zvmUtils->getOs($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getOs {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get operating system
|
|
my $out = `ssh -o ConnectTimeout=10 $node "cat /etc/*release"`;
|
|
my @results = split( '\n', $out );
|
|
return ( xCAT::zvmUtils->trimStr( $results[0] ) );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getArch
|
|
|
|
Description : Get architecture of given node
|
|
Arguments : Node
|
|
Returns : Architecture of node
|
|
Example : my $arch = xCAT::zvmUtils->getArch($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getArch {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get host using VMCP
|
|
my $arch = `ssh $node "uname -p"`;
|
|
|
|
return ( xCAT::zvmUtils->trimStr($arch) );
|
|
}
|