dns.erl

info(Field, Rec) ->
    Fields = fields(Rec),
    FieldIdx = lists:zip(Fields, lists:seq(2,length(Fields)+1)),
    element(proplists:get_value(Field,FieldIdx), Rec).

fields(#dns_rec{}) -> fields(dns_rec);
fields(dns_rec) -> record_info(fields, dns_rec);
fields(#dns_rr{}) -> fields(dns_rr);
fields(dns_rr) -> record_info(fields, dns_rr).

to_proplist(R) ->
    Keys = fields(R),
    Values = tl(tuple_to_list(R)),
    lists:zip(Keys,Values).