package org.argeo.osgi.useradmin;

import java.nio.charset.StandardCharsets;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.Base64;
import java.util.Collections;
import java.util.Dictionary;
import java.util.Enumeration;
import java.util.HashSet;
import java.util.Iterator;
import java.util.List;
import java.util.Set;

import javax.naming.NamingEnumeration;
import javax.naming.NamingException;
import javax.naming.directory.Attribute;
import javax.naming.directory.Attributes;
import javax.naming.directory.BasicAttribute;
import javax.naming.ldap.LdapName;

import org.argeo.naming.AuthPassword;
import org.argeo.naming.LdapAttrs;
import org.argeo.naming.SharedSecret;

/** Directory user implementation */
class LdifUser implements DirectoryUser {
	private final AbstractUserDirectory userAdmin;

	private final LdapName dn;

	private final boolean frozen;
	private Attributes publishedAttributes;

	private final AttributeDictionary properties;
	private final AttributeDictionary credentials;

	LdifUser(AbstractUserDirectory userAdmin, LdapName dn, Attributes attributes) {
		this(userAdmin, dn, attributes, false);
	}

	private LdifUser(AbstractUserDirectory userAdmin, LdapName dn, Attributes attributes, boolean frozen) {
		this.userAdmin = userAdmin;
		this.dn = dn;
		this.publishedAttributes = attributes;
		properties = new AttributeDictionary(false);
		credentials = new AttributeDictionary(true);
		this.frozen = frozen;
	}

	@Override
	public String getName() {
		return dn.toString();
	}

	@Override
	public int getType() {
		return USER;
	}

	@Override
	public Dictionary<String, Object> getProperties() {
		return properties;
	}

	@Override
	public Dictionary<String, Object> getCredentials() {
		return credentials;
	}

	@Override
	public boolean hasCredential(String key, Object value) {
		if (key == null) {
			// TODO check other sources (like PKCS12)
			// String pwd = new String((char[]) value);
			// authPassword (RFC 312 https://tools.ietf.org/html/rfc3112)
			char[] password = DigestUtils.bytesToChars(value);
			AuthPassword authPassword = AuthPassword.matchAuthValue(getAttributes(), password);
			if (authPassword != null) {
				if (authPassword.getAuthScheme().equals(SharedSecret.X_SHARED_SECRET)) {
					SharedSecret onceToken = new SharedSecret(authPassword);
					if (onceToken.isExpired()) {
						// AuthPassword.remove(getAttributes(), onceToken);
						return false;
					} else {
						// boolean wasRemoved = AuthPassword.remove(getAttributes(), onceToken);
						return true;
					}
					// TODO delete expired tokens?
				} else {
					// TODO implement SHA
					throw new UnsupportedOperationException(
							"Unsupported authPassword scheme " + authPassword.getAuthScheme());
				}
			}

			// Regular password
			byte[] hashedPassword = hash(password);
			if (hasCredential(LdapAttrs.userPassword.name(), hashedPassword))
				return true;
			// if (hasCredential(LdapAttrs.authPassword.name(), pwd))
			// return true;
			return false;
		}

		// authPassword (RFC 3112 https://tools.ietf.org/html/rfc3112)
		// if (key.startsWith(ClientToken.X_CLIENT_TOKEN)) {
		// return ClientToken.checkAttribute(getAttributes(), key, value);
		// } else if (key.startsWith(OnceToken.X_ONCE_TOKEN)) {
		// return OnceToken.checkAttribute(getAttributes(), key, value);
		// }
		// StringTokenizer st = new StringTokenizer((String) storedValue, "$ ");
		// // TODO make it more robust, deal with bad formatting
		// String authScheme = st.nextToken();
		// String authInfo = st.nextToken();
		// String authValue = st.nextToken();
		// if (authScheme.equals(UriToken.X_URI_TOKEN)) {
		// UriToken token = new UriToken((String)storedValue);
		// try {
		// URI uri = new URI(authInfo);
		// Map<String, List<String>> query = NamingUtils.queryToMap(uri);
		// String expiryTimestamp = NamingUtils.getQueryValue(query,
		// LdapAttrs.modifyTimestamp.name());
		// if (expiryTimestamp != null) {
		// Instant expiryOdt = NamingUtils.ldapDateToInstant(expiryTimestamp);
		// if (expiryOdt.isBefore(Instant.now()))
		// return false;
		// } else {
		// throw new UnsupportedOperationException("An expiry timestamp "
		// + LdapAttrs.modifyTimestamp.name() + " must be set in the URI query");
		// }
		// byte[] hash = Base64.getDecoder().decode(authValue);
		// byte[] hashedInput = DigestUtils.sha1((authInfo +
		// value).getBytes(StandardCharsets.US_ASCII));
		// return Arrays.equals(hash, hashedInput);
		// } catch (URISyntaxException e) {
		// throw new UserDirectoryException("Badly formatted " + authInfo, e);
		// }
		// }

		Object storedValue = getCredentials().get(key);
		if (storedValue == null || value == null)
			return false;
		if (!(value instanceof String || value instanceof byte[]))
			return false;
		if (storedValue instanceof String && value instanceof String)
			return storedValue.equals(value);
		if (storedValue instanceof byte[] && value instanceof byte[])
			return Arrays.equals((byte[]) storedValue, (byte[]) value);
		return false;
	}

	/** Hash and clear the password */
	private byte[] hash(char[] password) {
		byte[] hashedPassword = ("{SHA}"
				+ Base64.getEncoder().encodeToString(DigestUtils.sha1(DigestUtils.charsToBytes(password))))
						.getBytes(StandardCharsets.UTF_8);
		// Arrays.fill(password, '\u0000');
		return hashedPassword;
	}

	// private byte[] toBytes(char[] chars) {
	// CharBuffer charBuffer = CharBuffer.wrap(chars);
	// ByteBuffer byteBuffer = StandardCharsets.UTF_8.encode(charBuffer);
	// byte[] bytes = Arrays.copyOfRange(byteBuffer.array(), byteBuffer.position(),
	// byteBuffer.limit());
	// // Arrays.fill(charBuffer.array(), '\u0000'); // clear sensitive data
	// Arrays.fill(byteBuffer.array(), (byte) 0); // clear sensitive data
	// return bytes;
	// }
	//
	// private char[] toChars(Object obj) {
	// if (obj instanceof char[])
	// return (char[]) obj;
	// if (!(obj instanceof byte[]))
	// throw new IllegalArgumentException(obj.getClass() + " is not a byte array");
	// ByteBuffer fromBuffer = ByteBuffer.wrap((byte[]) obj);
	// CharBuffer toBuffer = StandardCharsets.UTF_8.decode(fromBuffer);
	// char[] res = Arrays.copyOfRange(toBuffer.array(), toBuffer.position(),
	// toBuffer.limit());
	// Arrays.fill(fromBuffer.array(), (byte) 0); // clear sensitive data
	// Arrays.fill((byte[]) obj, (byte) 0); // clear sensitive data
	// Arrays.fill(toBuffer.array(), '\u0000'); // clear sensitive data
	// return res;
	// }
	//
	@Override
	public LdapName getDn() {
		return dn;
	}

	@Override
	public synchronized Attributes getAttributes() {
		return isEditing() ? getModifiedAttributes() : publishedAttributes;
	}

	/** Should only be called from working copy thread. */
	private synchronized Attributes getModifiedAttributes() {
		assert getWc() != null;
		return getWc().getAttributes(getDn());
	}

	protected synchronized boolean isEditing() {
		return getWc() != null && getModifiedAttributes() != null;
	}

	private synchronized UserDirectoryWorkingCopy getWc() {
		return userAdmin.getWorkingCopy();
	}

	protected synchronized void startEditing() {
		if (frozen)
			throw new UserDirectoryException("Cannot edit frozen view");
		if (getUserAdmin().isReadOnly())
			throw new UserDirectoryException("User directory is read-only");
		assert getModifiedAttributes() == null;
		getWc().startEditing(this);
		// modifiedAttributes = (Attributes) publishedAttributes.clone();
	}

	public synchronized void publishAttributes(Attributes modifiedAttributes) {
		publishedAttributes = modifiedAttributes;
	}

	public DirectoryUser getPublished() {
		return new LdifUser(userAdmin, dn, publishedAttributes, true);
	}

	@Override
	public int hashCode() {
		return dn.hashCode();
	}

	@Override
	public boolean equals(Object obj) {
		if (this == obj)
			return true;
		if (obj instanceof LdifUser) {
			LdifUser that = (LdifUser) obj;
			return this.dn.equals(that.dn);
		}
		return false;
	}

	@Override
	public String toString() {
		return dn.toString();
	}

	protected AbstractUserDirectory getUserAdmin() {
		return userAdmin;
	}

	private class AttributeDictionary extends Dictionary<String, Object> {
		private final List<String> effectiveKeys = new ArrayList<String>();
		private final List<String> attrFilter;
		private final Boolean includeFilter;

		public AttributeDictionary(Boolean includeFilter) {
			this.attrFilter = userAdmin.getCredentialAttributeIds();
			this.includeFilter = includeFilter;
			try {
				NamingEnumeration<String> ids = getAttributes().getIDs();
				while (ids.hasMore()) {
					String id = ids.next();
					if (includeFilter && attrFilter.contains(id))
						effectiveKeys.add(id);
					else if (!includeFilter && !attrFilter.contains(id))
						effectiveKeys.add(id);
				}
			} catch (NamingException e) {
				throw new UserDirectoryException("Cannot initialise attribute dictionary", e);
			}
		}

		@Override
		public int size() {
			return effectiveKeys.size();
		}

		@Override
		public boolean isEmpty() {
			return effectiveKeys.size() == 0;
		}

		@Override
		public Enumeration<String> keys() {
			return Collections.enumeration(effectiveKeys);
		}

		@Override
		public Enumeration<Object> elements() {
			final Iterator<String> it = effectiveKeys.iterator();
			return new Enumeration<Object>() {

				@Override
				public boolean hasMoreElements() {
					return it.hasNext();
				}

				@Override
				public Object nextElement() {
					String key = it.next();
					return get(key);
				}

			};
		}

		@Override
		public Object get(Object key) {
			try {
				Attribute attr = getAttributes().get(key.toString());
				if (attr == null)
					return null;
				Object value = attr.get();
				if (value instanceof byte[]) {
					if (key.equals(LdapAttrs.userPassword.name()))
						// TODO other cases (certificates, images)
						return value;
					value = new String((byte[]) value, StandardCharsets.UTF_8);
				}
				if (attr.size() == 1)
					return value;
				if (!attr.getID().equals(LdapAttrs.objectClass.name()))
					return value;
				// special case for object class
				NamingEnumeration<?> en = attr.getAll();
				Set<String> objectClasses = new HashSet<String>();
				while (en.hasMore()) {
					String objectClass = en.next().toString();
					objectClasses.add(objectClass);
				}

				if (objectClasses.contains(userAdmin.getUserObjectClass()))
					return userAdmin.getUserObjectClass();
				else if (objectClasses.contains(userAdmin.getGroupObjectClass()))
					return userAdmin.getGroupObjectClass();
				else
					return value;
			} catch (NamingException e) {
				throw new UserDirectoryException("Cannot get value for attribute " + key, e);
			}
		}

		@Override
		public Object put(String key, Object value) {
			if (key == null) {
				// TODO persist to other sources (like PKCS12)
				char[] password = DigestUtils.bytesToChars(value);
				byte[] hashedPassword = hash(password);
				return put(LdapAttrs.userPassword.name(), hashedPassword);
			}
			if (key.startsWith("X-")) {
				return put(LdapAttrs.authPassword.name(), value);
			}

			userAdmin.checkEdit();
			if (!isEditing())
				startEditing();

			if (!(value instanceof String || value instanceof byte[]))
				throw new IllegalArgumentException("Value must be String or byte[]");

			if (includeFilter && !attrFilter.contains(key))
				throw new IllegalArgumentException("Key " + key + " not included");
			else if (!includeFilter && attrFilter.contains(key))
				throw new IllegalArgumentException("Key " + key + " excluded");

			try {
				Attribute attribute = getModifiedAttributes().get(key.toString());
				// if (attribute == null) // block unit tests
				attribute = new BasicAttribute(key.toString());
				if (value instanceof String && !isAsciiPrintable(((String) value)))
					attribute.add(((String) value).getBytes(StandardCharsets.UTF_8));
				else
					attribute.add(value);
				Attribute previousAttribute = getModifiedAttributes().put(attribute);
				if (previousAttribute != null)
					return previousAttribute.get();
				else
					return null;
			} catch (NamingException e) {
				throw new UserDirectoryException("Cannot get value for attribute " + key, e);
			}
		}

		@Override
		public Object remove(Object key) {
			userAdmin.checkEdit();
			if (!isEditing())
				startEditing();

			if (includeFilter && !attrFilter.contains(key))
				throw new IllegalArgumentException("Key " + key + " not included");
			else if (!includeFilter && attrFilter.contains(key))
				throw new IllegalArgumentException("Key " + key + " excluded");

			try {
				Attribute attr = getModifiedAttributes().remove(key.toString());
				if (attr != null)
					return attr.get();
				else
					return null;
			} catch (NamingException e) {
				throw new UserDirectoryException("Cannot remove attribute " + key, e);
			}
		}
	}

	private static boolean isAsciiPrintable(String str) {
		if (str == null) {
			return false;
		}
		int sz = str.length();
		for (int i = 0; i < sz; i++) {
			if (isAsciiPrintable(str.charAt(i)) == false) {
				return false;
			}
		}
		return true;
	}

	private static boolean isAsciiPrintable(char ch) {
		return ch >= 32 && ch < 127;
	}

}