retry.c

Go to the documentation of this file.

/*
 *   This library is free software; you can redistribute it and/or
 *   modify it under the terms of the GNU Lesser General Public
 *   License as published by the Free Software Foundation; either
 *   version 2.1 of the License, or (at your option) any later version.
 *
 *   This library is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 *   Lesser General Public License for more details.
 *
 *   You should have received a copy of the GNU Lesser General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */
 
/** Handle RFC standard retransmissions
 *
 * @file src/lib/util/retry.c
 *
 * @copyright 2020 Network RADIUS SAS
 */
 
RCSID("$Id: e8d2a078c8bda913bee9f8696cd16f916da0068e $")
 
#include <freeradius-devel/util/retry.h>
#include <freeradius-devel/util/rand.h>
#include <freeradius-devel/util/uint128.h>
 
/** Initialize a retransmission counter
 *
 * @param[in,out] r the retransmission structure
 * @param now when the retransmission starts
 * @param config the counters to track.  They shouldn't change while the retransmission is happening
 */
void fr_retry_init(fr_retry_t *r, fr_time_t now, fr_retry_config_t const *config)
{
        int64_t                 tenth;
        uint64_t                scale;
        fr_time_delta_t         rt;
        uint128_t               delay;
 
        memset(r, 0, sizeof(*r));
 
        r->config = config;
        r->count = 1;
        r->start = now;
        r->end = fr_time_add(now, config->mrd);
        r->updated = now;
        r->state = FR_RETRY_CONTINUE;
 
        /*
         *      Ensure that we always have an end time.
         *
         *      If there's no MRD. We artificially force the end to a day.  If we're still retrying after
         *      that, it's likely good reason to give up.  The rest of the server enforces much shorter
         *      lifetimes on requests.
         */
        if (fr_time_cmp(r->start, r->end) == 0) {
                if (!config->mrc) {
                        r->end = fr_time_add(now, fr_time_delta_from_sec(86400));
                } else {
                        r->end = fr_time_add(now, fr_time_delta_mul(config->mrt, config->mrc));
                }
        }
 
        /*
         *      Only 1 retry, the timeout is MRD, not IRT.
         */
        if (config->mrc == 1) {
                r->next = r->end;
                r->rt = config->mrd; /* mostly set for debug messages */
                return;
        }
 
        /*
         *      Initial:
         *
         *      RT = IRT + RAND * IRT
         *         = IRT * (1 + RAND)
         */
        tenth = fr_rand();
        tenth -= ((uint64_t) 1) << 31; /* scale it -2^31..+2^31 */
        tenth /= 5;                    /* convert [-.499,+.499] to  [-.0999,+.0999] */
        scale = (((uint64_t) 1) << 32) + tenth; /* make it 1.RAND modulo 2^32 */
 
        delay = uint128_mul64(scale, fr_time_delta_unwrap(r->config->irt));
        rt = fr_time_delta_wrap(uint128_to_64(uint128_rshift(delay, 32)));
 
        r->rt = rt;
        r->next = fr_time_add(now, rt);
 
        /*
         *      Cap the "next" timer at the end.
         */
        if (fr_time_cmp(r->next, r->end) > 0) {
                r->next = r->end;
        }
}
 
/** Initialize a retransmission counter
 *
 * @param[in,out] r the retransmission structure
 * @param now the current time
 * @return
 *      - FR_RETRTY_CONTINUE - continue retransmitting
 *      - FR_RETRY_MRC - stop, maximum retransmission count has been reached
 *      - FR_RETRY_MDR - stop, maximum retransmission duration has been reached.
 */
fr_retry_state_t fr_retry_next(fr_retry_t *r, fr_time_t now)
{
        int64_t                 tenth;
        uint64_t                scale;
        fr_time_delta_t         rt;
        uint128_t               delay;
 
        /*
         *      Increment retransmission counter
         */
        r->count++;
        r->updated = now;
 
        /*
         *      We retried too many times.  Fail.
         */
        if (r->config->mrc && (r->count > r->config->mrc)) {
                /*
                 *      A count of 1 is really a simple duration.
                 */
                if (r->config->mrc == 1) {
                        r->state = FR_RETRY_MRD;
                        return FR_RETRY_MRD;
                }
 
                r->state = FR_RETRY_MRC;
                return FR_RETRY_MRC;
        }
 
redo:
        /*
         *      Cap delay at the end.
         *
         *      Note that this code can still return MRD, even if MRD
         *      wasn't set.  The initialization function above
         *      artificially caps MRD at one day.
         */
        if (fr_time_cmp(now, r->end) >= 0) {
                r->state = FR_RETRY_MRD;
                return FR_RETRY_MRD;
        }
 
        /*
         *      RFC 5080 Section 2.2.1
         *
         *      RAND gives a random number between -0.1 and +0.1
         *
         *      Our random number generator returns 0..2^32, so we
         *      have to scale everything relative to that.
         *
         *      RT = 2*RTprev + RAND*RTprev
         *         = RTprev * (2 + RAND)
         */
        tenth = fr_rand();
        tenth -= ((uint64_t) 1) << 31; /* scale it -2^31..+2^31 */
        tenth /= 5;                    /* convert [-.499,+.499] to  [-.0999,+.0999] */
        scale = (((uint64_t) 1) << 33) + tenth; /* make it 2.RAND modulo 2^32 */
 
        delay = uint128_mul64(scale, fr_time_delta_unwrap(r->rt));
        rt = fr_time_delta_wrap(uint128_to_64(uint128_rshift(delay, 32)));
 
        /*
         *      Cap delay at MRT.
         *
         *      RT = MRT + RAND * MRT
         *         = MRT * (1 + RAND)
         */
        if (fr_time_delta_ispos(r->config->mrt) && (fr_time_delta_gt(rt, r->config->mrt))) {
                tenth = fr_rand();
                tenth -= ((uint64_t) 1) << 31; /* scale it -2^31..+2^31 */
                tenth /= 5;                    /* convert [-.499,+.499] to  [-.0999,+.0999] */
                scale = (((uint64_t) 1) << 32) + tenth; /* make it 1.RAND modulo 2^32 */
 
                delay = uint128_mul64(scale, fr_time_delta_unwrap(r->config->mrt));
                rt = fr_time_delta_wrap(uint128_to_64(uint128_rshift(delay, 32)));
        }
 
        /*
         *      And finally set the retransmission timer.
         */
        r->rt = rt;
 
        /*
         *      Add in the retransmission delay.  Note that we send
         *      the packet at "next + rt", and not "now + rt".  That
         *      way the timer won't drift.
         */
        r->next = fr_time_add(r->next, rt);
 
        /*
         *      The "next" retransmission time is in the past, AND
         *      we're already halfway through the time after that.
         *      Skip this retransmission, and set the time for the
         *      next one.
         *
         *      i.e. if we weren't serviced for one event, just skip
         *      it, and go to the next one.
         */
        if (fr_time_lt(fr_time_add(r->next, fr_time_delta_wrap((fr_time_delta_unwrap(rt) / 2))), now)) goto redo;
 
        /*
         *      Cap the "next" timer at when we stop sending.
         */
        if (fr_time_cmp(r->next, r->end) > 0) {
                r->next = r->end;
        }
 
        return FR_RETRY_CONTINUE;
}