#!/bin/bash
# -*- coding: utf-8 -*-
#
# Univention PAM
#  lock a user account
#
# Copyright 2001-2014 Univention GmbH
#
# http://www.univention.de/
#
# All rights reserved.
#
# The source code of this program is made available
# under the terms of the GNU Affero General Public License version 3
# (GNU AGPL V3) as published by the Free Software Foundation.
#
# Binary versions of this program provided by Univention to you as
# well as other copyrighted, protected or trademarked materials like
# Logos, graphics, fonts, specific documentations and configurations,
# cryptographic keys etc. are subject to a license agreement between
# you and Univention and not subject to the GNU AGPL V3.
#
# In the case you use this program under the terms of the GNU AGPL V3,
# the program is provided 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 Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public
# License with the Debian GNU/Linux or Univention distribution in file
# /usr/share/common-licenses/AGPL-3; if not, see
# <http://www.gnu.org/licenses/>.

eval "$(univention-config-registry shell)"

if [ "$auth_faillog" = "yes" -o "$auth_faillog" = "enabled" -o "$auth_faillog" = "true" -o "$auth_faillog" = "1" ]; then

	attempts=$(pam_tally --user "$USER" | awk '{print $NF}')
	max_attempts=5
	if [ -n "$auth_faillog_limit" ]; then
		max_attempts="$auth_faillog_limit"
	fi
	
	if [ "$attempts" -gt "$max_attempts" ]; then
		# max attempts reached

		if [ "$server_role" = "domaincontroller_master" -o "$server_role" = "domaincontroller_backup" ]; then
			binddn="cn=admin,$ldap_base"
			bindpw="/etc/ldap.secret"
		else
			binddn="$ldap_hostdn"
			bindpw="/etc/machine.secret"
		fi

		user_dn=$(ldapsearch -x -D "$binddn" -w "$(cat $bindpw)" "(&(uid=$USER)(objectClass=shadowAccount))" -LLL dn | ldapsearch-wrapper | ldapsearch-decode64 |  sed -ne 's|dn: ||p')

		if [ -z "$user_dn" ]; then
			echo "E: ldap dn for $USER not found"
			exit 1
		fi

		univention-directory-manager users/user modify --binddn "$binddn" --bindpwd "$(cat $bindpw)" --logfile /dev/null --dn "$user_dn" --set locked=all

		exit $?
	else
		# max attempts not reached
		exit 0
	fi
else
	# pam_tally is disabled
	exit 0
fi

