mutt_ldap.py

#!/usr/bin/env python3
#
# Copyright (C) 2008-2013  W. Trevor King
# Copyright (C) 2012-2020  Wade Berrier
# Copyright (C) 2012       Niels de Vos
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program 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.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

"LDAP address searches for Mutt"

import configparser as _configparser
import hashlib as _hashlib
import json as _json
import locale as _locale
import logging as _logging
import os.path as _os_path
import os as _os
import subprocess
import pickle as _pickle
import sys as _sys
import time as _time

import ldap as _ldap
import ldap.sasl as _ldap_sasl

_xdg_import_error = None
try:
    import xdg.BaseDirectory as _xdg_basedirectory
except ImportError as _xdg_import_error:
    _xdg_basedirectory = None


__version__ = '0.1'


LOG = _logging.getLogger('mutt-ldap')
LOG.addHandler(_logging.StreamHandler())
LOG.setLevel(_logging.ERROR)


class Config (_configparser.ConfigParser):
    def load(self):
        config_paths = self._get_config_paths()
        LOG.info(u'load configuration from {0}'.format(config_paths))
        read_config_paths = self.read(config_paths)
        self._setup_defaults()
        LOG.info(u'loaded configuration from {0}'.format(read_config_paths))

        # Check for an authorization file and load if found
        auth_file = self.get('auth', 'file')
        if auth_file != "":
            self.auth_config = _configparser.ConfigParser()
            LOG.info(u'loading authorization file: {0}'.format(auth_file))
            self.auth_config.read(auth_file)
        else:
            self.auth_config = None

    def get_connection_class(self):
        if self.getboolean('cache', 'enable'):
            return CachedLDAPConnection
        else:
            return LDAPConnection

    def get_username(self):

        if self.auth_config:
            return self.auth_config.get('auth', 'user')
        else:
            return self.get('auth', 'user')

    def get_password(self):
        password_cmd_key = 'password-cmd'
        password_key = 'password'

        # First, try to get the password command
        password_cmd = None
        if self.auth_config:
            password_cmd = self.auth_config.get('auth', password_cmd_key, fallback=None)
        else:
            password_cmd = self.get('auth', password_cmd_key, fallback=None)

        # If a password command is provided, try to execute it to get the password
        if password_cmd:
            try:
                result = subprocess.run(password_cmd, stdout=subprocess.PIPE, stderr=subprocess.PIPE, check=True, shell=True)
                return result.stdout.strip()
            except subprocess.CalledProcessError as e:
                print(f"An error occurred while executing the password command: {e}")

        # If password command is not provided or fails, fall back to password
        if self.auth_config:
            return self.auth_config.get('auth', password_key)
        else:
            return self.get('auth', password_key)


    def _setup_defaults(self):
        "Setup dynamic default values"
        self._setup_encoding_defaults()
        self._setup_cache_defaults()

    def _setup_encoding_defaults(self):
        default_encoding = _locale.getpreferredencoding(do_setlocale=True)
        for key in ['output-encoding', 'argv-encoding']:
            self.set(
                'system', key,
                self.get('system', key, raw=True) or default_encoding)

    def _setup_cache_defaults(self):
        if not self.get('cache', 'path'):
            self.set('cache', 'path', self._get_cache_path())
        if not self.get('cache', 'fields'):
            # setup a reasonable default
            fields = ['mail', 'cn', 'displayName']  # used by format_entry()
            optional_column = self.get('results', 'optional-column')
            if optional_column:
                fields.append(optional_column)
            self.set('cache', 'fields', ' '.join(fields))

    def _get_config_paths(self):
        "Get configuration file paths"
        if _xdg_basedirectory:
            paths = list(reversed(list(
                        _xdg_basedirectory.load_config_paths(''))))
            if not paths:  # setup something for a useful log message
                paths.append(_xdg_basedirectory.save_config_path(''))
        else:
            self._log_xdg_import_error()
            paths = [_os_path.expanduser(_os_path.join('~', '.config'))]
        return [_os_path.join(path, 'mutt-ldap.cfg') for path in paths]

    def _get_cache_path(self):
        "Get the cache file path"

        # Some versions of pyxdg don't have save_cache_path (0.20 and older)
        # See: https://bugs.freedesktop.org/show_bug.cgi?id=26458
        if _xdg_basedirectory and 'save_cache_path' in dir(_xdg_basedirectory):
            path = _xdg_basedirectory.save_cache_path('')
        else:
            self._log_xdg_import_error()
            path = _os_path.expanduser(_os_path.join('~', '.cache'))
            if not _os_path.isdir(path):
                _os.makedirs(path)
        return _os_path.join(path, 'mutt-ldap.json')

    def _log_xdg_import_error(self):
        global _xdg_import_error
        if _xdg_import_error:
            LOG.warning(u'could not import xdg.BaseDirectory '
                u'or lacking necessary support')
            LOG.warning(_xdg_import_error)
            _xdg_import_error = None


CONFIG = Config()
CONFIG.add_section('connection')
CONFIG.set('connection', 'server', 'domaincontroller.yourdomain.com')
CONFIG.set('connection', 'port', '389')  # set to 636 for default over SSL
CONFIG.set('connection', 'ssl', 'no')
CONFIG.set('connection', 'starttls', 'no')
CONFIG.set('connection', 'basedn', 'ou=x co.,dc=example,dc=net')
CONFIG.add_section('auth')
CONFIG.set('auth', 'user', '')
CONFIG.set('auth', 'password', '')
CONFIG.set('auth', 'file', '')
CONFIG.set('auth', 'gssapi', 'no')
CONFIG.add_section('query')
CONFIG.set('query', 'filter', '') # only match entries according to this filter
CONFIG.set('query', 'search-fields', 'cn displayName uid mail') # fields to wildcard search
CONFIG.add_section('results')
CONFIG.set('results', 'optional-column', '') # mutt can display one optional column
CONFIG.add_section('cache')
CONFIG.set('cache', 'enable', 'yes') # enable caching by default
CONFIG.set('cache', 'path', '') # cache results here, defaults to XDG
CONFIG.set('cache', 'fields', '')  # fields to cache (if empty, setup in the main block)
CONFIG.set('cache', 'longevity-days', '14') # Days before cache entries are invalidated
CONFIG.add_section('system')
# HACK: Python 2.x support, see http://bugs.python.org/issue13329#msg147475
CONFIG.set('system', 'output-encoding', '')  # match .muttrc's $charset
# HACK: Python 2.x support, see http://bugs.python.org/issue2128
CONFIG.set('system', 'argv-encoding', '')


class LDAPConnection (object):
    """Wrap an LDAP connection supporting the 'with' statement

    See PEP 343 for details.
    """
    def __init__(self, config=None):
        if config is None:
            config = CONFIG
        self.config = config
        self.connection = None

    def __enter__(self):
        self.connect()
        return self

    def __exit__(self, type, value, traceback):
        self.unbind()

    def connect(self):
        if self.connection is not None:
            raise RuntimeError('already connected to the LDAP server')
        protocol = 'ldap'
        if self.config.getboolean('connection', 'ssl'):
            protocol = 'ldaps'
        url = '{0}://{1}:{2}'.format(
            protocol,
            self.config.get('connection', 'server'),
            self.config.get('connection', 'port'))
        LOG.info(u'connect to LDAP server at {0}'.format(url))
        self.connection = _ldap.initialize(url)
        if (self.config.getboolean('connection', 'starttls') and
                protocol == 'ldap'):
            self.connection.start_tls_s()
        if self.config.getboolean('auth', 'gssapi'):
            sasl = _ldap_sasl.gssapi()
            self.connection.sasl_interactive_bind_s('', sasl)
        else:
            self.connection.bind(
                self.config.get_username(),
                self.config.get_password(),
                _ldap.AUTH_SIMPLE)

    def unbind(self):
        if self.connection is None:
            raise RuntimeError('not connected to an LDAP server')
        LOG.info(u'unbind from LDAP server')
        self.connection.unbind()
        self.connection = None

    def _stringify_entry(self, entry):
        """Decode all binary values"""
        # There's certainly a more elegant way to do this, but this works
        cn, data = entry
        str_data = {}
        for k, v in data.items():
            str_v = []
            for item in v:
                str_v.append(item.decode('utf-8'))
            str_data[k] = str_v
        return (cn, str_data)

    def search(self, query):
        if self.connection is None:
            raise RuntimeError('connect to the LDAP server before searching')
        post = u''
        if query:
            post = u'*'
        fields = self.config.get('query', 'search-fields').split()
        filterstr = u'(|{0})'.format(
            u' '.join([u'({0}=*{1}{2})'.format(field, query, post) for
                       field in fields]))
        query_filter = self.config.get('query', 'filter')
        if query_filter:
            filterstr = u'(&({0}){1})'.format(query_filter, filterstr)
        LOG.info(u'search for {0}'.format(filterstr))
        msg_id = self.connection.search(
            self.config.get('connection', 'basedn'),
            _ldap.SCOPE_SUBTREE,
            filterstr)
        res_type = None
        while res_type != _ldap.RES_SEARCH_RESULT:
            try:
                res_type, res_data = self.connection.result(
                    msg_id, all=False, timeout=0)
            except _ldap.ADMINLIMIT_EXCEEDED as e:
                LOG.warning(u'could not handle query results: {0}'.format(e))
                break
            if res_data:
                # use `yield from res_data` in Python >= 3.3, see PEP 380
                for entry in res_data:
                    yield self._stringify_entry(entry)


class CachedLDAPConnection (LDAPConnection):
    _cache_version = '{0}.0'.format(__version__)

    def connect(self):
        # delay LDAP connection until we actually need it
        self._load_cache()

    def unbind(self):
        if self.connection:
            super(CachedLDAPConnection, self).unbind()
        if self._cache:
            self._save_cache()

    def search(self, query):
        cache_hit, entries = self._cache_lookup(query=query)
        if cache_hit:
            LOG.info(u'return cached entries for {0}'.format(query))
            # use `yield from res_data` in Python >= 3.3, see PEP 380
            for entry in entries:
                yield entry
        else:
            if self.connection is None:
                super(CachedLDAPConnection, self).connect()
            entries = []
            keys = self.config.get('cache', 'fields').split()
            for entry in super(CachedLDAPConnection, self).search(query=query):
                cn,data = entry
                # use dict comprehensions in Python >= 2.7, see PEP 274
                cached_data = dict(
                    [(key, data[key]) for key in keys if key in data])
                entries.append((cn, cached_data))
                yield entry
            self._cache_store(query=query, entries=entries)

    def _load_cache(self):
        path = _os_path.expanduser(self.config.get('cache', 'path'))
        LOG.info(u'load cache from {0}'.format(path))
        self._cache = {}
        try:
            data = _json.load(open(path, 'r'))
        except IOError as e:  # probably "No such file"
            LOG.warning(u'error reading cache: {0}'.format(e))
        except (ValueError, KeyError) as e:  # probably a corrupt cache file
            LOG.warning(u'error parsing cache: {0}'.format(e))
        else:
            version = data.get('version', None)
            if version == self._cache_version:
                self._cache = data.get('queries', {})
            else:
                LOG.debug(u'drop outdated local cache {0} != {1}'.format(
                        version, self._cache_version))
        self._cull_cache()

    def _save_cache(self):
        path = _os_path.expanduser(self.config.get('cache', 'path'))
        LOG.info(u'save cache to {0}'.format(path))
        data = {
            'queries': self._cache,
            'version': self._cache_version,
            }
        with open(path, 'w') as f:
            _json.dump(data, f, indent=2, separators=(',', ': '))
            f.write('\n')

    def _cache_store(self, query, entries):
        self._cache[self._cache_key(query=query)] = {
            'entries': entries,
            'time': _time.time(),
            }

    def _cache_lookup(self, query):
        data = self._cache.get(self._cache_key(query=query), None)
        if data is None:
            return (False, data)
        return (True, data['entries'])

    def _cache_key(self, query):
        return str((self._config_id(), query))

    def _config_id(self):
        """Return a unique ID representing the current configuration
        """
        config_string = _pickle.dumps(self.config)
        return _hashlib.sha1(config_string).hexdigest()

    def _cull_cache(self):
        cull_days = self.config.getint('cache', 'longevity-days')
        day_seconds = 24*60*60
        expire = _time.time() - cull_days * day_seconds
        for key in list(self._cache.keys()):  # cull the cache
            if self._cache[key]['time'] < expire:
                LOG.debug('cull entry from cache: {0}'.format(key))
                self._cache.pop(key)


def format_columns(address, data):
    yield address
    yield data.get('displayName', data['cn'])[-1]
    optional_column = CONFIG.get('results', 'optional-column')
    if optional_column in data:
        yield data[optional_column][-1]


def format_entry(entry):
    cn,data = entry
    if 'mail' in data:
        for m in data['mail']:
            # http://www.mutt.org/doc/manual/manual-4.html#ss4.5
            # Describes the format mutt expects: address\tname
            yield u'\t'.join(format_columns(m, data))


if __name__ == '__main__':
    CONFIG.load()

    if len(_sys.argv) < 2:
        LOG.error(u'{0}: no search string given'.format(_sys.argv[0]))
        _sys.exit(1)

    query = u' '.join(_sys.argv[1:])

    connection_class = CONFIG.get_connection_class()
    addresses = []
    with connection_class() as connection:
        entries = connection.search(query=query)
        for entry in entries:
            addresses.extend(format_entry(entry))
    print(u'{0} addresses found:'.format(len(addresses)))
    print(u'\n'.join(addresses))