mirror of
				https://github.com/xcat2/xcat-core.git
				synced 2025-10-30 10:52:31 +00:00 
			
		
		
		
	remove use of global variable DELNODE
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15952 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
		| @@ -216,6 +216,7 @@ sub process_request | ||||
|  | ||||
|     my $HELP; | ||||
|     my $REMOVE; | ||||
| 	my $DELNODE; | ||||
|  | ||||
|     # parse the options | ||||
|     if ($req && $req->{arg}) { @ARGV = @{$req->{arg}}; } | ||||
| @@ -226,7 +227,7 @@ sub process_request | ||||
|         !GetOptions( | ||||
|                     'h|help'                 => \$HELP, | ||||
|                     'n'                      => \$REMOVE, | ||||
|                     'd'                      => \$::DELNODE, | ||||
|                     'd'                      => \$DELNODE, | ||||
|                     'o|othernamesfirst'      => \$OTHERNAMESFIRST, | ||||
|                     'a|adddomaintohostnames' => \$ADDNAMES, | ||||
|                     'm|mactolinklocal'       => \$MACTOLINKLOCAL, | ||||
| @@ -334,7 +335,7 @@ sub process_request | ||||
| 					} | ||||
| 				} | ||||
|  | ||||
|                 if ($::DELNODE) | ||||
|                 if ($DELNODE) | ||||
|                 { | ||||
|                     delnode $node, $linklocal, $node, $domain; | ||||
|                 } | ||||
| @@ -368,7 +369,7 @@ sub process_request | ||||
|                     } | ||||
|                 } | ||||
|  | ||||
|                 if ($::DELNODE) | ||||
|                 if ($DELNODE) | ||||
|                 { | ||||
|                     delnode $ref->{node}, $ref->{ip}, $ref->{hostnames}, $domain; | ||||
|                 } | ||||
| @@ -387,11 +388,11 @@ sub process_request | ||||
|         }    # end else | ||||
|  | ||||
|         # do the other node nics - if any | ||||
|         &donics($req->{node}, $callback); | ||||
|         &donics($req->{node}, $callback, $DELNODE); | ||||
|     } | ||||
|     else | ||||
|     { | ||||
|         if ($::DELNODE) | ||||
|         if ($DELNODE) | ||||
|         { | ||||
|             return; | ||||
|         } | ||||
| @@ -422,7 +423,7 @@ sub process_request | ||||
|         } | ||||
|  | ||||
|         # also do nics table | ||||
|         &donics(\@allnodes, $callback); | ||||
|         &donics(\@allnodes, $callback, $DELNODE); | ||||
|     } | ||||
|  | ||||
|     writeout(); | ||||
| @@ -460,7 +461,7 @@ sub writeout | ||||
|         Globals: | ||||
|  | ||||
|         Example: | ||||
|                 my $rc = &donics(\@nodes, $callback); | ||||
|                 my $rc = &donics(\@nodes, $callback, $DELNODE); | ||||
|  | ||||
|         Comments: | ||||
|                 none | ||||
| @@ -471,6 +472,7 @@ sub donics | ||||
| { | ||||
|     my $nodes    = shift; | ||||
|     my $callback = shift; | ||||
| 	my $delnode	 = shift; | ||||
|  | ||||
|     my @nodelist = @{$nodes}; | ||||
|  | ||||
| @@ -673,7 +675,7 @@ sub donics | ||||
| 					next; | ||||
| 				} | ||||
|  | ||||
|             	if ($::DELNODE) | ||||
|             	if ($delnode) | ||||
|             	{ | ||||
|                 	delnode $nichostname, $nicip, '', $nicdomain; | ||||
|             	} | ||||
|   | ||||
		Reference in New Issue
	
	Block a user