3
گa�� � @ s: d Z ddlmZ ddlZddlZddlZddlmZ ddlm Z ddlm
Z
ddlm Z ddlm Z dd lm
Z
dd
lmZ dd lmZ ddlZddlZddlZddlZdd lmZ dd
lmZ ddlZddlm Z ddlm Z dd
lmZ ddlm Z ddlm Z ddl m!Z! ddl m"Z" ddl m#Z# dd l mZ ddl m$Z$ ddl m%Z% ddl m&Z& ddl m'Z' ddl m(Z( ddl m)Z) ddl m*Z* dd l m+Z+ dd l m,Z, dd l-m.Z/ ddl-m Z0 dd l1m2Z3 dd l1m4Z5 dd!l6m7Z7 dd"l6m8Z8 dd#l6m9Z9 dd$l:m;Z< ddl:m Z= dd%l>m?Z? d&Z@ejAeB�ZCe jDdd'�d(d)�ZEd�ejFe jDe e eG e eG e e+jH e e+jH d*�d+d,�ZIe jDe+jHdd-�d.d/�ZJe jDe
eG e+jHe
eGe e+jH f d0�d1d2�ZKe jDe+jHe
eGe e+jH f d3�d4d5�ZLe jDe eG e
e eG e e+jH f d6�d7d8�ZMe jDe eG eGe
eNe e+jH f d9�d:d;�ZOe jDe eG eGe
e eG e e+jH f d9�d<d=�ZPed>�ZQe
eQ e
eQ e
e eQ e eQ f d?�d@dA�ZReGe
eG eGdB�dCdD�ZSe jDe
eG eGe
eG ddE�dFdG�ZTd�e jDe e jU e eG e
e eG eGf dH�dIdJ�ZVd�e jDe ejW e e+jH eNddL�dMdN�ZXd�e jDe eG e eG e eG ddO�dPdQ�ZYe jDeNd'�dRdS�ZZe jDe eG e eG e eG ddT�dUdV�Z[e jDe
e!j\e ej] f d'�dWdX�Z^e jDdd'�dYdZ�Z_e jDe e j` e e jU ejFd[�d\d]�Zae jDe3jbe eG d^�d_d`�Zce jDe3jbe eG d^�dadb�Zde jDe3jbe eG d^�dcdd�Zee jDe e+jH e eG d3�dedf�Zfd�e jDejFe eG e e+jH ddg�dhdi�Zge jDe3jbe eG dj�dkdl�Zhe jDe jDd'�dmdn�Zie jDdd'�dodp�Zje jDe3jbddj�dqdr�Zke jDe3jbe eG dj�dsdt�Zle jDe3jbddj�dudv�Zme jDe3jbdd^�dwdx�Zne jDe3jbdd^�dydz�Zoe jDe3jbdd^�d{d|�Zpe jDe3jbdd^�d}d~�Zqe jDe3jbe eG d^�dd��Zre jDe3jbe eG dj�d�d��Zse jDejFe
e eG e eG e eG f d��d�d��Zte jDe3jbe+jHdd��d�d��Zue jDe3jbddj�d�d��Zve jDe3jbdd^�d�d��Zwe jDdd'�d�d��Zxee jDeee=jye=jzf ddf d'�d�d���Z{d�e eG e eeGe|f d��d�d��Z}dS )�zCertbot main entry point.� )�contextmanagerN)� Generator)�IO)�Iterable)�List)�Optional)�Tuple)�TypeVar)�Union)�client)�errors)�
configuration)� crypto_util)�
interfaces)�util)�account)� cert_manager)�cli)� constants)�eff)�hooks)�log)�renewal)�reporter)� snap_config)�storage)�updater)�obj)�disco)� selection)�
filesystem)�misc)�os)�ops)� enhancementsz?User chose to cancel the operation and may reinvoke the client.)�config�returnc C s4 | j dkst�| js| jr dS tjtjddd� dS )z�Potentially suggest a donation to support Certbot.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:returns: `None`
:rtype: None
�renewNz�If you like Certbot, please consider supporting our work by:
* Donating to ISRG / Let's Encrypt: https://letsencrypt.org/donate
* Donating to EFF: https://eff.org/donate-leF)�pause)�verb�AssertionErrorZstaging�quietr �atexit_register� display_util� notification)r% � r/ �/usr/lib/python3.6/main.py� _suggest_donation_if_appropriate= s r1 )� le_clientr% �domains�certname�lineager& c C s� t j|� z�|dk rRtjdj|jr&dndtj|p6|j� �d�� t j
||| |� np|dkrdt j d��tjdj|jrvdndtj|�d�� | j
||�}|d kr�t j d
��|dk r�t j||j� |j� W dt j|� X |S ) a, Authenticate and enroll certificate.
This method finds the relevant lineage, figures out what to do with it,
then performs that action. Includes calls to hooks, various reports,
checks, and requests for user input.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param domains: List of domain names to get a certificate. Defaults to `None`
:type domains: `list` of `str`
:param certname: Name of new certificate. Defaults to `None`
:type certname: str
:param lineage: Certificate lineage object. Defaults to `None`
:type lineage: storage.RenewableCert
:returns: the issued certificate or `None` if doing a dry run
:rtype: storage.RenewableCert or None
:raises errors.Error: if certificate could not be obtained
Nz{action} for {domains}z-Simulating renewal of an existing certificatez Renewing an existing certificate)�actionr3 z5Domain list cannot be none if the lineage is not set.z Simulating a certificate requestzRequesting a certificateFz!Certificate could not be obtained)r Zpre_hookr- �notify�format�dry_run�internal_display_util�summarize_domain_list�namesr �
renew_certr �ErrorZ obtain_and_enroll_certificateZ deploy_hook�live_dirZ post_hook)r2 r% r3 r4 r5 r/ r/ r0 �_get_and_save_certW s,
r@ )r% �certr& c C sV t jd� st jd� rR| jj� }|jj� }||krRd}|j|j||�}tj|��dS )a|
This function ensures that the user will not implicitly migrate an existing key
from one type to another in the situation where a certificate for that lineage
already exist and they have not provided explicitly --key-type and --cert-name.
:param config: Current configuration provided by the client
:param cert: Matching certificate that could be renewed
�key_typer4 z�Are you trying to change the key type of the certificate named {0} from {1} to {2}? Please provide both --cert-name and --key-type on the command line to confirm the change you are trying to make.N) r �
set_by_clirB �upperZprivate_key_typer8 � lineagenamer r> )r% rA Z new_key_typeZ cur_key_type�msgr/ r/ r0 �%_handle_unexpected_key_type_migration� s
rG )r% r3 rA r& c C s� t | |� dj|j� �}dj|jj|dj|�tjd�}| jsV| j sVt
j |ddddd�r^d |fS t
j d
j|t
jd jtjd d
� �tjd�� tjt��d
S )a Figure out what to do if a previous cert had a subset of the names now requested
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param domains: List of domain names
:type domains: `list` of `str`
:param cert: Certificate object
:type cert: storage.RenewableCert
:returns: Tuple of (str action, cert_or_None) as per _find_lineage_for_domains_and_certname
action can be: "newcert" | "renew" | "reinstall"
:rtype: `tuple` of `str`
z, a You have an existing certificate that contains a portion of the domains you requested (ref: {0}){br}{br}It contains these names: {1}{br}{br}You requested these names for the new certificate: {2}.{br}{br}Do you want to expand and replace this existing certificate with the new certificate?)�brZExpand�Cancelz--expandT)�cli_flag�force_interactiver' z�To obtain a new certificate that contains these names without replacing your existing certificate for {0}, you must use the --duplicate option.{br}{br}For example:{br}{br}{1} --duplicate {2}� � N)rG �joinr< r8 �
configfile�filenamer" �linesep�expandZrenew_by_defaultr- �yesnor7 r � cli_command�sys�argvr r> �USER_CANCELLED)r% r3 rA Zexisting�questionr/ r/ r0 �_handle_subset_cert_request� s
rY )r% r5 r& c C s� t | |� |j� sd|fS tj| |�r.d|fS | jr<d|fS dj|jjtj d�}| j
dkr`d}n| j
dkrnd}|d g}t j ||d
d d �}|d
t j
kr�tjd
��|d d
kr�d|fS |d dkr�d|fS td��dS )a� Figure out what to do if a lineage has the same names as a previously obtained one
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param lineage: Certificate lineage object
:type lineage: storage.RenewableCert
:returns: Tuple of (str action, cert_or_None) as per _find_lineage_for_domains_and_certname
action can be: "newcert" | "renew" | "reinstall"
:rtype: `tuple` of `str`
� reinstallr' z�You have an existing certificate that has exactly the same domains or certificate name you requested and isn't close to expiry.{br}(ref: {0}){br}{br}What would you like to do?)rH �runz.Attempt to reinstall this existing certificate�certonlyz%Keep the existing certificate for nowzBRenew & replace the certificate (may be subject to CA rate limits)r T)�defaultrK z.Operation canceled. You may re-run the client.rM zThis is impossibleN)rG Zensure_deployedr Z should_renewrZ r8 rO rP r" rQ r) r- ZmenuZCANCELr r> r* )r% r5 rX Zkeep_opt�choicesZresponser/ r/ r0 � _handle_identical_cert_request� s2
r_ )r% r3 r& c C sX | j r
dS tj| |�\}}|dkr.|dkr.dS |dk r@t| |�S |dk rTt| ||�S dS )a Determine whether there are duplicated names and how to handle
them (renew, reinstall, newcert, or raising an error to stop
the client run if the user chooses to cancel the operation when
prompted).
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param domains: List of domain names
:type domains: `list` of `str`
:returns: Two-element tuple containing desired new-certificate behavior as
a string token ("reinstall", "renew", or "newcert"), plus either
a RenewableCert instance or `None` if renewal shouldn't occur.
:rtype: `tuple` of `str` and :class:`storage.RenewableCert` or `None`
:raises errors.Error: If the user would like to rerun the client again.
�newcertN)r` N)r` N)NN)Z duplicater Zfind_duplicative_certsr_ rY )r% r3 Zident_names_certZsubset_names_certr/ r/ r0 �_find_lineage_for_domains s
ra )r% r3 r4 r& c C s. t | ||�\}}|dkr"tjd� |dk|fS )ab Finds an existing certificate object given domains and/or a certificate name.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param domains: List of domain names
:type domains: `list` of `str`
:param certname: Name of certificate
:type certname: str
:returns: Two-element tuple of a boolean that indicates if this function should be
followed by a call to fetch a certificate from the server, and either a
RenewableCert instance or None.
:rtype: `tuple` of `bool` and :class:`storage.RenewableCert` or `None`
rZ z Keeping the existing certificate)�&_find_lineage_for_domains_and_certname�logger�info)r% r3 r4 r6 r5 r/ r/ r0 �
_find_cert: s
re c C s� |st | |�S tj| |�}|rp|rftj| |�}|rft|�t|�krft| |� t| |||j� � d|fS t| |�S |rxdS t j
dj |���dS )a� Find appropriate lineage based on given domains and/or certname.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param domains: List of domain names
:type domains: `list` of `str`
:param certname: Name of certificate
:type certname: str
:returns: Two-element tuple containing desired new-certificate behavior as
a string token ("reinstall", "renew", or "newcert"), plus either
a RenewableCert instance or None if renewal should not occur.
:rtype: `tuple` of `str` and :class:`storage.RenewableCert` or `None`
:raises errors.Error: If the user would like to rerun the client again.
r' r` Nz}No certificate with name {0} found. Use -d to specify domains, or run certbot certificates to see possible certificate names.)r` N) ra r �lineage_for_certname�domains_for_certname�setrG � _ask_user_to_confirm_new_namesr< r_ r �ConfigurationErrorr8 )r% r3 r4 r5 Zcomputed_domainsr/ r/ r0 rb S s
rb �T)�after�beforer& c C s@ t t| �t|� �}t t|�t| � �}|j� |j� ||fS )zWGet lists of items removed from `before`
and a lists of items added to `after`
)�listrh �sort)rl rm �added�removedr/ r/ r0 �_get_added_removed� s
rr )� character�stringsr& c C s( |s
d}nddj |� }|j| tjd�S )z%Format list with given character
z
{br}(None)z {br}{ch} )ZchrH )rN r8 r" rQ )rs rt Z formattedr/ r/ r0 � _format_list� s ru )r% � new_domainsr4 � old_domainsr& c C sX | j r
dS t||�\}}dj|td|�td|�tjd�}tj|dddd �sTtj d
��dS ) a Ask user to confirm update cert certname to contain new_domains.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param new_domains: List of new domain names
:type new_domains: `list` of `str`
:param certname: Name of certificate
:type certname: str
:param old_domains: List of old domain names
:type old_domains: `list` of `str`
:returns: None
:rtype: None
:raises errors.ConfigurationError: if cert name and domains mismatch
Nz�You are updating certificate {0} to include new domain(s): {1}{br}{br}You are also removing previously included domain(s): {2}{br}{br}Did you intend to make this change?�+�-)rH zUpdate certificaterI T)r] z2Specified mismatched certificate name and domains.)
Zrenew_with_new_domainsrr r8 ru r" rQ r- rS r rj )r% rv r4 rw rp rq rF r/ r/ r0 ri � s
ri )r% � installerrX r& c C sV d}| j }| jr| j}n|r(tj| |�}|s8tj||�}| rN| rNtjd��||fS )a Retrieve domains and certname from config or user input.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param installer: Installer object
:type installer: interfaces.Installer
:param `str` question: Overriding default question to ask the user if asked
to choose from domain names.
:returns: Two-part tuple of domains and certname
:rtype: `tuple` of list of `str` and `str`
:raises errors.Error: Usage message, if parameters are not used correctly
Nz�Please specify --domains, or --installer that will help in domain names autodiscovery, or --cert-name for an existing certificate name.)r4 r3 r rg � display_opsZ choose_namesr r> )r% rz rX r3 r4 r/ r/ r0 �_find_domains_or_certname� s
r| T)r% �
installer_errr5 �new_or_renewed_certr& c s� g }|r.|j d� j� dtj� dt� |�� �� |rr� jrD|j d� n.t� �rb|j dtj� d�� n� jsr|j d� |szdS � fd d
�tj d tj
fD �\}}}t ||d � t j
d
� t |dd � x |D ]}t j
d|� �� q�W |r�t � dS )a� Displays post-run/certonly advice to the user about renewal and installation.
The output varies by runtime configuration and any errors encountered during installation.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param installer_err: The installer/enhancement error encountered, if any.
:type error: Optional[errors.Error]
:param lineage: The resulting certificate lineage from the issuance, if any.
:type lineage: Optional[storage.RenewableCert]
:param bool new_or_renewed_cert: Whether the verb execution resulted in a certificate
being saved (created or renewed).
zBThe certificate was saved, but could not be installed (installer: zM). After fixing the error shown below, try installing it again by running:
z install --cert-name z�Certificates created using --csr will not be renewed automatically by Certbot. You will need to renew the certificate before it expires, by running the same Certbot command again.z�This certificate will not be renewed automatically. Autorenewal of --manual certificates requires the use of an authentication hook script (--manual-auth-hook) but one was not provided. To renew this certificate, repeat this same z. command before the certificate's expiry date.z�The certificate will need to be renewed before it expires. Certbot can automatically renew the certificate in the background, but you may need to take steps to enable that functionality. See https://certbot.org/renewal-setup for instructions.Nc s& g | ] }t jj� r � j r |nd �qS )� )rU �stdout�isattyr+ )�.0�c)r% r/ r0 �
<listcomp># s z&_report_next_steps.<locals>.<listcomp>�
)�endz NEXT STEPS:r z- )�appendrz r rT �!_cert_name_from_config_or_lineage�csr�_is_interactive_only_auth�preconfigured_renewalr Z
ANSI_SGR_BOLDZANSI_SGR_RESET�printr- r7 ) r% r} r5 r~ ZstepsZbold_on�nlZbold_off�stepr/ )r% r0 �_report_next_steps� s2 "
r� )r% � cert_path�fullchain_path�key_pathr& c C s� | j rtjd� dS |r |s$td��d}| jr<t| � r<d}tjdj|tj|�j � |r`dj|�nd|| j
dkrrd ndd
�� dS ) a� Reports the creation of a new certificate to the user.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param cert_path: path to certificate
:type cert_path: str
:param fullchain_path: path to full chain
:type fullchain_path: str
:param key_path: path to private key, if available
:type key_path: str
:returns: `None`
:rtype: None
zThe dry run was successful.Nz No certificates saved to report.r z_
Certbot has set up a scheduled task to automatically renew this certificate in the background.z�
Successfully received certificate.
Certificate is saved at: {cert_path}
{key_msg}This certificate expires on {expiry}.
These files will be updated when the certificate renews.{renewal_msg}{nl}z Key is saved at: {}
r[ r� )r� �expiryZkey_msg� renewal_msgr� ) r9 r- r7 r* r� r� r8 r �notAfter�dater) )r% r� r� r� r� r/ r/ r0 �_report_new_cert1 s
r� c C s | j dkr| jdkrdS dS )zP Whether the current authenticator params only support interactive renewal.
ZmanualNTF)�
authenticatorZmanual_auth_hook)r% r/ r/ r0 r� ^ s r� )r% r� �
chain_pathr� r& c C sN | j rtjd� dS |r |s$td��tj|�j� }tjdj||||d�� dS )a� --csr variant of _report_new_cert.
Until --csr is overhauled (#8332) this is transitional function to report the creation
of a new certificate using --csr.
TODO: remove this function and just call _report_new_cert when --csr is overhauled.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param str cert_path: path to cert.pem
:param str chain_path: path to chain.pem
:param str fullchain_path: path to fullchain.pem
zThe dry run was successful.Nz No certificates saved to report.z�
Successfully received certificate.
Certificate is saved at: {cert_path}
Intermediate CA chain is saved at: {chain_path}
Full certificate chain is saved at: {fullchain_path}
This certificate expires on {expiry}.)r� r� r� r� )r9 r- r7 r* r r� r� r8 )r% r� r� r� r� r/ r/ r0 �_csr_report_new_certh s
r� c s t dd�� fdd� }tj� �}d}� jdk r:|j� j�}n�|j� }t|�dkrltj|�}|sftj d��|}n�t|�dkr�|d }n�� j
dkr�� j r�tj � � _
y"t
j� ||d�\}}tjd � W nF tjk
r� � Y n0 tj k
�r tjd
d d � tj d
��Y nX |j� _||fS )a� Determine which account to use.
If ``config.account`` is ``None``, it will be updated based on the
user input. Same for ``config.email``.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:returns: Account and optionally ACME client API (biproduct of new
registration).
:rtype: tuple of :class:`certbot._internal.account.Account` and :class:`acme.client.Client`
:raises errors.Error: If unable to register an account with ACME server
N)�terms_of_servicer& c s6 � j r
d S dj| �}tj|ddd�}|s2tjd��d S )NzpPlease read the Terms of Service at {0}. You must agree in order to register with the ACME server. Do you agree?z --agree-tosT)rJ rK z?Registration cannot proceed without accepting Terms of Service.)Ztosr8 r- rS r r> )r� rF �result)r% r/ r0 �_tos_cb� s z#_determine_account.<locals>._tos_cbrM zNo account has been chosen.r )Ztos_cbzAccount registered.r T)�exc_infoz.Unable to register an account with ACME server)�strr �AccountFileStorage�load�find_all�lenr{ Zchoose_accountr r> �email� register_unsafely_without_email� get_emailr �registerr- r7 ZMissingCommandlineFlagrc �debug�id)r% r� �account_storage�acme�acc�accountsZ
potential_accr/ )r% r0 �_determine_account� s6
r� c s | j }|dkr&d}tj|ddddd�}|s.dS | js8t�| jsJtj| �| _tj t
j tj | | j�ddd�| | j�� y&tj
| � fd d
�gd d
� d d
� � W nf tjk
r� tjd
� � dS tk
� r� } z(d}|j| j| j� |�}tj|��W Y dd}~X nX tj| � dS )a� Does the user want to delete their now-revoked certs? If run in non-interactive mode,
deleting happens automatically.
:param config: parsed command line arguments
:type config: configuration.NamespaceConfig
:returns: `None`
:rtype: None
:raises errors.Error: If anything goes wrong, including bad user input, if an overlapping
archive dir is found for the specified lineage, etc ...
Nz{Would you like to delete the certificate(s) you just revoked, along with all earlier and later versions of the certificate?zYes (recommended)ZNoT)� yes_label�no_labelrK r] zutf-8)�encodingZdefault_encodingc s � S )Nr/ )�x)� archive_dirr/ r0 �<lambda>� s z(_delete_if_appropriate.<locals>.<lambda>c S s | j S )N)r� )r� r/ r/ r0 r� � s c S s | j S )N)rE )r� r/ r/ r0 r� � s zhNot deleting revoked certificates due to overlapping archive dirs. More than one certificate is using %sz_config.default_archive_dir: {0}, config.live_dir: {1}, archive_dir: {2},original exception: {3})Zdelete_after_revoker- rS r� r* r4 r �cert_path_to_lineager Zfull_archive_path� configobjZ ConfigObj�renewal_file_for_certnameZmatch_and_check_overlapsr ZOverlappingMatchFoundrc Zwarning� Exceptionr8 Zdefault_archive_dirr? r> �delete)r% Zattempt_deletionrF �er/ )r� r0 �_delete_if_appropriate� s6
r� )r% r� rz r& c C s> |dk r"t | �\}}tjd|� nd\}}tj| ||||d�S )a� Initialize Let's Encrypt Client
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param authenticator: Acme authentication handler
:type authenticator: Optional[interfaces.Authenticator]
:param installer: Installer object
:type installer: interfaces.Installer
:returns: client: Client object
:rtype: client.Client
NzPicked account: %r)r� )NN)r� rc r� r �Client)r% r� rz r� r� r/ r/ r0 �_init_le_client s
r� )r% �unused_pluginsr& c
C s� t j| �}|j� }|sdS d}tj|dddd�}|s8dS t| �\}}tj| |dd|d �}|jsht j
d
��|jj |j � t j| �} | j
| j � tjd � dS ) a: Deactivate account on server
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None` or a string indicating an error
:rtype: None or str
z.Could not find existing account to deactivate.zCAre you sure you would like to irrevocably deactivate your account?Z
DeactivateZAbortT)r� r� r] zDeactivation aborted.N)r� zACME client is not set.zAccount deactivated.)r r� r� r- rS r� r r� r� r r> Zdeactivate_registration�regrr� r7 )
r% r� r� r� �promptZwants_deactivater� r� � cb_clientZ
account_filesr/ r/ r0 �
unregister s$
r� c C s& t j| �}|j� }|rdS t| � dS )a= Create accounts on the server.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None` or a string indicating and error
:rtype: None or str
zmThere is an existing account; registration of a duplicate account with this command is currently unsupported.N)r r� r� r� )r% r� r� r� r/ r/ r0 r� G s
r� c C s t j| �}|j� }|sdS | jdkr:| j r:tjdd�| _t| �\}}tj | |dd|d�}|j
sjt j d��f }| jr�dd� | jj
d �D �}|jj}|j
j|jj|jjj|d
�d ��|_|jj|d �|_|j||j
� | js�tjd
� n tj| |� tjdj| j�� dS )a= Modify accounts on the server.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None` or a string indicating and error
:rtype: None or str
z-Could not find an existing account to update.NF)Zoptional)r� zACME client is not set.c S s g | ] }d | �qS )zmailto:r/ )r� r� r/ r/ r0 r� � s z"update_account.<locals>.<listcomp>�,)Zcontact)�body)�urizFAny contact information associated with this account has been removed.z'Your e-mail address was updated to {0}.)r r� r� r� r� r{ r� r� r r� r� r r> �splitr� r� Zupdate_registration�updater� Z update_regrr- r7 r Zprepare_subscriptionr8 ) r% r� r� r� r� r� r� Z acc_contactsZ
prev_regr_urir/ r/ r0 �update_accountf s.
r� c C s@ |r
|j S | jr| jS ytj| �}|S tjk
r: Y nX d S )N)rE r4 r r� r r> )r% r5 Z cert_namer/ r/ r0 r� � s
r� )r% r2 r3 r5 r& c C sF |r|n| }|j dk st�|j||j|j |j|j� |j||j� dS )a� Install a cert
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param le_client: Client object
:type le_client: client.Client
:param domains: List of domains
:type domains: `list` of `str`
:param lineage: Certificate lineage object. Defaults to `None`
:type lineage: storage.RenewableCert
:returns: `None`
:rtype: None
N)r� r* Zdeploy_certificater� r� r� �enhance_config)r% r2 r3 r5 Z
path_providerr/ r/ r0 �
_install_cert� s
r� )r% �pluginsr& c
C s$ yt j| |d�\}}W n& tjk
r< } zt|�S d}~X nX | joH| j}| j rt| rtd}tj | dd|d�d | _t
j | |�s�tj d��| jr�t
| �} nt
j| �r�tjd��| jr�| jr�t| � t| |�\}}t| d|d �}t| ||� n
tjd
��t
j| ��r tj| | j�} t
j| ||| � dS ) a' Install a previously obtained cert in a server.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None` or the error message
:rtype: None or str
�installNz,Which certificate would you like to install?F)�allow_multiple�
custom_promptr zVOne ore more of the requested enhancements are not supported by the selected installerzLOne or more of the requested enhancements require --cert-name to be provided)r� rz z�Path to certificate or key was not defined. If your certificate is managed by Certbot, please use --cert-name to define which certificate you would like to install.)�plug_sel�choose_configurator_pluginsr �PluginSelectionErrorr� r� r� r4 r �
get_certnamesr$ �
are_supported�NotSupportedError�_populate_from_certname�
are_requestedrj �_check_certificate_and_keyr| r� r� rf �enable)
r% r� rz �_r� Z custom_cert�certname_questionr3 r2 r5 r/ r/ r0 r� � s4
r� c C sZ t j| | j�}|s| S | js&|j| j_| js6|j| j_| jsF|j| j_| jsV|j| j_| S )zfHelper function for install to populate missing config values from lineage
defined by --cert-name.)r rf r4 r� � namespacer� r� r� )r% r5 r/ r/ r0 r� s
r� c C sP t jjtj| j��s&tjdj| j���t jjtj| j ��sLtjdj| j ���d S )Nz-Error while reading certificate from path {0}z-Error while reading private key from path {0})
r" �path�isfiler �realpathr� r rj r8 r� )r% r/ r/ r0 r� s
r� c C s� t jd| j� | jdkr g n| j}|j� j|�}t jd|� tjtjdd�}| j rl| j rl|t
|�� dS |j| � |j |�}t jd|� | j s�|t
|�� dS |j � |j � }t jd|� |t
|�� dS )z�List server software plugins.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
zExpected interfaces: %sNzFiltered plugins: %rF)r( zVerified plugins: %rzPrepared plugins: %s)
rc r� �ifacesZvisible� functools�partialr- r. ZinitZpreparer� Zverify� available)r% r� r� Zfilteredr7 Zverifiedr� r/ r/ r0 � plugins_cmd s$
r� c s� ddddg}t � fdd�|D ��}tj� � rP| rPd}tj|tj� tjd��yt j
� |d �\}}W n& tj k
r� } zt |�S d
}~X nX tj
� |�s�tjd ��d }tj� d d
|d�d � _tj� � j�} | d
kr�tjd��� jr�| }
n d} tj| | �}
|
�s tjd��tj� � j�} | �s*tjd��� j�s:| j� _|�r`t� d
|d�}
|
j|
� jd
d� tj� ��r|tj| |
|� � d
S )a6 Add security enhancements to existing configuration
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None` or a string indicating an error
:rtype: None or str
ZhstsZredirectZuirZstaplec 3 s | ]}t � |�V qd S )N)�getattr)r� Zenh)r% r/ r0 � <genexpr>W s zenhance.<locals>.<genexpr>z|Please specify one or more enhancement types to configure. To list the available enhancement types, run:
%s --help enhance
z#No enhancements requested, exiting.�enhanceNzVOne ore more of the requested enhancements are not supported by the selected installerzFWhich certificate would you like to use to enhance your configuration?F)r� r� r zBCould not find the list of domains for the given certificate name.zJWhich domain names would you like to enable the selected enhancements for?zAUser cancelled the domain selection. No domains defined, exiting.z:Could not find the lineage for the given certificate name.)r� rz )Zredirect_default) �anyr$ r� rc �errorr rT r ZMisconfigurationErrorr� r� r� r� r� r� r r� r4 rg r> �noninteractive_moder{ Z
choose_valuesrf r� r� r� r� )r% r� Zsupported_enhancementsZ oldstyle_enhrF rz r� r� r� Z cert_domainsr3 Zdomain_questionr5 r2 r/ )r% r0 r� G sH
r� c C s t j| j| j| |� dS )a Rollback server configuration changes made during install.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r �rollbackrz Z checkpoints)r% r� r/ r/ r0 r� � s
r� c C s t j| � dS )a� Update the certificate file family symlinks
Use the information in the config file to make symlinks point to
the correct archive directory.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r Zupdate_live_symlinks)r% r� r/ r/ r0 �update_symlinks� s r� c C s t j| � dS )aZ Rename a certificate
Use the information in the config file to rename an existing
lineage.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r Zrename_lineage)r% r� r/ r/ r0 �rename� s r� c C s t j| � dS )aZ Delete a certificate
Use the information in the config file to delete an existing
lineage.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r r� )r% r� r/ r/ r0 r� � s r� c C s t j| � dS )a. Display information about certs configured with Certbot
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r � certificates)r% r� r/ r/ r0 r� � s r� c
C s� d | _ | _| jdkrV| jrVtjtj| | j�| �}|j| _|jrttj d� rt|j| _n | j sj| jrt| jrtt
j d��| j dk r�t
jd| j| j � tj| j| j � t| j d��}tjj|j� �}W dQ R X tj| |�}n,t
jd| j� t| �\}}tj| |j|j�}t| jd��}tj|j� �d }W dQ R X t
jd| j � y |j tj |�| j � t | � W n( t j!k
�r� } zt"| �S d} ~ X nX t#j$| j� dS ) aS Revoke a previously obtained certificate.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None` or string indicating error in case of error
:rtype: None or str
N�serverzCError! Exactly one of --cert-path or --cert-name must be specified!z$Revoking %s using certificate key %s�rbz Revoking %s using Account Keyr z Reason code for revocation: %s)%rz r� r� r4 r �
RenewableCertr� r� r rC r r> r� rc r� r Z verify_cert_matches_priv_key�open�joseZJWKr� �readr Zacme_from_config_keyr� �keyr� Zpyopenssl_load_certificate�reason�revokeZComparableX509r� � acme_errorsZ ClientErrorr� r{ Zsuccess_revocation)
r% r� r5 �fr� r� r� r� rA r� r/ r/ r0 r� � s:
r� c ) C s� yt j| |d�\}}W n& tjk
r< } zt|�S d}~X nX tj| |�sTtjd��t| ||�}t | |�\}}t
| ||�\}} | }
|r�t || ||| �}
|
r�|
j nd} |
r�|
j
nd} |
r�|
jnd}
|r�t| | | |
� d}z�yZt| |||
� tj| �o�|
�rtj|
||| � | dk�s| �r&tj|� n
tj|� W n* tjk
�r\ } z
|}W Y dd}~X nX W dt| ||
|d� |�r||�X t| � tj| |j� dS )z�Obtain a certificate and install.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
r[ NzVOne ore more of the requested enhancements are not supported by the selected installer)r~ ) r� r� r r� r� r$ r� r� r� r| re r@ r� r� r� r� r� r� r� r{ Zsuccess_installationZsuccess_renewalr> r� r1 r �handle_subscriptionr )r% r� rz r� r� r2 r3 r4 �should_get_certr5 Z new_lineager� r� r� r} r/ r/ r0 r[ sF
r[ )r% r2 r& c
C s� | j \}}tj|j�}tjdj| jr(dndtj |�d�� |j
|�\}}| jr`t j d| j
� dS |j||tjj| j
�tjj| j�tjj| j��\}}} ||| fS )a@ Obtain a cert using a user-supplied CSR
This works differently in the CSR case (for now) because we don't
have the privkey, and therefore can't construct the files for a lineage.
So we just save the cert & chain to disk :/
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param client: Client object
:type client: client.Client
:returns: `cert_path`, `chain_path` and `fullchain_path` as absolute
paths to the actual files, or None for each if it's a dry-run.
:rtype: `tuple` of `str`
z{action} for {domains}z Simulating a certificate requestzRequesting a certificate)r6 r3 z*Dry run: skipping saving certificate to %sN)NNN)Z
actual_csrr Zget_names_from_req�datar- r7 r8 r9 r: r; Zobtain_certificate_from_csrrc r� r� Zsave_certificater" r� �normpathr� r� )
r% r2 r� r� Z csr_namesrA �chainr� r� r� r/ r/ r0 �_csr_get_and_save_certb s
"r� )r% r� r5 r& c C st t j| |d�\}}t| ||�}t|| |d�}|s:tjd��|rp| j rptj| ||� t j
d| j � d�� |j � dS )a� Renew & save an existing cert. Do not install it.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:param lineage: Certificate lineage object
:type lineage: storage.RenewableCert
:returns: `None`
:rtype: None
:raises errors.PluginSelectionError: MissingCommandlineFlag if supplied parameters do not pass
r\ )r5 z>An existing certificate for the given name could not be found.z
Reloading z! server after certificate renewalN)
r� r� r� r@ r r> r9 r Zrun_renewal_deployerr- r7 rz Zrestart)r% r� r5 rz �authr2 Zrenewed_lineager/ r/ r0 r= � s
r= c
C s t j| |d�\}}t| ||�}| jrpt| |�\}}}t| |||� t| dd| j d� t| � t j
| |j � dS t | |�\}} t
| || �\}
} |
s�tjddd� dS t|| || | �} | r�| jnd}| r�| jnd}| r�| jnd} t| ||| � t| d| |
�o | j d� t| � t j
| |j � dS )a Authenticate & obtain cert, but do not install it.
This implements the 'certonly' subcommand.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param plugins: List of plugins
:type plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
:raises errors.Error: If specified plugin could not be used
r\ N)r~ z5Certificate not yet due for renewal; no action taken.F)r( )r� r� r� r� r� r� r� r9 r1 r r� r r| re r- r. r@ r� r� r� r� )
r% r� rz r� r2 r� r� r� r3 r4 r� r5 r� r/ r/ r0 r\ � s0 r\ c
C s zt j| � W dtj� X dS )a Renew previously-obtained certificates.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:param unused_plugins: List of plugins (deprecated)
:type unused_plugins: plugins_disco.PluginsRegistry
:returns: `None`
:rtype: None
N)r Zhandle_renewal_requestr Zrun_saved_post_hooks)r% r� r/ r/ r0 r' � s r' c C sZ t j| jtj| j� t j| jtj| j� | j| j| j f}x |D ]}t j
|| jd� q>W dS )z�Create or verify existence of config, work, and hook directories.
:param config: Configuration object
:type config: configuration.NamespaceConfig
:returns: `None`
:rtype: None
)�strictN) r Zset_up_core_dirZ
config_dirr ZCONFIG_DIRS_MODEZstrict_permissionsZwork_dirZrenewal_pre_hooks_dirZrenewal_deploy_hooks_dirZrenewal_post_hooks_dirZmake_or_verify_dir)r% Z hook_dirsZhook_dirr/ r/ r0 �make_or_verify_needed_dirs� s
r c
c sn d}d}| j r,d| _ttjd�}tj|�}n$| jr@tjtj�}ntj tj| j
�}z
|V W d|rh|j � X dS )z�Creates a display object appropriate to the flags in the supplied config.
:param config: Configuration object
:returns: Display object
NT�w) r+ r� r� r" �devnullr- �NoninteractiveDisplayrU r� � FileDisplayrK �close)r% � displayerr r/ r/ r0 �make_displayer s
r )�cli_argsr& c C s6 | st jdd� } tj� tjjd�dkr4tj| �} t j
j � }t j
dtj� t j
dt jd � t j
d| � t j
d |� tj� tj|| �}tj|�}tjj|tj� tj� ytj |� t |� W n" t j k
r� |j t!kr� Y nX t"j#|�}tjj|tj$� t%j&|j'� t(|��}t)j*|� |j ||�S Q R X dS )
z�Run Certbot.
:param cli_args: command line to Certbot, defaults to ``sys.argv[1:]``
:type cli_args: `list` of `str`
:returns: value for `sys.exit` about the exit status of Certbot
:rtype: `str` or `int` or `None`
rM NZCERTBOT_SNAPPED�Truezcertbot version: %sz#Location of certbot entry point: %sr z
Arguments: %rzDiscovered plugins: %r)+rU rV r Zpre_arg_parse_setupr" �environ�getr Z prepare_env�
plugins_disco�PluginsRegistryr� rc r� �certbot� __version__r! Zprepare_virtual_consoler Zprepare_and_parse_argsr
�NamespaceConfig�zopeZ componentZprovideUtilityr ZIConfigZ+raise_for_non_administrative_windows_rightsZpost_arg_parse_setupr r r> �funcr� r ZReporterZ IReporterr r, Zprint_messagesr � display_objZ set_display)r r� �argsr% Zreportr r/ r/ r0 �main' s6
r )NNN)N)T)N)N)N)~�__doc__�
contextlibr r� Zlogging.handlersZloggingrU Ztypingr r r r r r r r
r� Zjosepyr� Zzope.componentr Zzope.interfacer� r Z acme_clientr r� r r
r r r Zcertbot._internalr r r r r r r r r r r r Zcertbot._internal.displayr r r: Zcertbot._internal.pluginsr r
r r� Zcertbot.compatr r! r" Zcertbot.displayr# r{ r- Zcertbot.pluginsr$ rW Z getLogger�__name__rc r r1 r� r� r� r@ rG rY r_ ra �boolre rb rk rr ru ri Z Installerr| r> r� r� r� r� ZAccountZClientV2r� r� Z
Authenticatorr� r r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r[ r� r= r\ r' r r r r �intr r/ r/ r/ r0 �<module> s
"< - 3
(
")*
'.+&E&,
%<4* 5& < &?6F"&"2