diff options
| author | Alexandru Scvortov <alexandru@rabbitmq.com> | 2010-09-08 16:01:05 +0100 |
|---|---|---|
| committer | Alexandru Scvortov <alexandru@rabbitmq.com> | 2010-09-08 16:01:05 +0100 |
| commit | 861ac11beff610f0450ea278b7a9c1ebdf340a43 (patch) | |
| tree | 3534ff75302ad79144932a1cb30eaa03769270bb | |
| parent | 6d6a0d2801d0063e9c1de8732de14ca450f3541f (diff) | |
| download | rabbitmq-server-git-861ac11beff610f0450ea278b7a9c1ebdf340a43.tar.gz | |
refactor + manpages update
| -rw-r--r-- | docs/rabbitmqctl.1.xml | 15 | ||||
| -rw-r--r-- | src/rabbit_ssl.erl | 23 |
2 files changed, 28 insertions, 10 deletions
diff --git a/docs/rabbitmqctl.1.xml b/docs/rabbitmqctl.1.xml index be1ee70b5e..daad79ca1e 100644 --- a/docs/rabbitmqctl.1.xml +++ b/docs/rabbitmqctl.1.xml @@ -975,6 +975,21 @@ <term>send_pend</term> <listitem><para>Send queue size.</para></listitem> </varlistentry> + <varlistentry> + <term>ssl_subject</term> + <listitem><para>The subject of the peer's SSL + certificate.</para></listitem> + </varlistentry> + <varlistentry> + <term>ssl_issuer</term> + <listitem><para>The issuer of the peer's SSL + certificate.</para></listitem> + </varlistentry> + <varlistentry> + <term>ssl_validity</term> + <listitem><para>The period the peer's SSL certificate + is valid.</para></listitem> + </varlistentry> </variablelist> <para> If no <command>connectioninfoitem</command>s are specified then user, peer diff --git a/src/rabbit_ssl.erl b/src/rabbit_ssl.erl index 148389d97a..4ee34bdd63 100644 --- a/src/rabbit_ssl.erl +++ b/src/rabbit_ssl.erl @@ -128,7 +128,7 @@ format_complex_rdn(RDNs) -> %% Format an RDN. If the type name is unknown, use the dotted decimal %% representation. See RFC4514, section 2.3. format_rdn(#'AttributeTypeAndValue'{type = T, value = V}) -> - FV = escape_rdn_value(format_asn1_value(V), start), + FV = escape_rdn_value(format_asn1_value(V)), Fmts = [{?'id-at-surname' , "SN"}, {?'id-at-givenName' , "GIVENNAME"}, {?'id-at-initials' , "INITIALS"}, @@ -156,18 +156,21 @@ format_rdn(#'AttributeTypeAndValue'{type = T, value = V}) -> end. %% Escape a string as per RFC4514. -escape_rdn_value([], _) -> +escape_rdn_value(V) -> + lists:flatten(escape_rdn_value_int(V, start)). + +escape_rdn_value_int([], _) -> []; -escape_rdn_value([C | S], start) when C =:= $ ; C =:= $#-> - ["\\", [C] | escape_rdn_value(S, middle)]; -escape_rdn_value(S, start) -> - escape_rdn_value(S, middle); -escape_rdn_value([$ ], middle) -> +escape_rdn_value_int([C | S], start) when C =:= $ ; C =:= $#-> + ["\\", [C] | escape_rdn_value_int(S, middle)]; +escape_rdn_value_int(S, start) -> + escape_rdn_value_int(S, middle); +escape_rdn_value_int([$ ], middle) -> ["\\ "]; -escape_rdn_value([C | S], middle) -> +escape_rdn_value_int([C | S], middle) -> case lists:member(C, ",+\"\\<>;") of - false -> [C | escape_rdn_value(S, middle)]; - true -> ["\\", C | escape_rdn_value(S, middle)] + false -> [C | escape_rdn_value_int(S, middle)]; + true -> ["\\", C | escape_rdn_value_int(S, middle)] end. %% Get the string representation of an OTPCertificate field. |