Added option under rinv to collect z/VM user profile names.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@16861 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
phamt 2013-07-02 20:34:09 +00:00
parent 2e3dd4761e
commit dc432e7139

View File

@ -7940,6 +7940,28 @@ sub inventoryHypervisor {
xCAT::zvmUtils->printSyslog("smcli System_Disk_Accessibility -T $hcpUserId -k $devNo");
}
# userprofilenames
elsif ( $args->[0] eq "--userprofilenames" ) {
my $argsSize = @{$args};
if ($argsSize != 1) {
xCAT::zvmUtils->printLn( $callback, "$node: (Error) Wrong number of parameters" );
return;
}
# Use Directory_Manager_Search_DM to find user profiles
my $tmp = `ssh $::SUDOER\@$hcp "$::SUDO $::DIR/smcli Directory_Manager_Search_DM -T $hcpUserId -s PROFILE"`;
my @profiles = split('\n', $tmp);
foreach (@profiles) {
# Extract user profile
if ($_) {
$_ =~ /([a-zA-Z]*):*/;
$str .= "$1\n";
}
}
xCAT::zvmUtils->printSyslog("smcli Directory_Manager_Search_DM -T $hcpUserId -s PROFILE");
}
# vlanstats [vlan_id] [user_id] [device] [version]
elsif ( $args->[0] eq "--vlanstats" ) {
# This is not completed!