%%% Copyright (c) 2016, NORDUnet A/S.
%%% See LICENSE for licensing information.

-module(plop_compat).
-export([unpack_spki/1, timestamp/0]).
-include_lib("public_key/include/public_key.hrl").

unpack_spki(SPKI) ->
    unpack_spki(erlang:system_info(otp_release), SPKI).
timestamp() ->
    timestamp(erlang:system_info(otp_release)).


unpack_spki("R16" ++ _, SPKI) ->
    #'SubjectPublicKeyInfo'{subjectPublicKey = {_, Octets},
                            algorithm = Algorithm} = SPKI,
    {Octets, Algorithm};
unpack_spki("17", SPKI) ->
    #'SubjectPublicKeyInfo'{subjectPublicKey = {_, Octets},
                            algorithm = Algorithm} = SPKI,
    {Octets, Algorithm};
unpack_spki("18", SPKI) ->
    #'SubjectPublicKeyInfo'{subjectPublicKey = Octets,
                            algorithm = Algorithm} = SPKI,
    {Octets, Algorithm};
unpack_spki("19", SPKI) ->
    #'SubjectPublicKeyInfo'{subjectPublicKey = Octets,
                            algorithm = Algorithm} = SPKI,
    {Octets, Algorithm}.

%% <=R17: now/0, >=R18 timestamp/0
timestamp("R16" ++ _) ->
    erlang:now();
timestamp("17") ->
    erlang:now();
timestamp("18") ->
    erlang:timestamp();
timestamp("19") ->
    erlang:timestamp().