3 * StatusNet - the distributed open-source microblogging tool
4 * Copyright (C) 2011, StatusNet, Inc.
6 * One status_network per email domain
10 * This program is free software: you can redistribute it and/or modify
11 * it under the terms of the GNU Affero General Public License as published by
12 * the Free Software Foundation, either version 3 of the License, or
13 * (at your option) any later version.
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU Affero General Public License for more details.
20 * You should have received a copy of the GNU Affero General Public License
21 * along with this program. If not, see <http://www.gnu.org/licenses/>.
23 * @category DomainStatusNetwork
25 * @author Evan Prodromou <evan@status.net>
26 * @copyright 2011 StatusNet, Inc.
27 * @license http://www.fsf.org/licensing/licenses/agpl-3.0.html AGPL 3.0
28 * @link http://status.net/
31 if (!defined('STATUSNET')) {
32 // This check helps protect against security problems;
33 // your code file can't be executed directly from the web.
37 $_dir = dirname(__FILE__);
39 require_once $_dir . '/extlib/effectiveTLDs.inc.php';
40 require_once $_dir . '/extlib/regDomain.inc.php';
43 * Tools to map one status_network to one email domain in a multi-site
46 * @category DomainStatusNetwork
48 * @author Evan Prodromou <evan@status.net>
49 * @copyright 2011 StatusNet, Inc.
50 * @license http://www.fsf.org/licensing/licenses/agpl-3.0.html AGPL 3.0
51 * @link http://status.net/
53 class DomainStatusNetworkPlugin extends Plugin
55 static $_thetree = null;
59 // For various reasons this gets squished
63 if (empty($tldTree)) {
64 if (!empty(self::$_thetree)) {
65 $tldTree = self::$_thetree;
69 $nickname = StatusNet::currentSite();
71 if (empty($nickname)) {
72 $this->log(LOG_WARNING, "No current site");
77 $sn = Status_network::staticGet('nickname', $nickname);
78 } catch (Exception $e) {
79 $this->log(LOG_ERR, $e->getMessage());
83 $tags = $sn->getTags();
85 foreach ($tags as $tag) {
86 if (strncmp($tag, 'domain=', 7) == 0) {
87 $domain = substr($tag, 7);
88 $this->log(LOG_INFO, "Setting email domain to {$domain}");
89 common_config_append('email', 'whitelist', $domain);
94 function onAutoload($cls)
96 $dir = dirname(__FILE__);
100 case 'GlobalregisterAction':
101 case 'GloballoginAction':
102 case 'GlobalrecoverAction':
103 include_once $dir . '/actions/' . strtolower(mb_substr($cls, 0, -6)) . '.php';
105 case 'DomainStatusNetworkInstaller':
106 case 'GlobalApiAction':
108 include_once $dir . '/lib/' . strtolower($cls) . '.php';
115 static function toDomain($raw)
117 $parts = explode('@', $raw);
119 if (count($parts) == 1) {
125 $domain = strtolower(trim($domain));
130 static function registeredDomain($domain)
132 return getRegisteredDomain($domain);
135 static function nicknameAvailable($nickname)
137 $sn = Status_network::staticGet('nickname', $nickname);
141 $usn = Unavailable_status_network::staticGet('nickname', $nickname);
148 function onRouterInitialized($m)
150 if (common_config('globalapi', 'enabled')) {
151 foreach (array('register', 'login', 'recover') as $method) {
152 $m->connect('api/statusnet/global/'.$method,
153 array('action' => 'global'.$method));
159 function onLoginAction($action, &$login) {
160 $this->debug($action);
161 if (in_array($action, array('globalregister', 'globallogin', 'globalrecover'))) {
168 static function nicknameForDomain($domain)
170 $registered = self::registeredDomain($domain);
172 $parts = explode('.', $registered);
176 if (self::nicknameAvailable($base)) {
180 $domainish = str_replace('.', '-', $registered);
182 if (self::nicknameAvailable($domainish)) {
188 // We don't need to keep doing this forever
191 $candidate = $domainish.'-'.$i;
192 if (self::nicknameAvailable($candidate)) {
201 static function siteForDomain($domain)
203 $snt = Status_network_tag::withTag('domain='.$domain);
205 while ($snt->fetch()) {
206 $sn = Status_network::staticGet('site_id', $snt->site_id);
214 function onPluginVersion(&$versions)
216 $versions[] = array('name' => 'DomainStatusNetwork',
217 'version' => STATUSNET_VERSION,
218 'author' => 'Evan Prodromou',
219 'homepage' => 'http://status.net/wiki/Plugin:DomainStatusNetwork',
221 // TRANS: Plugin description.
222 _m('A plugin that maps a single status_network to an email domain.'));
226 static function userExists($email)
228 $domain = self::toDomain($email);
230 $sn = self::siteForDomain($domain);
236 StatusNet::switchSite($sn->nickname);
238 $user = User::staticGet('email', $email);
240 return !empty($user);
243 static function registerEmail($email)
245 $domain = self::toDomain($email);
247 if (FreeEmail::isFree($domain)) {
248 throw new ClientException(_("Use your work email."));
251 $sn = self::siteForDomain($domain);
254 $installer = new DomainStatusNetworkInstaller($domain);
259 $sn = $installer->getStatusNetwork();
261 $config = $installer->getConfig();
263 Status_network::$wildcard = $config['WILDCARD'];
266 StatusNet::switchSite($sn->nickname);
268 $confirm = EmailRegistrationPlugin::registerEmail($email);
273 static function login($email, $password)
275 $domain = self::toDomain($email);
277 $sn = self::siteForDomain($domain);
280 throw new ClientException(_("No such site."));
283 StatusNet::switchSite($sn->nickname);
285 $user = common_check_user($email, $password);
288 // TRANS: Form validation error displayed when trying to log in with incorrect credentials.
289 throw new ClientException(_('Incorrect username or password.'));
292 $loginToken = Login_token::makeNew($user);
294 if (empty($loginToken)) {
295 throw new ServerException(sprintf(_('Could not create new login token for user %s'), $user->nickname));
298 $url = common_local_url('otp', array('user_id' => $loginToken->user_id,
299 'token' => $loginToken->token));
302 throw new ServerException(sprintf(_('Could not create new OTP URL for user %s'), $user->nickname));
308 static function recoverPassword($email)
310 $domain = self::toDomain($email);
312 $sn = self::siteForDomain($domain);
315 throw new NoSuchUserException(array('email' => $email));
318 StatusNet::switchSite($sn->nickname);
320 $user = User::staticGet('email', $email);
323 throw new ClientException(_('No such user.'));
328 // The way addPlugin() works, this global variable gets disappeared.
329 // So, we re-appear it.
331 DomainStatusNetworkPlugin::$_thetree = $tldTree;