plugins/DomainStatusNetwork/scripts/proposesite.php

   1 #!/usr/bin/env php
   2 <?php
   3 /*
   4  * StatusNet - a distributed open-source microblogging tool
   5  * Copyright (C) 2011, StatusNet, Inc.
   6  *
   7  * Script to print out current version of the software
   8  *
   9  * This program is free software: you can redistribute it and/or modify
  10  * it under the terms of the GNU Affero General Public License as published by
  11  * the Free Software Foundation, either version 3 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU Affero General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Affero General Public License
  20  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21  */
  22
  23 define('INSTALLDIR', realpath(dirname(__FILE__) . '/../../..'));
  24
  25 $helptext = <<<END_OF_SITEFORDOMAIN_HELP
  26 sitefordomain.php [options] <email address|domain>
  27 Prints site information for the domain given
  28
  29 END_OF_SITEFORDOMAIN_HELP;
  30
  31 require_once INSTALLDIR.'/scripts/commandline.inc';
  32 require_once INSTALLDIR.'/plugins/EmailRegistration/extlib/effectiveTLDs.inc.php';
  33 require_once INSTALLDIR.'/plugins/EmailRegistration/extlib/regDomain.inc.php';
  34
  35 function nicknameAvailable($nickname)
  36 {
  37     $sn = Status_network::staticGet('nickname', $nickname);
  38     return !empty($sn);
  39 }
  40
  41 function nicknameForDomain($domain)
  42 {
  43     global $tldTree;
  44
  45     $registered = getRegisteredDomain($domain, $tldTree);
  46
  47     $parts = explode('.', $registered);
  48
  49     $base = $parts[0];
  50
  51     if (nicknameAvailable($base)) {
  52         return $base;
  53     }
  54
  55     $domainish = str_replace('.', '-', $registered);
  56
  57     if (nicknameAvailable($domainish)) {
  58         return $domainish;
  59     }
  60
  61     $i = 1;
  62
  63     // We don't need to keep doing this forever
  64
  65     while ($i < 1024) {
  66         $candidate = $domainish.'-'.$i;
  67         if (nicknameAvailable($candidate)) {
  68             return $candidate;
  69         }
  70     }
  71
  72     return null;
  73 }
  74
  75 $raw = $args[0];
  76
  77 $parts = explode('@', $raw);
  78
  79 if (count($parts) == 1) {
  80     $domain = $parts[0];
  81 } else {
  82     $domain = $parts[1];
  83 }
  84
  85 $domain = strtolower(trim($domain));
  86
  87 $nickname = nicknameForDomain($domain);
  88
  89 if (empty($nickname)) {
  90     throw ClientException("No candidate found.");
  91 } else {
  92     print $nickname;
  93     print "\n";
  94 }