-
-
Notifications
You must be signed in to change notification settings - Fork 11
/
watch_periodically.ex
45 lines (38 loc) · 1.29 KB
/
watch_periodically.ex
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
defmodule Tz.WatchPeriodically do
use GenServer
require Logger
alias Tz.HTTP
alias Tz.PeriodsProvider
alias Tz.Updater
defp watch(on_update_callback) do
Logger.debug("Tz is checking for IANA time zone database updates")
case Updater.fetch_iana_tz_version() do
{:ok, latest_version} ->
if latest_version != PeriodsProvider.iana_version() do
link = "https://data.iana.org/time-zones/releases/tzdata#{latest_version}.tar.gz"
Logger.warn("Tz found a more recent time zone database available for download at #{link}")
on_update_callback && on_update_callback.(latest_version)
end
:error ->
Logger.error("Tz failed to read the latest version of the IANA time zone database")
end
end
def start_link(opts) do
HTTP.get_http_client!()
GenServer.start_link(__MODULE__, opts)
end
def init(opts) do
watch(opts[:on_update])
schedule_work(opts[:interval_in_days])
{:ok, %{opts: opts}}
end
def handle_info(:work, %{opts: opts}) do
watch(opts[:on_update])
schedule_work(opts[:interval_in_days])
{:noreply, %{opts: opts}}
end
defp schedule_work(interval_in_days) do
interval_in_days = interval_in_days || 1
Process.send_after(self(), :work, interval_in_days * 24 * 60 * 60 * 1000)
end
end