00461de0b4
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4435 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
407 lines
9.4 KiB
Perl
407 lines
9.4 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#-------------------------------------------------------
|
|
|
|
=head1
|
|
|
|
This is a CP utility plugin for the z/VM.
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
package xCAT::zvmCPUtils;
|
|
use xCAT::zvmUtils;
|
|
use strict;
|
|
use warnings;
|
|
1;
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getUserId
|
|
|
|
Description : Get userID for specified node
|
|
Arguments : Node name
|
|
Returns : UserID
|
|
Example : my $userID = xCAT::zvmCPUtils->getUserId($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getUserId {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get userId using VMCP
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q userid`;
|
|
my @results = split( ' ', $out );
|
|
return ( $results[0] );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getSn
|
|
|
|
Description : Get serial number for specified node
|
|
Arguments : Node name
|
|
Returns : Serial number
|
|
Example : my $sn = xCAT::zvmCPUtils->getSn($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getSn {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get HCP
|
|
my $hcp = xCAT::zvmUtils->getTabProp( 'zvm', $node, '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->trim( $props[1] );
|
|
|
|
# Get machine type
|
|
@props = split( ':', $type );
|
|
$type = xCAT::zvmUtils->trim( $props[1] );
|
|
|
|
# Get model
|
|
@props = split( ': ', $model );
|
|
$model = xCAT::zvmUtils->trim( $props[1] );
|
|
@props = split( ' ', $model );
|
|
$model = xCAT::zvmUtils->trim( $props[0] );
|
|
|
|
# Get sequence number
|
|
@props = split( ':', $sn );
|
|
$sn = xCAT::zvmUtils->trim( $props[1] );
|
|
|
|
# Get plant
|
|
@props = split( ':', $plant );
|
|
$plant = xCAT::zvmUtils->trim( $props[1] );
|
|
|
|
return ("$man-$type-$model-$plant-$sn");
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getHost
|
|
|
|
Description : Get z/VM host for specified node
|
|
Arguments : Node name
|
|
Returns : z/VM host
|
|
Example : my $host = xCAT::zvmCPUtils->getHost($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getHost {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get host using VMCP
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q userid`;
|
|
my @results = split( ' ', $out );
|
|
my $host = $results[2];
|
|
|
|
return ($host);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getOs
|
|
|
|
Description : Get operating system name of specified node
|
|
Arguments : Node name
|
|
Returns : Operating system name
|
|
Example : my $osName = xCAT::zvmCPUtils->getOs($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getOs {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get operating system
|
|
my $out = `ssh -o ConnectTimeout=5 $node cat /etc/*release`;
|
|
my @results = split( '\n', $out );
|
|
return ( xCAT::zvmUtils->trim( $results[0] ) );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getArch
|
|
|
|
Description : Get architecture of specified node
|
|
Arguments : Node name
|
|
Returns : Architecture of node
|
|
Example : my $arch = xCAT::zvmCPUtils->getArch($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getArch {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get host using VMCP
|
|
my $arch = `ssh $node uname -p`;
|
|
|
|
return ( xCAT::zvmUtils->trim($arch) );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getPrivileges
|
|
|
|
Description : Get privilege classes of specified node
|
|
Arguments : Node name
|
|
Returns : Privilege classes
|
|
Example : my $memory = xCAT::zvmCPUtils->getPrivileges($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getPrivileges {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get memory configuration
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q priv`;
|
|
my @out = split( '\n', $out );
|
|
$out[1] = xCAT::zvmUtils->trim( $out[1] );
|
|
$out[2] = xCAT::zvmUtils->trim( $out[2] );
|
|
my $str = " $out[1]\n $out[2]\n";
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getMemory
|
|
|
|
Description : Get memory configuration of specified node
|
|
Arguments : Node name
|
|
Returns : Memory configuration
|
|
Example : my $memory = xCAT::zvmCPUtils->getMemory($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getMemory {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get memory configuration
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q virtual storage`;
|
|
my @out = split( '=', $out );
|
|
return ( xCAT::zvmUtils->trim( $out[1] ) );
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getCpu
|
|
|
|
Description : Get processor configuration of specified node
|
|
Arguments : Node name
|
|
Returns : Processor configuration
|
|
Example : my $proc = xCAT::zvmCPUtils->getCpu($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getCpu {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get processors configuration
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q virtual cpus`;
|
|
my $str = xCAT::zvmUtils->tabStr($out);
|
|
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getNic
|
|
|
|
Description : Get network interface card (NIC) configuration of specified node
|
|
Arguments : Node name
|
|
Returns : NIC configuration
|
|
Example : my $nic = xCAT::zvmCPUtils->getNic($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getNic {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get NIC configuration
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q virtual nic`;
|
|
my $str = xCAT::zvmUtils->tabStr($out);
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getDisks
|
|
|
|
Description : Get disk configuration of specified node
|
|
Arguments : Node name
|
|
Returns : Disk configuration
|
|
Example : my $storage = xCAT::zvmCPUtils->getDisks($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getDisks {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get disks configuration
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q virtual dasd`;
|
|
my $str = xCAT::zvmUtils->tabStr($out);
|
|
return ($str);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 loadVmcp
|
|
|
|
Description : Load VMCP module for specified node
|
|
Arguments : Node name
|
|
Returns : Nothing
|
|
Example : my $out = xCAT::zvmCPUtils->loadVmcp($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub loadVmcp {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get VSWITCH of master node
|
|
my $out = `ssh -o ConnectTimeout=5 $node modprobe vmcp`;
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 getVswitchId
|
|
|
|
Description : Get VSWITCH ID for specified node
|
|
Arguments : Node name
|
|
Returns : VSWITCH IDs
|
|
Example : my @vswitch = xCAT::zvmCPUtils->getVswitchId($node);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub getVswitchId {
|
|
|
|
# Get inputs
|
|
my ( $class, $node ) = @_;
|
|
|
|
# Get VSWITCH of master node
|
|
my $out = `ssh -o ConnectTimeout=5 $node vmcp q nic | grep "VSWITCH"`;
|
|
my @lines = split( '\n', $out );
|
|
my @parms;
|
|
my @vswitch;
|
|
foreach (@lines) {
|
|
@parms = split( ' ', $_ );
|
|
push( @vswitch, $parms[4] );
|
|
}
|
|
|
|
return @vswitch;
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 grantVSwitch
|
|
|
|
Description : Grant access to VSwitch for specified user ID
|
|
Arguments : zHCP node
|
|
User ID
|
|
Vswitch ID
|
|
Returns : Output string
|
|
Example : my $out = xCAT::zvmCPUtils->grantVswitch($callback, $hcp, $userId, $vswitchId);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub grantVSwitch {
|
|
|
|
# Get inputs
|
|
my ( $class, $callback, $hcp, $userId, $vswitchId ) = @_;
|
|
|
|
my $out = `ssh $hcp vmcp set vswitch $vswitchId grant $userId`;
|
|
$out = xCAT::zvmUtils->trim($out);
|
|
my $retStr;
|
|
if ( $out eq "Command complete" ) {
|
|
$retStr = "Done\n";
|
|
}
|
|
else {
|
|
$retStr = "Failed\n";
|
|
return ($retStr);
|
|
}
|
|
|
|
return ($retStr);
|
|
}
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 flashCopy
|
|
|
|
Description : Flash copy disks
|
|
Arguments : Node
|
|
Source address
|
|
Target address
|
|
Returns : Output string
|
|
Example : my $out = xCAT::zvmCPUtils->flashCopy($node, $srcAddr, $targetAddr);
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub flashCopy {
|
|
|
|
# Get inputs
|
|
my ( $class, $node, $srcAddr, $targetAddr ) = @_;
|
|
|
|
my $out = `ssh $node vmcp flashcopy $srcAddr 0 end to $targetAddr 0 end`;
|
|
$out = xCAT::zvmUtils->trim($out);
|
|
my $retStr;
|
|
|
|
# If return string contains 'Command complete'
|
|
if ( $out =~ m/Command complete/i ) {
|
|
|
|
# Done
|
|
$retStr = "Done\n";
|
|
}
|
|
else {
|
|
$retStr = "Failed\n";
|
|
return ($retStr);
|
|
}
|
|
|
|
return ($retStr);
|
|
}
|
|
|