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', dirname(__DIR__));
  21 define('PUBLICDIR', INSTALLDIR . DIRECTORY_SEPARATOR . 'public');
  22
  23 $shortoptions = 'i:n:r:w:y';
  24 $longoptions = array('id=', 'nickname=', 'remote=', 'password=');
  25
  26 $helptext = <<<END_OF_MOVEUSER_HELP
  27 moveuser.php [options]
  28 Move a local user to a remote account.
  29
  30   -i --id       ID of user to move
  31   -n --nickname nickname of the user to move
  32   -r --remote   Full ID of remote users
  33   -w --password Password of remote user
  34   -y --yes      do not wait for confirmation
  35
  36 Remote user identity must be a Webfinger (nickname@example.com) or
  37 an HTTP or HTTPS URL (http://example.com/social/site/user/nickname).
  38
  39 END_OF_MOVEUSER_HELP;
  40
  41 require_once INSTALLDIR.'/scripts/commandline.inc';
  42
  43 try {
  44
  45     $user = getUser();
  46
  47     $remote = get_option_value('r', 'remote');
  48
  49     if (empty($remote)) {
  50         show_help();
  51         exit(1);
  52     }
  53
  54     $password = get_option_value('w', 'password');
  55
  56     if (!have_option('y', 'yes')) {
  57         print "WARNING: EXPERIMENTAL FEATURE! Moving accounts will delete data from the source site.\n";
  58         print "\n";
  59         print "About to PERMANENTLY move user '{$user->nickname}' to $remote. Are you sure? [y/N] ";
  60         $response = fgets(STDIN);
  61         if (strtolower(trim($response)) != 'y') {
  62             print "Aborting.\n";
  63             exit(0);
  64         }
  65     }
  66
  67     $qm = QueueManager::get();
  68
  69     $qm->enqueue(array($user, $remote, $password), 'acctmove');
  70
  71 } catch (Exception $e) {
  72     print $e->getMessage()."\n";
  73     exit(1);
  74 }