modify usage for 'chvm' and 'mkvm', remove debug msg
This commit is contained in:
		@@ -1749,8 +1749,8 @@ sub query_cec_info {
 | 
			
		||||
    my $args    = $request->{opt};
 | 
			
		||||
    my @td = ();
 | 
			
		||||
    my @result = ();
 | 
			
		||||
    print Dumper($request);
 | 
			
		||||
    print Dumper($hash);
 | 
			
		||||
    #print Dumper($request);
 | 
			
		||||
    #print Dumper($hash);
 | 
			
		||||
    while (my ($mtms,$h) = each(%$hash) ) {
 | 
			
		||||
        while (my ($name, $d) = each (%$h)) {
 | 
			
		||||
            @td = @$d;
 | 
			
		||||
 
 | 
			
		||||
@@ -207,6 +207,7 @@ my %usage = (
 | 
			
		||||
       mkvm noderange [--full]
 | 
			
		||||
       mkvm noderange [vmcpus=min/req/max] [vmmemory=min/req/max]
 | 
			
		||||
                      [vmphyslots=drc_index1,drc_index2...] [vmothersetting=hugepage:N,bsr:N]
 | 
			
		||||
                      [vmnics=vlan1,vlan2] [vmstorage=<N|viosnode:slotid>] [--vios]
 | 
			
		||||
    For KVM
 | 
			
		||||
       mkvm noderange -m|--master mastername -s|--size disksize -f|--force
 | 
			
		||||
    For zVM
 | 
			
		||||
@@ -241,6 +242,8 @@ my %usage = (
 | 
			
		||||
       chvm <noderange> [lparname=<*|name>]
 | 
			
		||||
       chvm <noderange> [vmcpus=min/req/max] [vmmemory=min/req/max]
 | 
			
		||||
                        [vmphyslots=drc_index1,drc_index2...] [vmothersetting=hugepage:N,bsr:N]
 | 
			
		||||
                        [vmnics=vlan1,vlan2] [vmstorage=<N|viosnode:slotid>] [--vios]
 | 
			
		||||
       chvm <noderange> [del_vadapter=slotid]
 | 
			
		||||
   VMware specific:
 | 
			
		||||
       chvm <noderange> [-a size][-d disk][-p disk][--resize disk=size][--cpus count][--mem memory]
 | 
			
		||||
   zVM specific:
 | 
			
		||||
 
 | 
			
		||||
@@ -17,7 +17,7 @@ use File::Path;
 | 
			
		||||
use File::Copy;
 | 
			
		||||
use Fcntl qw/:flock/;
 | 
			
		||||
 | 
			
		||||
use Data::Dumper;
 | 
			
		||||
#use Data::Dumper;
 | 
			
		||||
use Getopt::Long;
 | 
			
		||||
Getopt::Long::Configure("bundling");
 | 
			
		||||
Getopt::Long::Configure("pass_through");
 | 
			
		||||
@@ -144,7 +144,7 @@ sub preprocess_request {
 | 
			
		||||
            $request = {};
 | 
			
		||||
            return;
 | 
			
		||||
        }
 | 
			
		||||
        print Dumper($request);
 | 
			
		||||
        #print Dumper($request);
 | 
			
		||||
        return [$request];   
 | 
			
		||||
    } 
 | 
			
		||||
    
 | 
			
		||||
@@ -160,7 +160,7 @@ sub process_request {
 | 
			
		||||
    if ($command eq 'copycd') {
 | 
			
		||||
        return copycd($request, $callback, $subreq);
 | 
			
		||||
    } elsif ($command eq 'nodeset') {
 | 
			
		||||
        print Dumper($request);
 | 
			
		||||
        #print Dumper($request);
 | 
			
		||||
        return nodeset($request, $callback, $subreq);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
@@ -202,8 +202,8 @@ sub copycd {
 | 
			
		||||
        $callback->({error=>"Only suport to use the iso file vios"});
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
    print __LINE__."=====>vios=====.\n";
 | 
			
		||||
    print Dumper($request);
 | 
			
		||||
    #print __LINE__."=====>vios=====.\n";
 | 
			
		||||
    #print Dumper($request);
 | 
			
		||||
    my $installroot = "/install";
 | 
			
		||||
    my @entries = xCAT::TableUtils->get_site_attribute("installdir");
 | 
			
		||||
    my $t_entry = $entries[0];
 | 
			
		||||
@@ -259,7 +259,7 @@ sub copycd {
 | 
			
		||||
        close($expectcd_fd);
 | 
			
		||||
    }
 | 
			
		||||
    if ($expect_cd eq "END") {
 | 
			
		||||
        goto CREATE_OBJ;
 | 
			
		||||
        #goto CREATE_OBJ;
 | 
			
		||||
        $callback->({error=>"All the cds for $distname are gotten."});
 | 
			
		||||
        return;    
 | 
			
		||||
    }
 | 
			
		||||
@@ -318,7 +318,7 @@ sub copycd {
 | 
			
		||||
        $callback->({error=>$res});
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
CREATE_OBJ:
 | 
			
		||||
    #CREATE_OBJ:
 | 
			
		||||
    if ($expect_cd eq "END") {
 | 
			
		||||
        my $imagename = $distname.'_sysb';
 | 
			
		||||
        xCAT::MsgUtils->message("I", {data=>["create osimage object: $imagename"]}, $callback);
 | 
			
		||||
@@ -331,7 +331,7 @@ CREATE_OBJ:
 | 
			
		||||
                           osdistroname=>$distname,
 | 
			
		||||
                           osvers=>$oslevel,
 | 
			
		||||
                           osarch=>$arch);
 | 
			
		||||
            print Dumper(%tb_cols);
 | 
			
		||||
            #print Dumper(%tb_cols);
 | 
			
		||||
            $osimagetab->setAttribs(\%key_col, \%tb_cols);
 | 
			
		||||
        } else {
 | 
			
		||||
            $callback->({error=>"Can not open 'osimage' table"});
 | 
			
		||||
 
 | 
			
		||||
@@ -129,16 +129,15 @@ unless($mask) {
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
close($::LOG_FILE);
 | 
			
		||||
{
 | 
			
		||||
    my $lsicmd = "/usr/sbin/lsitab bootnicsea > /dev/null 2>&1"; 
 | 
			
		||||
    if (&runcmd($lsicmd) == 0) {
 | 
			
		||||
       #my $mkicmd = '/usr/sbin/mkitab "bootnicsea:2:wait:/xcatpost/config_bootnicsea > /dev/console 2>&1"';
 | 
			
		||||
       my $rmicmd = 'rmitab "bootnicsea" > /dev/null 2>&1';
 | 
			
		||||
        if (&runcmd($rmicmd) != 0) {
 | 
			
		||||
            msg("Warning: config_bootnicsea: Could not remove config_bootnicsea from /etc/inittab.\n")
 | 
			
		||||
        }
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
close($::LOG_FILE);
 | 
			
		||||
 | 
			
		||||
exit 0;
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user