From: Philip Hazel Date: Tue, 4 Jul 2006 09:07:20 +0000 (+0000) Subject: Missed one case of "retry time not reached" when adding additional X-Git-Tag: exim-4_63~25 X-Git-Url: https://git.exim.org/exim.git/commitdiff_plain/148e1ac6c5645e53f4f80eeb4978565b5ca4233b Missed one case of "retry time not reached" when adding additional debugging information. --- diff --git a/src/src/deliver.c b/src/src/deliver.c index d4051768e..fdff07414 100644 --- a/src/src/deliver.c +++ b/src/src/deliver.c @@ -1,4 +1,4 @@ -/* $Cambridge: exim/src/src/deliver.c,v 1.34 2006/06/30 15:36:08 ph10 Exp $ */ +/* $Cambridge: exim/src/src/deliver.c,v 1.35 2006/07/04 09:07:20 ph10 Exp $ */ /************************************************* * Exim - an Internet mail transport agent * @@ -2328,8 +2328,13 @@ while (addr_local != NULL) retry_record->more_errno); DEBUG(D_deliver|D_retry) + { debug_printf("retry time not reached for %s: " "checking ultimate address timeout\n", addr2->address); + debug_printf(" now=%d first_failed=%d next_try=%d expired=%d\n", + (int)now, (int)retry_record->first_failed, + (int)retry_record->next_try, retry_record->expired); + } if (retry != NULL && retry->rules != NULL) { @@ -2338,9 +2343,8 @@ while (addr_local != NULL) last_rule->next != NULL; last_rule = last_rule->next); DEBUG(D_deliver|D_retry) - debug_printf("now=%d received_time=%d diff=%d timeout=%d\n", - (int)now, received_time, (int)now - received_time, - last_rule->timeout); + debug_printf(" received_time=%d diff=%d timeout=%d\n", + received_time, (int)now - received_time, last_rule->timeout); if (now - received_time > last_rule->timeout) ok = TRUE; } else diff --git a/test/runtest b/test/runtest index 9d84232ff..37b6fbed4 100755 --- a/test/runtest +++ b/test/runtest @@ -1,6 +1,6 @@ #! /usr/bin/perl -w -# $Cambridge: exim/test/runtest,v 1.11 2006/07/03 15:39:06 ph10 Exp $ +# $Cambridge: exim/test/runtest,v 1.12 2006/07/04 09:07:20 ph10 Exp $ ############################################################################### # This is the controlling script for the "new" test suite for Exim. It should # @@ -414,7 +414,7 @@ while() $_ = " first failed=dddd last try=dddd next try=+$next $4\n"; } s/^(\s*)now=\d+ first_failed=\d+ next_try=\d+ expired=(\d)/$1now=tttt first_failed=tttt next_try=tttt expired=$2/; - s/^(\s*)received_time=\d+ diff=\d+ timeout=(\d+)/$1now=tttt received_time=tttt diff=tttt timeout=$2/; + s/^(\s*)received_time=\d+ diff=\d+ timeout=(\d+)/$1received_time=tttt diff=tttt timeout=$2/; # Time to retry may vary s/time to retry = \S+/time to retry = tttt/; @@ -859,7 +859,7 @@ my($rf,$rsf,$mf,$sf,$sortfile) = @_; if (! -e $sf) { - return 0 if (! -s $rf && ! -s $rsf); + return 0 if (! -s $rf && (! defined $rsf || ! -s $rsf)); print "\n"; print "** $rf is not empty\n" if (-s $rf); diff --git a/test/stderr/0476 b/test/stderr/0476 index 01251066f..c70ad2461 100644 --- a/test/stderr/0476 +++ b/test/stderr/0476 @@ -97,7 +97,7 @@ checking status of 127.0.0.1 no message retry record host retry time not reached: checking ultimate address timeout now=tttt first_failed=tttt next_try=tttt expired=0 - now=tttt received_time=tttt diff=tttt timeout=86400 + received_time=tttt diff=tttt timeout=86400 127.0.0.1 [127.0.0.1]:1111 status = unusable all IP addresses skipped or deferred at least one address Leaving t1 transport diff --git a/test/stderr/0529 b/test/stderr/0529 index 406de192c..872b37402 100644 --- a/test/stderr/0529 +++ b/test/stderr/0529 @@ -70,7 +70,8 @@ locking TESTSUITE/spool/db/retry.lockfile retry record exists: age=ttt (max 1w) time to retry = tttt expired = 0 retry time not reached for TESTSUITE/test-mail/rmbox: checking ultimate address timeout -now=tttt received_time=tttt diff=tttt timeout=259200 + now=tttt first_failed=tttt next_try=tttt expired=0 + received_time=tttt diff=tttt timeout=259200 LOG: retry_defer MAIN == TESTSUITE/test-mail/rmbox R=r1 T=t1 defer (-52): Retry time not yet reached Processing retry items