plugins/EmailRegistration/scripts/sitefordomain.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
  33 $raw = $args[0];
  34
  35 $parts = explode('@', $raw);
  36
  37 if (count($parts) == 1) {
  38     $domain = $parts[0];
  39 } else {
  40     $domain = $parts[1];
  41 }
  42
  43 $domain = strtolower(trim($domain));
  44
  45 $snt = Status_network_tag::withTag('domain='.$domain);
  46
  47 while ($snt->fetch()) {
  48     $sn = Status_network::staticGet('site_id', $snt->site_id);
  49     if (!empty($sn)) {
  50         print $sn->nickname."\n";
  51     }
  52 }