/usr/share/ada/adainclude/aws/aws-net-ssl-certificate.ads is in libaws3.2.0-dev 3.2.0-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | ------------------------------------------------------------------------------
-- Ada Web Server --
-- --
-- Copyright (C) 2003-2013, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 3, or (at your option) any --
-- later version. This library is distributed in the hope that it will be --
-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- --
-- --
-- --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
------------------------------------------------------------------------------
with Ada.Calendar;
with Ada.Strings.Unbounded;
private with AWS.Utils;
package AWS.Net.SSL.Certificate is
use Ada.Strings.Unbounded;
type Object is private;
Undefined : constant Object;
function Get (Socket : Socket_Type) return Object;
-- Returns the certificate used by the SSL
function Subject (Certificate : Object) return String;
-- Returns the certificate's subject
function Issuer (Certificate : Object) return String;
-- Returns the certificate's issuer
function Serial_Number (Certificate : Object) return String;
-- Returns the certificate's serial number
function Activation_Time (Certificate : Object) return Calendar.Time;
-- Certificate validity starting date
function Expiration_Time (Certificate : Object) return Calendar.Time;
-- Certificate validity ending date
function Verified (Certificate : Object) return Boolean;
-- Returns True if the certificate has already been verified, this is
-- mostly interresting when used from the Verify_Callback below. If this
-- routine returns True it means that the certificate has already been
-- properly checked. If checked the certificate can be trusted and the
-- Verify_Callback should return True also. If it is False it is up to
-- the application to check the certificate into the Verify_Callback and
-- returns the appropriate status.
function Status (Certificate : Object) return Long_Integer;
-- Returns the status for the certificate. This is to be used inside the
-- verify callback to know why the certificate has been rejected.
function Status_Message (Certificate : Object) return String;
-- Returns the error message for the current certificate status (as
-- returned by Status above).
--
-- Client verification support
--
type Verify_Callback is
access function (Cert : SSL.Certificate.Object) return Boolean;
-- Client certificate verification callback, must return True if Cert can
-- be accepted or False otherwise. Such callback should generally return
-- the value returned by Verified above.
procedure Set_Verify_Callback
(Config : in out SSL.Config; Callback : Verify_Callback);
-- Register the callback to use to verify client's certificates
private
type Object is record
Verified : Boolean;
Status : Long_Integer;
Subject : Unbounded_String;
Issuer : Unbounded_String;
Serial_Number : Unbounded_String;
Activation : Calendar.Time;
Expiration : Calendar.Time;
end record;
Undefined : constant Object :=
(False, 0, Null_Unbounded_String, Null_Unbounded_String,
Null_Unbounded_String, Utils.AWS_Epoch, Utils.AWS_Epoch);
end AWS.Net.SSL.Certificate;
|