+ if (!have_option('y', 'yes')) {
+ print "WARNING: EXPERIMENTAL FEATURE! Moving accounts will delete data from the source site.\n";
+ print "\n";
+ print "About to PERMANENTLY move user '{$user->nickname}' to $remote. Are you sure? [y/N] ";
+ $response = fgets(STDIN);
+ if (strtolower(trim($response)) != 'y') {
+ print "Aborting.\n";
+ exit(0);
+ }
+ }
+
+ $qm = QueueManager::get();