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());
82 $tags = $sn->getTags();
84 foreach ($tags as $tag) {
85 if (strncmp($tag, 'domain=', 7) == 0) {
86 $domain = substr($tag, 7);
87 $this->log(LOG_INFO, "Setting email domain to {$domain}");
88 common_config_append('email', 'whitelist', $domain);
93 function onAutoload($cls)
95 $dir = dirname(__FILE__);
99 case 'DomainStatusNetworkInstaller':
100 include_once $dir . '/' . strtolower($cls) . '.php';
107 static function toDomain($raw)
109 $parts = explode('@', $raw);
111 if (count($parts) == 1) {
117 $domain = strtolower(trim($domain));
122 static function registeredDomain($domain)
124 return getRegisteredDomain($domain);
127 static function nicknameAvailable($nickname)
129 $sn = Status_network::staticGet('nickname', $nickname);
133 $usn = Unavailable_status_network::staticGet('nickname', $nickname);
140 static function nicknameForDomain($domain)
142 $registered = self::registeredDomain($domain);
144 $parts = explode('.', $registered);
148 if (self::nicknameAvailable($base)) {
152 $domainish = str_replace('.', '-', $registered);
154 if (self::nicknameAvailable($domainish)) {
160 // We don't need to keep doing this forever
163 $candidate = $domainish.'-'.$i;
164 if (self::nicknameAvailable($candidate)) {
173 static function siteForDomain($domain)
175 $snt = Status_network_tag::withTag('domain='.$domain);
177 while ($snt->fetch()) {
178 $sn = Status_network::staticGet('site_id', $snt->site_id);
186 function onPluginVersion(&$versions)
188 $versions[] = array('name' => 'DomainStatusNetwork',
189 'version' => STATUSNET_VERSION,
190 'author' => 'Evan Prodromou',
191 'homepage' => 'http://status.net/wiki/Plugin:DomainStatusNetwork',
193 // TRANS: Plugin description.
194 _m('A plugin that maps a single status_network to an email domain.'));
199 // The way addPlugin() works, this global variable gets disappeared.
200 // So, we re-appear it.
202 DomainStatusNetworkPlugin::$_thetree = $tldTree;