1/*
2 *  OpenVPN -- An application to securely tunnel IP networks
3 *             over a single TCP/UDP port, with support for SSL/TLS-based
4 *             session authentication and key exchange,
5 *             packet encryption, packet authentication, and
6 *             packet compression.
7 *
8 *  Copyright (C) 2002-2010 OpenVPN Technologies, Inc. <sales@openvpn.net>
9 *
10 *  This program is free software; you can redistribute it and/or modify
11 *  it under the terms of the GNU General Public License version 2
12 *  as published by the Free Software Foundation.
13 *
14 *  This program is distributed in the hope that it will be useful,
15 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
16 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17 *  GNU General Public License for more details.
18 *
19 *  You should have received a copy of the GNU General Public License
20 *  along with this program (see the file COPYING included with this
21 *  distribution); if not, write to the Free Software Foundation, Inc.,
22 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
23 */
24
25#ifdef HAVE_CONFIG_H
26#include "config.h"
27#elif defined(_MSC_VER)
28#include "config-msvc.h"
29#endif
30
31#include "syshead.h"
32
33#include "interval.h"
34
35#include "memdbg.h"
36
37void
38interval_init (struct interval *top, int horizon, int refresh)
39{
40  CLEAR (*top);
41  top->refresh = refresh;
42  top->horizon = horizon;
43}
44
45bool
46event_timeout_trigger (struct event_timeout *et,
47		       struct timeval *tv,
48		       const int et_const_retry)
49{
50  bool ret = false;
51  const time_t local_now = now;
52
53  if (et->defined)
54    {
55      int wakeup = (int) et->last + et->n - local_now;
56      if (wakeup <= 0)
57	{
58#if INTERVAL_DEBUG
59	  dmsg (D_INTERVAL, "EVENT event_timeout_trigger (%d) etcr=%d", et->n, et_const_retry);
60#endif
61	  if (et_const_retry < 0)
62	    {
63	      et->last = local_now;
64	      wakeup = et->n;
65	      ret = true;
66	    }
67	  else
68	    {
69	      wakeup = et_const_retry;
70	    }
71	}
72
73      if (tv && wakeup < tv->tv_sec)
74	{
75#if INTERVAL_DEBUG
76	  dmsg (D_INTERVAL, "EVENT event_timeout_wakeup (%d/%d) etcr=%d", wakeup, et->n, et_const_retry);
77#endif
78	  tv->tv_sec = wakeup;
79	  tv->tv_usec = 0;
80	}
81    }
82  return ret;
83}
84