diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm index 660edeb2f..773bd441b 100644 --- a/perl-xCAT/xCAT/PPCfsp.pm +++ b/perl-xCAT/xCAT/PPCfsp.pm @@ -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())