summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xmdkonline8
1 files changed, 4 insertions, 4 deletions
diff --git a/mdkonline b/mdkonline
index a46660ef..8f66f9dc 100755
--- a/mdkonline
+++ b/mdkonline
@@ -248,7 +248,7 @@ sub sendConfig {
# Check the outcome of the response
#print "REPONSE: ".$response->content."\n";
remove_wait_msg($w);
- if ($response->is_success) {
+ if ($response->is_success || $::testing) {
$result = ($response->content =~ /^TRUE(.*)/) ? 0 : -1;
#printf("Send Config :\nNEWKEY=%s\nRESPONSE=%s", $1, $response->content);
$o->{currentkey} = $1;
@@ -257,7 +257,7 @@ sub sendConfig {
$result = -1;
}
# if information were sent correctly (exit code: 0 from scp script), go to page 5
- if (! $result) {
+ if (! $result || $::testing) {
# go to last page
$o->{nb}->next_page; $o->{Next}->set_label(N("Finish")); $o->{Prev}->hide
} else {
@@ -335,7 +335,7 @@ sub testPasswd () {
my $response = $ua->request($request);
remove_wait_msg($w);
# Check the outcome of the response
- if ($response->is_success) {
+ if ($response->is_success || $::testing) {
$result = ($response->content =~ /TRUE/) ? 0 : -1;
} else {
# pb with the connection ? stay on page 2
@@ -347,7 +347,7 @@ sub testPasswd () {
}
# if correct, go to page 4
- if (! $result) {
+ if (! $result || $::testing) {
$o->{nb}->next_page();
} else {
# if incorrect, clear passwd and stay on page 2