File: //proc/self/root/lib/python3.6/site-packages/ipalib/install/__pycache__/certmonger.cpython-36.pyc
3
�d[e n � @ s� d dl mZmZ d dlZd dlZd dlZd dlZd dlZd dlZd dl Z d dl
m Z d dl m
Z
d dlmZ d dlmZ d dlmZ d dlmZ eje�Zd Zd
Zd
Zd Z d Z d
Z dgZ G dd� d�Z G dd� de �Z!dd� Z"dd� Z#dd� Z$dd� Z%dd � Z&d d � Z'd d � Z(d!d"� Z)dBd&d'�Z*dCd(d)�Z+dDd*d+�Z,dEd,d-�Z-dFd.d/�Z.dGd0d1�Z/d2d3� Z0d4d5� Z1d6d7� Z2d8d9� Z3dHd;d<�Z4d=d>� Z5dId@dA�Z6dS )J� )�print_function�absolute_importN)�api)�CA_DBUS_TIMEOUT)�DN)�Sleeper)�paths)�servicesz /org/fedorahosted/certmongerzorg.fedorahosted.certmongerz#org.fedorahosted.certmonger.requestz org.fedorahosted.certmonger.caz org.freedesktop.DBus.Propertiesztemplate-hostnamec @ s e Zd ZdZddd�ZdS )�_cm_dbus_objectz>
Auxiliary class for convenient DBus object handling.
NFc C s� |dks|dks|dkr t d��|dkr,|}|| _|| _|| _|| _|| _|j||�| _tj | j|�| _
|r|tj | jt �| _ dS )aY
bus - DBus bus object, result of dbus.SystemBus() or dbus.SessionBus()
Object is accesible over this DBus bus instance.
object_path - path to requested object on DBus bus
object_dbus_interface
parent_dbus_interface
property_interface - create DBus property interface? True or False
Nz5bus, object_path and dbus_interface must not be None.)
� RuntimeError�bus�parent�pathZ obj_dbus_ifZparent_dbus_if�
get_object�obj�dbus� Interface�obj_if�DBUS_PROPERTY_IF�prop_if)�selfr r
Z object_pathZobject_dbus_interfaceZparent_dbus_interfaceZproperty_interface� r � /usr/lib/python3.6/certmonger.py�__init__V s
z_cm_dbus_object.__init__)NF)�__name__�
__module__� __qualname__�__doc__r r r r r r
R s r
c s< e Zd ZdZdZdd� Zdd� Zdd� Z� fd d
�Z� Z S ) � _certmongera
Create a connection to certmonger.
By default use SystemBus. When not available use private connection
over Unix socket.
This solution is really ugly and should be removed as soon as DBus
SystemBus is available at system install time.
i, c C st t jjtj� d�}tjtjddd|g�| _ x4t
d| j d�D ]"}t jj |�rRd| S t
jd� q:W | j� td��d S ) N�
certmongerz-nz-Lz-Pr � z unix:path=%sz%Failed to start certmonger: Timed out)�osr �join�tempfileZmkdtemp�
subprocess�Popenr Z
CERTMONGER�_proc�range�timeout�exists�time�sleep�_stop_private_connr )r Z
sock_filename�_tr r r �_start_private_connz s
z _certmonger._start_private_connc C sl | j rh| j j� }|d k r d S | j j� x6td| jd�D ]$}| j j� }|d k rPd S tjd� q6W tjd� d S )Nr r zFailed to stop certmonger.) r& ZpollZ terminater' r( r* r+ �logger�error)r Zretcoder- r r r r, � s
z _certmonger._stop_private_connc C s | j � d S )N)r, )r r r r �__del__� s z_certmonger.__del__c ( s� d | _ d | _ytj� | _W n� tjk
r� } zv|j� }|d krLtjd|� � y | j� | _ tj
j | j �| _W n2 tjk
r� } ztjd|� � W Y d d }~X nX W Y d d }~X n�X y| jj t
� W n� tjk
�rt ytjjj� W n2 tk
�r } ztjd|� � W Y d d }~X nX xVtd| jd�D ]D}y| jj t
� P W n tjk
�rV Y nX tjd� td���q(W Y nX tt| �j| jd tt � d S )
N�#org.freedesktop.DBus.Error.NoServer�'org.freedesktop.DBus.Error.FileNotFoundz2Failed to connect to certmonger over SystemBus: %sz7Failed to connect to certmonger over private socket: %sz Failed to start certmonger: %sr r zFailed to start certmonger)r2 r3 ) r& Z_busr � SystemBus�
DBusExceptionZ
get_dbus_namer/ r0 r. Z
_private_sockZ
connectionZ
ConnectionZget_name_owner� DBUS_CM_NAMEr Z
knownservicesr �start� Exceptionr' r( r* r+ r �superr r � DBUS_CM_PATH�
DBUS_CM_IF)r �eZerr_namer- )� __class__r r r � sH
&
z_certmonger.__init__)
r r r r r( r. r, r1 r �
__classcell__r r )r= r r p s
r c C s, t | t�std��t� }g }g }d| krD|jj| d �}|rN|g}n
|jj� }x�|D ]�}t|j||t t
d�}x�| D ]�}|dkr�|jj � }|dkr�t d| j
d� ��t|j||tt
�}| | |jj� kr�P qr|tkr�t| | �} |jjt |�}
| j|
�s�P qr|jjt |�} | | | krrP qrW |j|� qTW |S )z�
Get all requests that matches the provided criteria.
:param criteria: dict of criteria; see module doc for details
z"criteria" must be dict.�nicknameTzca-nameNz!certmonger CA '%s' is not defined)�
isinstance�dict� TypeErrorr r Zfind_request_by_nicknameZ get_requestsr
r �DBUS_CM_REQUEST_IFr; �get_car �get�
DBUS_CM_CA_IF� get_nickname�ARRAY_PROPERTIES�setr �Get�issubset�append) �criteria�cm�requestsZrequests_pathsZ request_path�requestZ criterion�ca_path�ca�expectZgot�valuer r r �
_get_requests� sB
rU c C s@ t | �}t|�dkrdS t|�dkr,|d S tdt|� ��dS )z�
Find request that matches criteria. Return ``None`` if no match.
Raise ``RuntimeError`` if there is more than one matching request.
:param criteria: dict of criteria; see module doc for details
r N� z1Criteria expected to be met by 1 request, got %s.)rU �lenr )rM rO r r r � _get_request� s rX c C s� yt t| d��}W n0 tk
rB } ztjd|� � W Y dd}~X nX |r�|dkrv|jj� }t|j||t t
�}|jj � S |j j
t|�S ndS dS )z"
Get property of request.
)r? zFailed to get request: %sNzca-name)rX rA r r/ r0 r rD r
r rF r; rG r rJ rC )�
request_id� directiverP r< rQ rR r r r �get_request_value s
r[ c C sX y t | �}W n0 tk
r< } ztjd|� � W Y dd}~X nX |rP|jjtd�S dS dS )a
If you don't know the certmonger request_id then try to find it by looking
through all the requests.
Return ``None`` if no match. Raise ``RuntimeError`` if there is
more than one matching request.
:param criteria: dict of criteria; see module doc for details
zFailed to get request: %sNr? )rX r r/ r0 r rJ rC )rM rP r< r r r �get_request_id s r\ c C s@ g }dd| | d�}t |�}x |D ]}|j|jjtd�� q W |S )zZ
Return a list containing the request ids for a given NSS database
directory.
�NSSDB)z cert-storagez key-storagez
cert-databasez key-databaser? )rU rL r rJ rC )�dirZreqidrM rO rP r r r �get_requests_for_dir- s
r_ c C sZ yt d| i�}W n0 tk
r@ } ztjd|� � W Y dd}~X nX |rV|jj||i� dS )z;
Add a new directive to a certmonger request file.
r? zFailed to get request: %sN)rX r r/ r0 r �modify)rY rZ rT rP r< r r r �add_request_value< s ra c C s t | d|g� dS )z�
In order for a certmonger request to be renewable it needs a principal.
When an existing certificate is added via start-tracking it won't have
a principal.
ztemplate-principalN)ra )rY � principalr r r �
add_principalI s rc c C s t | d|� dS )z�
In order for a certmonger request to be renwable it needs the subject
set in the request file.
When an existing certificate is added via start-tracking it won't have
a subject_template set.
ztemplate-subjectN)ra )rY �subjectr r r � add_subjectS s re �IPAr] Fc C s^ t | ||||||||| |
| � }tjj}| r6| |k r6| }tj� | }x�yt||�}W n2 tk
r� } ztjd|� d}W Y dd}~X nX t |d�}|dkr�|dkr�tjd|� |S tjd|||� |dkr�tjd
|� P | s�P tj� |kr�tjd |� P |dk�rtjd |� tj
d
� qDtjd|� tj
d
� t |� qDW |
�rJt |d� tdj
||���dS )a Request certificate, wait and possibly resubmit failing requests
Submit a cert request to certmonger and wait until the request has
finished.
With timeout, a failed request is resubmitted. During parallel replica
installation, a request sometimes fails with CA_REJECTED or
CA_UNREACHABLE. The error occurs when the master is either busy or some
information haven't been replicated yet. Even a stuck request can be
recovered, e.g. when permission and group information have been
replicated.
zwait_for_request raised %sZTIMEOUTNzca-error�
MONITORINGz Cert request %s was successfulz Cert request %s failed: %s (%s)� CA_REJECTED�CA_UNREACHABLEz Giving up on cert request %sz$Request %s reached resubmit deadlinez'%s not in final state, continue waiting�
z"Sleep and resubmit cert request %s)rY z$Certificate issuance failed ({}: {})> rh ri )� request_certr �envZcertmonger_wait_timeoutr* �wait_for_requestr r/ �debugr[ r+ �resubmit_request�
stop_tracking�format)�certpathrd rb r? � passwd_fname�dnsrR �profile� pre_command� post_command�storage�permsZresubmit_timeoutZstop_tracking_on_errorZreq_idZcertmonger_timeoutZdeadline�stater< Zca_errorr r r �request_and_wait_for_cert^ sJ
r{ c C s� |
dkr&| \} }
t ttt|��� �}n| } | }
t� }|jj|�}|sRtdj|���t|
|
| |
||d�}|rz||d< ||d< |r�|g|d< |r�t |t
t f�s�t |��||d< |r�||d< |r�||d < t
j}|r�tjj|�s�|| }||d
< | �r tjj| ��s|| } | |d < | �r*| d |d
< | d |d< |jj|�}y0|d �r\t|j||d ttd�}ntd��W n2 tk
�r� } ztjd|� � W Y dd}~X nX |jj� S )z�
Execute certmonger to request a server certificate.
``dns``
A sequence of DNS names to appear in SAN request extension.
``perms``
A tuple of (cert, key) permissions in e.g., (0644,0660)
�FILEz{} CA not found)� KEY_STORAGE� CERT_STORAGE�
CERT_LOCATION� KEY_LOCATIONZSUBJECT�CA�
CERT_NICKNAME� KEY_NICKNAMEZ PRINCIPAL�DNS� KEY_PIN_FILEz
ca-profilezcert-presave-commandzcert-postsave-commandr z
cert-permsrV z key-permsTz add_request() returned Falsez"Failed to create a new request: %sN)�strr �reversedr r �find_ca_by_nicknamer rq rA r@ �list�tuplerB r �CERTMONGER_COMMAND_TEMPLATEr! r �isabs� add_requestr
r rC r; r8 r/ r0 rG )rr rd rb r? rs rt rR ru rv rw rx ry �certfile�keyfilerN rQ Zrequest_parameters�certmonger_cmd_template�resultrP r< r r r rk � s^
rk c C s� |dkr| \} } n| } | } t � }
tj}|
jj|�}|sDtdj|���d||| | |d�}|rj||d< ||d< |rv||d< |r�tjj |�|d< |r�tjj
|�s�|| }||d < |r�tjj
|�s�|| }||d
< |r�||d < | dkr�| |d< | |d< |
d k �rt |
�dk�r|
|d< |
jj |�}y0|d �r@t
|
j|
|d ttd�}ntd��W n2 tk
�r| } ztjd|� � W Y d d }~X nX |jjtd�S )aF
Tell certmonger to track the given certificate in either a file or an NSS
database. The certificate access can be protected by a password_file.
This uses the generic certmonger command getcert so we can specify
a different helper.
:param certpath:
The path to an NSS database or a tuple (PEM certificate, private key).
:param ca:
Nickanme of the CA for which the given certificate should be tracked.
:param nickname:
Nickname of the NSS certificate in ``certpath`` to be tracked.
:param pin:
The passphrase for either NSS database containing ``nickname`` or
for the encrypted key in the ``certpath`` tuple.
:param pinfile:
Similar to ``pin`` parameter except this is a path to a file containing
the required passphrase.
:param pre_command:
Specifies a command for certmonger to run before it renews a
certificate. This command must reside in /usr/lib/ipa/certmonger
to work with SELinux.
:param post_command:
Specifies a command for certmonger to run after it has renewed a
certificate. This command must reside in /usr/lib/ipa/certmonger
to work with SELinux.
:param storage:
One of "NSSDB" or "FILE", describes whether certmonger should use
NSS or OpenSSL backend to track the certificate in ``certpath``
:param profile:
Which certificate profile should be used.
:param token_name:
Hardware token name for HSM support
:param dns:
List of DNS names
:returns: certificate tracking nickname.
r| z{} CA not foundT)ZTRACKr~ r} r r� r� r� r� ZKEY_PINr� zcert-presave-commandzcert-postsave-commandz
ca-profileN�internalz key-tokenz
cert-tokenr r� rV z add_request() returned Falsez Failed to add new request: %sr? > r� N)r r r� r r� r rq r! r �abspathr� rW r� r
r rC r; r8 r/ r0 r rJ )rr rR r? �pinZpinfilerv rw ru rx Z
token_namert r� r� rN r� rQ Zparamsr� rP r< r r r �start_tracking� s^ *
r� c C s� |dkr |dkr |dkr t d��| dk r8|dk r8t d��t� }| rJ| |d< |rV||d< |rb||d< |rn||d< y t|�}W n0 t k
r� } ztjd|� � W Y dd}~X nX |r�|jjj|j� dS ) zo
Stop tracking the current request using either the request_id or nickname.
Returns True or False
Nz5One of request_id, nickname and certfile is required.z'Can't specify both secdir and certfile.z
cert-databaser? z
cert-nicknamez cert-filezFailed to get request: %s) r rA rX r/ r0 r
r Zremove_requestr )ZsecdirrY r? r� rM rP r< r r r rp M s( rp c C sj i }|d k r"t � }|jj|�|d< |d k r2||d< |d k rB||d< t|�dkrftd| i�}|jj|� d S )Nr� ztemplate-profilez template-ms-certificate-templater r? )r r r� rW rX r` )rY rR ru � template_v2�updaterN rP r r r r` k s r` c C s� t d| i�}|r�i }|dk r2t� }|jj|�|d< |dk rB||d< |dk rR||d< |rfd|d< d
|d < xXd
tfd tfgD ]D\}} y|jjt|�}
W n t j
k
r� wxY qxX |
rx| |
�||< qxW t |�d kr�|jj |� |jj
� dS )a�
:param request_id: the certmonger numeric request ID
:param ca: the nickname for the certmonger CA, e.g. IPA or SelfSign
:param profile: the profile to use, e.g. SubCA. For requests using the
Dogtag CA, this is the profile to use. This also causes
the Microsoft certificate tempalte name extension to the
CSR (for telling AD CS what template to use).
:param template_v2: Microsoft V2 template specifier extension value.
Format: <oid>:<major-version>[:<minor-version>]
:param is_ca: boolean that if True adds the CA basic constraint
r? Nr� ztemplate-profilez template-ms-certificate-templateTztemplate-is-carV ztemplate-ca-path-lengthzkey-sizezkey-typer ���)rX r r r� �intr� r rJ rC r r5 rW r` Zresubmit) rY rR ru r� Zis_carP r� rN �keyZconvertrT r r r ro z s. ro c C s& t � } | jjd�}t| j| |ttd�S )z�
Look through all the certmonger CA files to find the one that
has id=IPA
We can use find_request_value because the ca files have the
same file format.
rf T)r r r� r
r rF r; )rN rQ r r r � _find_IPA_ca� s r� c C sN t � }|rJ|jjtd�}|rJdtj|�krJd|j� | f }|jjtd|� dS )a
If the hostname we were passed to use in ipa-client-install doesn't
match the value of gethostname() then we need to append
-k host/HOSTNAME@REALM to the ca helper defined for
/usr/libexec/certmonger/ipa-submit.
We also need to restore this on uninstall.
zexternal-helperz-kz%s -k %sN)r� r rJ rF �shlex�split�strip�Set)rb rR �
ext_helperr r r �add_principal_to_cas� s r� c C sL t � } | rH| jjtd�}|rHdtj|�krHtj|�d }| jjtd|� dS )zE
Remove any -k principal options from the ipa_submit helper.
zexternal-helperz-kr N)r� r rJ rF r� r� r� )rR r� r r r �remove_principal_from_cas� s r� c C s| t j� }|jdd�}t j|d�}|j| �}|s>tdj| ���n:|jd|�}t j|d�}|jdd�}|jdd|t d� |S dS ) zi
Modify certmonger CA helper.
Applies the new helper and return the previous configuration.
zorg.fedorahosted.certmongerz /org/fedorahosted/certmongerz{} is not configuredz org.freedesktop.DBus.Propertiesz org.fedorahosted.certmonger.cazexternal-helper)r( N)
r r4 r r r� r rq rJ r� r ) Zca_name�helperr r Zifacer Zca_objZca_ifaceZ
old_helperr r r �modify_ca_helper� s
r� r� c C sJ t tjd��4}x,|D ]$}|jdd�\}}| |kr|j� S qW W dQ R X dS )z�
Dogtag stores its NSS pin in a file formatted as token:PIN.
The caller is expected to handle any exceptions raised.
�r�=rV N)�openr ZPKI_TOMCAT_PASSWORD_CONFr� r� )�token�f�line�tokr� r r r �get_pin� s
r� c C s$ g }x| D ]}|j t|�� q
W |S )a
Given a set of directories and nicknames verify that we are no longer
tracking certificates.
dirs is a list of directories to test for. We will return a tuple
of nicknames for any tracked certificates found.
This can only check for NSS-based certificates.
)�extendr_ )�dirsZreqidsr^ r r r � check_state� s
r� �x c C sV t d|td�d�}d }x:tt| d��}||kr:tjd|� |d krDP |}|� qW |S )
Ng �?zrequest timed out)r+ r( ZraisesZstatusz!certmonger request is in state %rrh ri �CA_UNCONFIGURED�
NEED_GUIDANCE�NEED_CArg > rg rh r� ri r� r� )r r r� r[ r/ rn )rY r( r+ Z
last_staterz r r r rm
s
rm ) NNNrf NNNr] Nr F) NNNrf NNNr] N)
rf NNNNNNr] NN)NNNN)NNN)NNNF)r� )r� )7Z
__future__r r Zloggingr! r* r r� r$ r# Zipalibr Zipalib.constantsr Z ipapython.dnr Zipapython.ipautilr Zipaplatform.pathsr Z ipaplatformr Z getLoggerr r/ r: r; r6 rC rF r rH r
r rU rX r[ r\ r_ ra rc re r{ rk r� rp r` ro r� r� r� r� r� r� rm r r r r �<module> sl
O1
B
D
a
+