Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:25
erlang
0317-ssl-Add-missing-specs-for-API-functions.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0317-ssl-Add-missing-specs-for-API-functions.patch of Package erlang
From 2d76a937d92ed35993855f00d89169f85c0e6fb5 Mon Sep 17 00:00:00 2001 From: Ingela Anderton Andin <ingela@erlang.org> Date: Wed, 10 Jan 2024 08:31:27 +0100 Subject: [PATCH] ssl: Add missing specs for API functions --- lib/ssl/doc/src/ssl_crl_cache.xml | 25 ++++++------------------- lib/ssl/src/ssl_crl_cache.erl | 28 ++++++++++++++++++++++------ 2 files changed, 28 insertions(+), 25 deletions(-) diff --git a/lib/ssl/doc/src/ssl_crl_cache.xml b/lib/ssl/doc/src/ssl_crl_cache.xml index 6fbc1c1afd..2955cb4986 100644 --- a/lib/ssl/doc/src/ssl_crl_cache.xml +++ b/lib/ssl/doc/src/ssl_crl_cache.xml @@ -41,36 +41,23 @@ <datatype> <name name="crl_src"/> </datatype> - - <datatype> - <name name="uri"/> - </datatype> - </datatypes> <funcs> <func> <name since="OTP 18.0">delete(Entries) -> ok | {error, Reason} </name> - <fsummary> </fsummary> - <type> - <v> Entries = <seetype marker="#crl_src">crl_src()</seetype>]}</v> - <v> Reason = crl_reason()</v> - </type> + <fsummary> Delete CRLs from the ssl applications local cache.</fsummary> <desc> <p>Delete CRLs from the ssl applications local cache. </p> </desc> </func> <func> - <name since="OTP 18.0">insert(CRLSrc) -> ok | {error, Reason}</name> - <name since="OTP 18.0">insert(URI, CRLSrc) -> ok | {error, Reason}</name> - <fsummary> </fsummary> - <type> - <v> CRLSrc = <seetype marker="#crl_src">crl_src()</seetype>]}</v> - <v> URI = <seetype marker="#uri">uri()</seetype> </v> - <v> Reason = term()</v> - </type> + <name since="OTP 18.0" name="insert" arity="1"></name> + <name since="OTP 18.0" name="insert" arity="2"></name> + <fsummary> Insert CRLs into the ssl applications local cache.</fsummary> <desc> - <p>Insert CRLs, available to fetch on DER format from <c>URI</c>, into the ssl applications local cache. </p> + <p>Insert CRLs into the ssl applications local cache, with or without a distribution point + reference URI</p> </desc> </func> </funcs> diff --git a/lib/ssl/src/ssl_crl_cache.erl b/lib/ssl/src/ssl_crl_cache.erl index c12d829470..d88ca80d90 100644 --- a/lib/ssl/src/ssl_crl_cache.erl +++ b/lib/ssl/src/ssl_crl_cache.erl @@ -72,22 +72,38 @@ fresh_crl(#'DistributionPoint'{distributionPoint = {fullName, Names}}, CRL) -> %% API %%==================================================================== -insert(CRLs) -> - insert(?NO_DIST_POINT, CRLs). +%%-------------------------------------------------------------------- +-spec insert(CRLSrc) -> ok | {error, Reason} when + CRLSrc :: crl_src(), + Reason :: term(). +%%-------------------------------------------------------------------- +insert(CRLSrc) -> + insert(?NO_DIST_POINT, CRLSrc). -insert(URI, {file, File}) when is_list(URI) -> +%%-------------------------------------------------------------------- +-spec insert(DistPointURI, CRLSrc) -> ok | {error, Reason} when + DistPointURI :: uri_string:uri_string(), + CRLSrc :: crl_src(), + Reason :: term(). +%%-------------------------------------------------------------------- +insert(DistPointURI, {file, File}) when is_list(DistPointURI) -> case file:read_file(File) of {ok, PemBin} -> PemEntries = public_key:pem_decode(PemBin), CRLs = [ CRL || {'CertificateList', CRL, not_encrypted} <- PemEntries], - do_insert(URI, CRLs); + do_insert(DistPointURI, CRLs); Error -> Error end; -insert(URI, {der, CRLs}) -> - do_insert(URI, CRLs). +insert(DistPointURI, {der, CRLs}) -> + do_insert(DistPointURI, CRLs). +%%-------------------------------------------------------------------- +-spec delete(Entries) -> ok | {error, Reason} when + Entries :: crl_src() | uri_string:uri_string(), + Reason :: term(). +%%-------------------------------------------------------------------- delete({file, File}) -> case file:read_file(File) of {ok, PemBin} -> -- 2.35.3
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor