scripts/moveuser.php

   1 <?php
   2 /**
   3  * StatusNet - the distributed open-source microblogging tool
   4  * Copyright (C) 2010 StatusNet, Inc.
   5  *
   6  * This program is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU Affero General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU Affero General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Affero General Public License
  17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 define('INSTALLDIR', realpath(dirname(__FILE__) . '/..'));
  21
  22 $shortoptions = 'i:n:r:w:y';
  23 $longoptions = array('id=', 'nickname=', 'remote=', 'password=');
  24
  25 $helptext = <<<END_OF_MOVEUSER_HELP
  26 moveuser.php [options]
  27 Move a local user to a remote account.
  28
  29   -i --id       ID of user to move
  30   -n --nickname nickname of the user to move
  31   -r --remote   Full ID of remote users
  32   -w --password Password of remote user
  33   -y --yes      do not wait for confirmation
  34
  35 Remote user identity must be a Webfinger (nickname@example.com) or
  36 an HTTP or HTTPS URL (http://example.com/social/site/user/nickname).
  37
  38 END_OF_MOVEUSER_HELP;
  39
  40 require_once INSTALLDIR.'/scripts/commandline.inc';
  41
  42 try {
  43
  44     $user = getUser();
  45
  46     $remote = get_option_value('r', 'remote');
  47
  48     if (empty($remote)) {
  49         show_help();
  50         exit(1);
  51     }
  52
  53     $password = get_option_value('w', 'password');
  54
  55     if (!have_option('y', 'yes')) {
  56         print "WARNING: EXPERIMENTAL FEATURE! Moving accounts will delete data from the source site.\n";
  57         print "\n";
  58         print "About to PERMANENTLY move user '{$user->nickname}' to $remote. Are you sure? [y/N] ";
  59         $response = fgets(STDIN);
  60         if (strtolower(trim($response)) != 'y') {
  61             print "Aborting.\n";
  62             exit(0);
  63         }
  64     }
  65
  66     $qm = QueueManager::get();
  67
  68     $qm->enqueue(array($user, $remote, $password), 'acctmove');
  69
  70 } catch (Exception $e) {
  71     print $e->getMessage()."\n";
  72     exit(1);
  73 }