Check in Perl modules for z/VM support.
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4280 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
phamt
parent
6cfeda18eb
commit
7743862e8b
335
perl-xCAT/xCAT/zvmCPUtils.pm
Normal file
335
perl-xCAT/xCAT/zvmCPUtils.pm
Normal file
@ -0,0 +1,335 @@
|
||||
# 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;
|
||||
}
|
||||
729
perl-xCAT/xCAT/zvmUtils.pm
Normal file
729
perl-xCAT/xCAT/zvmUtils.pm
Normal file
@ -0,0 +1,729 @@
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head1
|
||||
|
||||
This is a utility plugin for the z/VM.
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
package xCAT::zvmUtils;
|
||||
use xCAT::MsgUtils;
|
||||
use xCAT::Utils;
|
||||
use xCAT::Table;
|
||||
use strict;
|
||||
use warnings;
|
||||
1;
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getTabProp
|
||||
Description : Get node property from specified table
|
||||
Arguments : Table
|
||||
Node
|
||||
Property
|
||||
Returns : Property from specifed table
|
||||
Example : my $prop = xCAT::zvmUtils->getTabProp($tabName, $node, $propName);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub getTabProp {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $tabName, $node, $propName ) = @_;
|
||||
|
||||
# Get specified table
|
||||
my $tab = xCAT::Table->new($tabName);
|
||||
|
||||
# Get value from column
|
||||
my $entry = $tab->getNodeAttribs( $node, [$propName] );
|
||||
my $propVal = $entry->{$propName};
|
||||
return ($propVal);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 setTabProp
|
||||
|
||||
Description : Set node property from specified table
|
||||
Arguments : Table
|
||||
Node
|
||||
Property
|
||||
Returns : Nothing
|
||||
Example : xCAT::zvmUtils->setTabProp($tabName, $node, $propName, $propVal);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub setTabProp {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $tabName, $node, $propName, $propVal ) = @_;
|
||||
|
||||
# Get specified 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 delTabNode
|
||||
|
||||
Description : Delete node from specified table
|
||||
Arguments : Table
|
||||
Node
|
||||
Returns : Nothing
|
||||
Example : xCAT::zvmUtils->delTabNode($tabName, $node);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub delTabNode {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $tabName, $node ) = @_;
|
||||
|
||||
# Get specified table
|
||||
my $tab = xCAT::Table->new( $tabName, -create => 1, -autocommit => 0 );
|
||||
|
||||
# Delete node from table
|
||||
my %key = ( 'node' => $node );
|
||||
$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 trim
|
||||
|
||||
Description : Trim whitespaces in string
|
||||
Arguments : String
|
||||
Returns : Trimmed string
|
||||
Example : my $str = xCAT::zvmUtils->trim($str);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub trim {
|
||||
|
||||
# Get string
|
||||
my ( $class, $str ) = @_;
|
||||
|
||||
# Trim right
|
||||
$str =~ s/\s*$//;
|
||||
|
||||
# Trim left
|
||||
$str =~ s/^\s*//;
|
||||
|
||||
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 : Determine if specified node is in '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) {
|
||||
$id = $_->{'userid'};
|
||||
|
||||
# Get userID if one is not in the table
|
||||
if ($id) {
|
||||
return ('TRUE');
|
||||
}
|
||||
}
|
||||
|
||||
return ('FALSE');
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getIp
|
||||
|
||||
Description : Get IP address of specified node
|
||||
Arguments : Node
|
||||
Returns : IP address
|
||||
Example : my $ip = xCAT::zvmUtils->getIp($node);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub getIp {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $node ) = @_;
|
||||
|
||||
# Get IP address
|
||||
my $out = `ssh $node ifconfig | grep 'inet addr:'| grep -v '127.0.0.1' | cut -d: -f2`;
|
||||
my @parms = split( ' ', $out );
|
||||
|
||||
return ( $parms[0] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getIfcfg
|
||||
|
||||
Description : Get /etc/sysconfig/network/ifcfg-qeth file name for specified node
|
||||
Arguments : Node
|
||||
Returns : /etc/sysconfig/network/ifcfg-qeth file name
|
||||
Example : my $ifcfg = xCAT::zvmUtils->getIfcfg($node);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub getIfcfg {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $node ) = @_;
|
||||
|
||||
# Get /etc/sysconfig/network/ifcfg-qeth file name
|
||||
my $out = `ssh $node ls /etc/sysconfig/network/ifcfg-qeth*`;
|
||||
my @parms = split( '\n', $out );
|
||||
|
||||
return ( $parms[0] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getIpBroadcast
|
||||
|
||||
Description : Get IP broadcast of specified node
|
||||
Arguments : Node
|
||||
Returns : IP broadcast
|
||||
Example : my $broadcast = xCAT::zvmUtils->getIpBroadcast($node);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub getIpBroadcast {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $node ) = @_;
|
||||
|
||||
# Get IP address
|
||||
my $out = `ssh $node ifconfig | grep 'Bcast:'| cut -d: -f3`;
|
||||
my @parms = split( ' ', $out );
|
||||
|
||||
return ( $parms[0] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getDns
|
||||
|
||||
Description : Get DNS server of specified 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 $node cat /etc/resolv.conf | grep 'nameserver'`;
|
||||
my @parms = split( ' ', $out );
|
||||
|
||||
return ( $parms[1] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getGateway
|
||||
|
||||
Description : Get default gateway of specified 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 $node cat /etc/sysconfig/network/routes`;
|
||||
my @parms = split( ' ', $out );
|
||||
return ( $parms[1] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 sendFile
|
||||
|
||||
Description : SCP file to specified node
|
||||
Arguments : Node
|
||||
File
|
||||
Returns : Nothing
|
||||
Example : my $out = xCAT::zvmUtils->sendFile($node, $file);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub sendFile {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $node, $file ) = @_;
|
||||
|
||||
# Create destination string
|
||||
my $dest = "root@";
|
||||
$dest .= $node;
|
||||
|
||||
# SCP directory entry file over to HCP
|
||||
my $out = `scp $file $dest:$file`;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 getRootNode
|
||||
|
||||
Description : Get device node mounted on (/)
|
||||
Arguments : Node name
|
||||
Returns : Device node mounted on (/)
|
||||
Example : my $deviceNode = xCAT::zvmUtils->getRootNode($node);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub getRootNode {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $node ) = @_;
|
||||
|
||||
# Get device node mounted on (/)
|
||||
my $out = `ssh $node mount | grep "/ type"`;
|
||||
my @parms = split( ' ', $out );
|
||||
$parms[0] = xCAT::zvmUtils->trim( $parms[0] );
|
||||
|
||||
return ( $parms[0] );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 disableEnableDisk
|
||||
|
||||
Description : Disable or enable disk for specified node
|
||||
Arguments : Node
|
||||
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 or enable disk ---
|
||||
if ( $option eq "-d" || $option eq "-e" ) {
|
||||
|
||||
# Do nothing
|
||||
}
|
||||
else {
|
||||
return;
|
||||
}
|
||||
|
||||
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 $hcp = xCAT::zvmUtils->getTabProp( 'zvm', $node, 'hcp' );
|
||||
if ( !$hcp ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: No HCP defined for this node" );
|
||||
return;
|
||||
}
|
||||
|
||||
# Get node userID
|
||||
my $userId = xCAT::zvmUtils->getTabProp( 'zvm', $node, 'userid' );
|
||||
if ( !$userId ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: Missing node ID" );
|
||||
return;
|
||||
}
|
||||
|
||||
my $out = `ssh $hcp $dir/getimagerecords $userId`;
|
||||
|
||||
# Get MDISK statements
|
||||
my @lines = split( '\n', $out );
|
||||
my @disks;
|
||||
foreach (@lines) {
|
||||
$_ = xCAT::zvmUtils->trim($_);
|
||||
|
||||
if ( $_ =~ m/MDISK/i ) {
|
||||
|
||||
# Save MDISK statements
|
||||
push( @disks, $_ );
|
||||
}
|
||||
}
|
||||
return (@disks);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=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::zvmUtils->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 = " Operation Successful\n";
|
||||
}
|
||||
else {
|
||||
$retStr = " Operation Failed\n";
|
||||
return ($retStr);
|
||||
}
|
||||
|
||||
return ($retStr);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 readConfigFile
|
||||
|
||||
Description : Read in configuration file
|
||||
Arguments : Node
|
||||
Configuration file
|
||||
Returns : Hash arrary containing node configuration
|
||||
Example : my %nodeConfig = xCAT::zvmUtils->readConfigFile($callback, $node, $file);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub readConfigFile {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $callback, $node, $file ) = @_;
|
||||
|
||||
# Hash array containing new node configuration
|
||||
my %target;
|
||||
|
||||
# Get configuration file
|
||||
if ( !$file ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: Missing configuration file" );
|
||||
return;
|
||||
}
|
||||
else {
|
||||
|
||||
# Open configuration file
|
||||
open( CONFIG, $file ) || die("Error: Could not open file");
|
||||
my @configFile = <CONFIG>;
|
||||
close(CONFIG);
|
||||
|
||||
# Read configuration file
|
||||
my @parms;
|
||||
my $pattern = $node . ":";
|
||||
my $save = 0;
|
||||
foreach (@configFile) {
|
||||
$_ = xCAT::zvmUtils->trim($_);
|
||||
|
||||
# If the line contains specified node
|
||||
if ( $_ =~ m/$pattern/i ) {
|
||||
|
||||
# Save configuration
|
||||
$save = 1;
|
||||
|
||||
# Find ':' and replace with ''
|
||||
$_ =~ s/://g;
|
||||
$target{"Hostname"} = $_;
|
||||
}
|
||||
|
||||
# Stop saving at next line containing ':'
|
||||
if ( $save == 1 && $_ =~ m/:/i ) {
|
||||
$save = 0;
|
||||
}
|
||||
|
||||
# Save configuration
|
||||
if ( $save == 1 ) {
|
||||
|
||||
# Create hash array
|
||||
@parms = split( "=", $_ );
|
||||
$target{"$parms[0]"} = "$parms[1]";
|
||||
}
|
||||
|
||||
} # End of foreach
|
||||
} # End of else
|
||||
|
||||
# If there is not a new node configuration
|
||||
if ( !$target{"Hostname"} ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: Node configuration not found" );
|
||||
return;
|
||||
}
|
||||
|
||||
return %target;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 saveDirEntryNoDisk
|
||||
|
||||
Description : Get user directory entry for specified node,
|
||||
remove the MDISK statments, and save it to a file
|
||||
Arguments : Node name
|
||||
File name
|
||||
Returns : Nothing
|
||||
Example : my $out = xCAT::zvmUtils->saveDirEntryNoDisk($callback, $node, $file);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub saveDirEntryNoDisk {
|
||||
|
||||
# Get inputs
|
||||
my ( $class, $callback, $node, $file ) = @_;
|
||||
|
||||
# Directory where executables are
|
||||
my $dir = '/opt/zhcp/bin';
|
||||
|
||||
# Get HCP
|
||||
my $hcp = xCAT::zvmUtils->getTabProp( 'zvm', $node, 'hcp' );
|
||||
if ( !$hcp ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: No HCP defined for this node" );
|
||||
return;
|
||||
}
|
||||
|
||||
# Get node userID
|
||||
my $userId = xCAT::zvmUtils->getTabProp( 'zvm', $node, 'userid' );
|
||||
if ( !$userId ) {
|
||||
xCAT::zvmUtils->printLn( $callback, "Error: Missing node ID" );
|
||||
return;
|
||||
}
|
||||
|
||||
my $out = `ssh $hcp $dir/getimagerecords $userId`;
|
||||
|
||||
# Create a file to save output
|
||||
open( DIRENTRY, ">$file" );
|
||||
|
||||
# Remove MDISK statement
|
||||
my @lines = split( '\n', $out );
|
||||
foreach (@lines) {
|
||||
|
||||
# Trim line
|
||||
$_ = xCAT::zvmUtils->trim($_);
|
||||
|
||||
if ( $_ =~ m/MDISK/i ) {
|
||||
|
||||
# Do nothing
|
||||
}
|
||||
else {
|
||||
|
||||
# Write directory entry into file
|
||||
print DIRENTRY "$_\n";
|
||||
}
|
||||
}
|
||||
close(DIRENTRY);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 appendHostname
|
||||
|
||||
Description : Append specified hostname in front of every line
|
||||
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 isOutputGood
|
||||
|
||||
Description : Check output
|
||||
Arguments : Output string
|
||||
Returns : 0 Good output
|
||||
-1 Bad output
|
||||
Example : my $ans = xCAT::zvmUtils->isOutputGood($callback, $out);
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------
|
||||
sub isOutputGood {
|
||||
my ( $class, $callback, $out ) = @_;
|
||||
|
||||
# Check output string
|
||||
my @outLn = split( "\n", $out );
|
||||
foreach (@outLn) {
|
||||
|
||||
# If output contains 'Operation Failed' return -1
|
||||
if ( $_ =~ m/Operation Failed/i ) {
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------
|
||||
|
||||
=head3 isAddressUsed
|
||||
|
||||
Description : Check if specified address is used
|
||||
Arguments : 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 $node vmcp q v dasd | grep "DASD $address"`;
|
||||
if ($out) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
return -1;
|
||||
}
|
||||
1336
xCAT-server/lib/xcat/plugins/zvm.pm
Normal file
1336
xCAT-server/lib/xcat/plugins/zvm.pm
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user