Add new white list plugin

plugins/white-list/LICENSE

@@ -0,0 +1,20 @@
+The MIT License (MIT)
+
+Copyright (c) 2013 RainLoop Team
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

plugins/white-list/README

@@ -0,0 +1 @@
+Simple white list plugin

plugins/white-list/VERSION

@@ -0,0 +1 @@
+1.0

plugins/white-list/index.php

@@ -0,0 +1,52 @@
+<?php
+
+class WhiteListPlugin extends \RainLoop\Plugins\AbstractPlugin
+{
+	public function Init()
+	{
+		$this->addHook('filter.login-credentials', 'FilterLoginCredentials');
+	}
+
+	/**
+	 * @param string $sEmail
+	 * @param string $sLogin
+	 * @param string $sPassword
+	 *
+	 * @throws \RainLoop\Exceptions\ClientException
+	 */
+	public function FilterLoginCredentials(&$sEmail, &$sLogin, &$sPassword)
+	{
+		$sWhiteList = \trim($this->Config()->Get('plugin', 'white_list', ''));
+		if (0 < strlen($sWhiteList) && !\RainLoop\Plugins\Helper::ValidateWildcardValues($sEmail, $sWhiteList))
+		{
+			$sExceptions = \trim($this->Config()->Get('plugin', 'exceptions', ''));
+			if (0 === \strlen($sExceptions) || !\RainLoop\Plugins\Helper::ValidateWildcardValues($sEmail, $sExceptions))
+			{
+				throw new \RainLoop\Exceptions\ClientException(
+					$this->Config()->Get('plugin', 'auth_error', true) ?
+						\RainLoop\Notifications::AuthError : \RainLoop\Notifications::AccountNotAllowed);
+			}
+		}
+	}
+
+	/**
+	 * @return array
+	 */
+	public function configMapping()
+	{
+		return array(
+			\RainLoop\Plugins\Property::NewInstance('auth_error')->SetLabel('Auth Error')
+				->SetType(\RainLoop\Enumerations\PluginPropertyType::BOOL)
+				->SetDescription('Throw an authentication error instead of an access error.')
+				->SetDefaultValue(true),
+			\RainLoop\Plugins\Property::NewInstance('white_list')->SetLabel('White List')
+				->SetType(\RainLoop\Enumerations\PluginPropertyType::STRING_TEXT)
+				->SetDescription('Emails white list, space as delimiter, wildcard supported.')
+				->SetDefaultValue('*@domain1.com user@domain2.com'),
+			\RainLoop\Plugins\Property::NewInstance('exceptions')->SetLabel('Exceptions')
+				->SetType(\RainLoop\Enumerations\PluginPropertyType::STRING_TEXT)
+				->SetDescription('Exceptions for white list, space as delimiter, wildcard supported.')
+				->SetDefaultValue('demo@domain1.com *@domain2.com admin@*')
+		);
+	}
+}