add missing checks in preproces_request that we have already been there

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11465 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-02-03 13:27:19 +00:00
parent 1b7ffeb485
commit b4f5b6d196
3 changed files with 21 additions and 1 deletions

View File

@ -134,6 +134,13 @@ sub handled_commands{
sub preprocess_request {
my $request = shift;
my $callback = shift;
#if already preprocessed, go straight to request
if ( (defined($request->{_xcatpreprocessed}))
&& ($request->{_xcatpreprocessed}->[0] == 1))
{
return [$request];
}
my $username = 'root';
my $password = '';
my $vusername = "Administrator";

View File

@ -292,7 +292,13 @@ sub gethpbladecons {
sub preprocess_request {
my $request = shift;
if ($request->{_xcatdest}) { return [$request]; } #exit if preprocessed
#if ($request->{_xcatdest}) { return [$request]; } #exit if preprocessed
if ( (defined($request->{_xcatpreprocessed}))
&& ($request->{_xcatpreprocessed}->[0] == 1))
{
return [$request];
}
my $callback=shift;
my @requests;

View File

@ -196,8 +196,15 @@ sub pass_along {
sub preprocess_request {
#Assume shared tftp directory for boring people, but for cool people, help sync up tftpdirectory contents when
#they specify no sharedtftp in site table
my $stab = xCAT::Table->new('site');
my $req = shift;
if ( (defined($req->{_xcatpreprocessed}))
&& ($req->{_xcatpreprocessed}->[0] == 1))
{
return [$req];
}
my $callback1 = shift;
my $command = $req->{command}->[0];
my $sub_req = shift;