Commits

jhwoodyatt  committed 4f238a0

Add X_mechanism_error for signaling when a SASL client or service has
detected that its peer is not performing the mechanism protocol correctly.

  • Participants
  • Parent commits 79863b0
  • Branches PAGODA

Comments (0)

Files changed (2)

File sasl/sasl_error.ml

+(*---------------------------------------------------------------------------*
+  IMPLEMENTATION  sasl_error.ml
+
+  Copyright (c) 2004, James H. Woodyatt
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions
+  are met:
+
+    Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+
+    Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in
+    the documentation and/or other materials provided with the
+    distribution
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+  ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+  FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+  COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+  (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+  STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+  OF THE POSSIBILITY OF SUCH DAMAGE. 
+ *---------------------------------------------------------------------------*)
+
+type t =
+    | X_control_error
+    | X_supplicant_error
+    | X_authenticator_error
+    | X_cancelled_by_user
+    | X_no_sufficient_mechanism
+    | X_access_denied
+    | X_invalid_identity
+    | X_mechanism_error
+
+let to_string = function
+    | X_control_error -> "control error"
+    | X_supplicant_error -> "supplicant error"
+    | X_authenticator_error -> "authenticator error"
+    | X_cancelled_by_user -> "cancelled by user"
+    | X_no_sufficient_mechanism -> "no sufficient mechanism"
+    | X_access_denied -> "access denied"
+    | X_invalid_identity -> "invalid identity"
+    | X_mechanism_error -> "mechanism error"
+
+exception X of t
+
+(*--- End of File [ sasl_error.ml ] ---*)

File sasl/sasl_error.mli

+(*---------------------------------------------------------------------------*
+  INTERFACE  sasl_error.mli
+
+  Copyright (c) 2004, James H. Woodyatt
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions
+  are met:
+
+    Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+
+    Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in
+    the documentation and/or other materials provided with the
+    distribution
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+  ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+  FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+  COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+  (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+  STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+  OF THE POSSIBILITY OF SUCH DAMAGE. 
+ *---------------------------------------------------------------------------*)
+
+type t =
+    | X_control_error
+    | X_supplicant_error
+    | X_authenticator_error
+    | X_cancelled_by_user
+    | X_no_sufficient_mechanism
+    | X_access_denied
+    | X_invalid_identity
+    | X_mechanism_error
+
+val to_string: t -> string
+
+exception X of t
+
+(*--- End of File [ sasl_error.mli ] ---*)