336 lines
7.9 KiB
Perl
336 lines
7.9 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;
|
||
|
|
}
|