arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add some sleep to avoid http failure. Modify some trace information.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13601 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle
2012-08-24 02:10:40 +00:00
parent 9261722205
commit e5e92c55b8
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/PPCfsp.pm
View File

@@ -1788,7 +1788,7 @@ sub get_netcfg
# Return error
##################################
if ( !defined( $$form )) {
return( [RC_ERROR,"'Network Configuration' form not found"] );
return( [RC_ERROR,"'Network Configuration' form not found at parse"] );
}
##################################
@@ -1808,14 +1808,15 @@ sub get_netcfg
$res = $ua->request( $data);
$$form = HTML::Form->parse( $res->content, $res->base );
if ( !defined( $$form )) {
return( [RC_ERROR,"'Network Configuration' form not found"] );
return( [RC_ERROR,"'Network Configuration' form not found at submit"] );
}
} elsif ( $$form->find_input('submit', 'submit', 1) ) {
my $data = $$form->click('submit');
sleep 5;
$res = $ua->request( $data);
$$form = HTML::Form->parse( $res->content, $res->base );
if ( !defined( $$form )) {
return( [RC_ERROR,"'Network Configuration' form not found' form not found"] );
return( [RC_ERROR,"'Network Configuration' form not found at submit2"] );
}
if ( $$form->find_input('ip', 'radio', 1))
{
@@ -1831,7 +1832,7 @@ sub get_netcfg
$res = $ua->request( $data);
$$form = HTML::Form->parse( $res->content, $res->base );
if ( !defined( $$form )) {
return( [RC_ERROR,"'Network Configuration' form not found"] );
return( [RC_ERROR,"'Network Configuration' form not found at submit3"] );
}
}
}
@@ -1992,6 +1993,7 @@ sub set_netcfg
}
#Click "Continue" button
sleep 2;
my $data = $form->click('save');
my $res = $ua->request( $data);
if (!$res->is_success())