Current section
Files
Jump to
Current section
Files
src/dhcp_server_config.erl
-module(dhcp_server_config).
%%TODO Learn what that weird syntax is, and move this to elixir.
-export([parse_config/1]).
-define(DHCP_LEASEFILE, "/var/run/dhcp_leases.dets").
-include("dhcp_server_alloc.hrl").
parse_config(Terms) ->
NetNameSpace = proplists:get_value(netns, Terms),
Interface = proplists:get_value(interface, Terms),
ServerId = proplists:get_value(server_id, Terms, {0, 0, 0, 0}),
NextServer = proplists:get_value(next_server, Terms, {0, 0, 0, 0}),
LeaseFile = proplists:get_value(lease_file, Terms, ?DHCP_LEASEFILE),
Subnets = [X || X <- Terms, is_record(X, subnet)],
Hosts = [X || X <- Terms, is_record(X, host)],
{NetNameSpace, Interface, ServerId, NextServer, LeaseFile, Subnets, Hosts}.