Return to move_construction_spaces.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

- Undo of authoring spaces migration.
  - Detect case where user has a UNIX account and authentication in LON-CAPA
    is filesystem auth (i.e., unix:).
  - Set permissions/ownership in /home/<user> accordingly and add www to
    user's group, if not currently included.

    1: #!/usr/bin/perl
    2: #
    3: # The LearningOnline Network
    4: #
    5: # Move Construction Spaces from /home/$user/public_html
    6: # to /home/httpd/html/priv/$domain/$user and vice versa
    7: #
    8: # $Id: move_construction_spaces.pl,v 1.9 2012/06/08 13:08:13 raeburn Exp $
    9: #
   10: # Copyright Michigan State University Board of Trustees
   11: #
   12: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   13: #
   14: # LON-CAPA is free software; you can redistribute it and/or modify
   15: # it under the terms of the GNU General Public License as published by
   16: # the Free Software Foundation; either version 2 of the License, or
   17: # (at your option) any later version.
   18: #
   19: # LON-CAPA is distributed in the hope that it will be useful,
   20: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   21: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   22: # GNU General Public License for more details.
   23: #
   24: # You should have received a copy of the GNU General Public License
   25: # along with LON-CAPA; if not, write to the Free Software
   26: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   27: #
   28: # /home/httpd/html/adm/gpl.txt
   29: #
   30: # http://www.lon-capa.org/
   31: #
   32: #################################################
   33: 
   34: use strict;
   35: use lib '/home/httpd/lib/perl/';
   36: use LONCAPA::Configuration;
   37: use LONCAPA qw(:DEFAULT :match);
   38: use Apache::lonlocal;
   39: use File::Copy;
   40: use GDBM_File;
   41: use DBI;
   42: 
   43: my ($lonusersdir,$londocroot,$londaemons,$lonsqlaccess);
   44: 
   45: BEGIN {
   46:     my $perlvar=&LONCAPA::Configuration::read_conf();
   47:     if (ref($perlvar) eq 'HASH') {
   48:         $lonusersdir = $perlvar->{'lonUsersDir'};
   49:         $londocroot = $perlvar->{'lonDocRoot'};
   50:         $londaemons = $perlvar->{'lonDaemons'};
   51:         $lonsqlaccess = $perlvar->{'lonSqlAccess'};
   52:     }
   53:     undef($perlvar);
   54: }
   55: 
   56: my $lang = &Apache::lonlocal::choose_language();
   57: &Apache::lonlocal::get_language_handle(undef,$lang);
   58: 
   59: if ($< != 0) {
   60:     print &mt('You must be root in order to move Construction Spaces.')."\n".
   61:           &mt('Stopping')."\n";
   62:     exit;
   63: }
   64: 
   65: if ($lonusersdir eq '') {
   66:     print &mt('Could not determine location of [_1] directory.',"'lonUsersDir'")."\n".
   67:           &mt('Stopping')."\n";
   68:     exit;
   69: }
   70: 
   71: if ($londocroot eq '') {
   72:     print &mt('Could not determine location of [_1] directory.',"'lonDocRoot'")."\n".
   73:           &mt('Stopping')."\n";
   74:     exit;
   75: }
   76: 
   77: my $distro;
   78: if ($londaemons eq '') {
   79:     print &mt('Could not determine location of [_1] directory.',"'lonDaemons'")."\n".
   80:           &mt('Stopping')."\n";
   81:     exit;
   82: } else {
   83:     if (-e "$londaemons/distprobe") {
   84:         if (open(PIPE,"perl $londaemons/distprobe|")) {
   85:             $distro = <PIPE>;
   86:             close(PIPE);
   87:         }
   88:     }
   89: }
   90: 
   91: if ($distro eq '') {
   92:     print &mt('Could not determine Linux distro.')."\n".
   93:           &mt('Stopping')."\n";
   94:     exit;
   95: } else {
   96:     my $stopapachecmd = '/etc/init.d/httpd stop';
   97:     my $apacheprocess = '/usr/sbin/httpd';
   98:     my $stopapachecmd = '/etc/init.d/httpd stop';
   99:     my $proc_owner = 'root';
  100:     if ($distro =~ /^(suse|sles)/) {
  101:         if ($distro =~ /^(suse|sles)9/) {
  102:             $stopapachecmd = '/etc/init.d/apache stop';
  103:         } else {
  104:             $apacheprocess = '/usr/sbin/httpd2';
  105:             $stopapachecmd = '/etc/init.d/apache2 stop';
  106:         }
  107:     } elsif ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
  108:         $apacheprocess = '/usr/sbin/apache2';
  109:         $stopapachecmd = '/etc/init.d/apache2 stop';
  110:     } elsif ($distro =~ /^(?:fedora)(\d+)/) {
  111:         my $version = $1;
  112:         if ($version >= 16) {
  113:             $stopapachecmd = '/bin/systemctl stop httpd.service';
  114:         }
  115:     }
  116:     if (open(PIPE,"ps -ef |grep '$apacheprocess' |grep -v grep 2>&1 |")) {
  117:         my $status = <PIPE>;
  118:         close(PIPE);
  119:         chomp($status);
  120:         if ($status =~ /^\Q$proc_owner\E\s+\d+\s+/) {
  121:             print "\n".
  122:                   &mt('You need to stop the Apache daemon before moving Construction Spaces.')."\n".
  123:                   &mt('To do so use the following command: [_1]',"\n\n$stopapachecmd")."\n\n".
  124:                   &mt('Now stopping the move_construction_spaces.pl script.')."\n";
  125:             exit;
  126:         }
  127:     } else {
  128:         print &mt('Could not determine if Apache daemon is running.')."\n";
  129:     }
  130: }
  131: 
  132: my $stoploncontrol = '/etc/init.d/loncontrol stop';
  133: if (open(PIPE,"ps -ef |grep lond |grep -v grep 2>&1 |")) {
  134:     my $status = <PIPE>;
  135:     close(PIPE);
  136:     chomp($status);
  137:     if ($status =~ /^www\s+\d+\s+/) {
  138:         print "\n".
  139:               &mt('You need to stop the LON-CAPA daemons before moving Construction Spaces.')."\n".
  140:               &mt('To do so use the following command: [_1]',"\n\n$stoploncontrol")."\n\n".
  141:               &mt('Now stopping the move_construction_spaces.pl script.')."\n";
  142:         exit;        
  143:     }
  144: }
  145: 
  146: # Abort if more than one argument.
  147: 
  148: my $parameter=$ARGV[0];
  149: $parameter =~ s/^\s+//;
  150: $parameter =~ s/\s+$//;
  151: 
  152: if ((@ARGV > 1) || (($parameter ne '') && ($parameter !~ /^(move|undo)$/))) {
  153:     print &mt('usage: [_1]','move_construction_spaces.pl [move|undo]')."\n\n".
  154:           &mt('You should enter either no arguments, or just one argument -- either move or undo.')."\n".
  155:           &mt("move - to move authors' Construction Spaces from: [_1] to [_2].",
  156:               "'/home'","'$londocroot/priv/'")."\n".
  157:           &mt('undo - to reverse those changes and move Construction Spaces back from: [_1] to [_2].',
  158:               "'$londocroot/priv/'","'/home'")."\n".
  159:           &mt('no argument to do a dry run of the move option, without actually moving anything.')."\n";
  160:     exit;
  161: }
  162: 
  163: print "\n".&mt("Moving authors' Construction Spaces.")."\n".
  164:       "-----------------------------\n\n".
  165:       &mt('If run without an argument, the script will report what it would do when moving Construction Spaces from [_1] to [_2].',
  166:           "'/home'","'$londocroot/priv/'")."\n\n".
  167:       &mt('If there are ambiguities (i.e., the same username belongs to two domains), this will be flagged, and you will be able to decide how to proceed.')."\n";
  168: 
  169: my (undef,undef,$uid,$gid) = getpwnam('www');
  170: my ($action) = ($parameter=~/^(move|undo)$/);
  171: if ($action eq '') {
  172:     $action = 'dryrun';
  173: }
  174: 
  175: if ($action eq 'dryrun') {
  176:     print "\n\n".
  177:           &mt('Running in exploratory mode ...')."\n\n".
  178:           &mt('Run with argument [_1] to actually move Construction Spaces to [_2], i.e., [_3]',
  179:               "'move'","'$londocroot/priv'","\n\nperl move_construction_spaces.pl move")."\n\n\n".
  180:           &mt('Run with argument [_1] to move Construction spaces back to [_2], i.e., [_3]',
  181:               "'undo'","'/home'","\n\nperl move_construction_spaces.pl undo")."\n\n\n".
  182:           &mt('Continue? ~[y/N~] ');
  183:     if (!&get_user_selection()) {
  184:         exit;
  185:     } else {
  186:         print "\n";
  187:     }
  188: } else {
  189:     print "\n *** ".&mt('Running in a mode where changes will be made.')." ***\n";
  190:     if ($action eq 'move') {
  191:         print "\n".
  192:               &mt('Mode is [_1] -- directories will be moved to [_2].',
  193:                   "'$action'","'$londocroot/priv'")."\n";
  194:     } else {
  195:         print "\n".
  196:               &mt('Mode is [_1] -- directories will be moved back to [_2].',
  197:                   "'$action'","'/home'")."\n";
  198:     }
  199:     print &mt('Continue? ~[y/N~] ');
  200:     if (!&get_user_selection()) {
  201:         exit;
  202:     } else {
  203:         print "\n";
  204:     }
  205: }
  206: 
  207: my $logfh;
  208: if ($action ne 'dryrun') {
  209:     if (!open($logfh,">>$londaemons/logs/move_construction_spaces.log")) {
  210:         print &mt('Could not open log file: [_1] for writing.',
  211:                   "'$londaemons/logs/move_construction_spaces.log'")."\n".
  212:               &mt('Stopping.')."\n";
  213:     } else {
  214:         &start_logging($logfh,$action);
  215:     }
  216: }
  217: 
  218: # Authors hosted on this server
  219: my %allauthors;
  220: my %pubusers;
  221: 
  222: if ($action eq 'move') {
  223:     my $output;
  224:     if (-d "$londocroot/priv") {
  225:         $output = &mt('New Construction Spaces directory: [_1] already exists.',
  226:                       "'$londocroot/priv'")."\n";
  227:         print $output;
  228:         print $logfh $output;
  229:     } else {
  230:         $output = &mt('Creating new directory: [_1] for Construction Spaces.',
  231:                       "'$londocroot/priv'")."\n";
  232:         if (mkdir("$londocroot/priv",0750)) {
  233:             if (chown($uid,$gid,"$londocroot/priv")) {
  234:                 $output .= &mt('Creation Successful')."\n";
  235:                 print $output;
  236:                 print $logfh $output;
  237:             } else {
  238:                 $output .= &mt('Failed to change ownership to [_1].',"'$uid:$gid'")."\n";
  239:                 print $output;
  240:                 &stop_logging($logfh,$output);
  241:                 print &mt('Stopping')."\n";
  242:                 exit;
  243:             }
  244:         } else {
  245:             $output .=  &mt('Failed to create directory [_1].',"'$londocroot/priv'")."\n";
  246:             print $output;
  247:             &stop_logging($logfh,$output);
  248:             print &mt('Stopping')."\n";
  249:             exit;
  250:         }
  251:     }
  252: }
  253: 
  254: my @machinedoms;
  255: if ($lonusersdir) {
  256:     my ($dir,$output);
  257:     if (opendir($dir,$lonusersdir)) {
  258:         my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));
  259:         closedir($dir);
  260:         foreach my $item (@contents) {
  261:             if (-d "$lonusersdir/$item") {
  262:                 if ($item =~ /^$match_domain$/) {
  263:                     my $domain = $item;
  264:                     unless (grep(/^\Q$domain\E$/,@machinedoms)) {
  265:                         push(@machinedoms,$domain);  
  266:                     }
  267:                     my $dom_target="$londocroot/priv/$domain";
  268:                     if ($action eq 'move') {
  269:                         if (!-e $dom_target) {
  270:                             if (mkdir($dom_target,0755)) {
  271:                                 chown($uid,$gid,$dom_target);
  272:                                 $output = &mt('Made [_1].',"'$dom_target'")."\n";
  273:                                 print $output;
  274:                                 print $logfh $output;
  275:                             } else {
  276:                                 $output = &mt('Failed to make [_1].',"'$dom_target'")."\n";
  277:                                 print $output;
  278:                                 print $logfh $output;
  279:                                 &stop_logging($logfh,$output);
  280:                                 print &mt('Stopping')."\n";
  281:                                 exit;
  282:                             }
  283:                         } elsif ($action eq 'dryrun') {
  284:                             print &mt('Would make [_1].',"'$dom_target'")."\n";
  285:                         }
  286:                     }
  287:                     my %authors=();
  288:                     my $fname = "$lonusersdir/$domain/nohist_domainroles.db";
  289:                     my $dbref;
  290:                     if (-e $fname) {
  291:                         $dbref=&LONCAPA::locking_hash_tie($fname,&GDBM_READER());
  292:                     }
  293:                     if (!$dbref) {
  294:                         print &mt('Unable to tie to [_1].',"'$fname'")."\n";
  295:                     } elsif (ref($dbref) eq 'HASH') {
  296:                         foreach my $key (keys(%{$dbref})) {
  297:                             $key = &unescape($key);
  298:                             if ($key =~ /^au\:($match_username)\Q:$domain\E/) {
  299:                                 push(@{$allauthors{$1}},$domain);
  300:                             }
  301:                         }
  302:                         &LONCAPA::locking_hash_untie($dbref);
  303:                     }
  304:                 }
  305:             }
  306:         }
  307:     } else {
  308:         $output = &mt('Could not open [_1].',"'$lonusersdir'")."\n";
  309:         print $output;
  310:         &stop_logging($logfh,$output);
  311:         print &mt('Stopping')."\n";
  312:         exit;
  313:     }
  314: }
  315: 
  316: if ($londocroot ne '') {
  317:     if (-d "$londocroot/res") {
  318:         my ($dir,$domdir);
  319:         if (opendir($dir,"$londocroot/res")) {
  320:             my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));
  321:             closedir($dir);
  322:             foreach my $dom (@contents) {
  323:                 if ((grep(/^\Q$dom\E/,@machinedoms)) && (-d "$londocroot/res/$dom")) {
  324:                     if (opendir($domdir,"$londocroot/res/$dom")) {
  325:                         my @unames = (grep(!/^\.{1,2}$/,readdir($domdir)));
  326:                         closedir($domdir);
  327:                         foreach my $uname (@unames) {
  328:                             if ($uname =~ /^$match_username$/) {
  329:                                 push(@{$pubusers{$uname}},$dom);
  330:                             }
  331:                         }
  332:                     }
  333:                 }
  334:             }
  335:         }
  336:     }
  337: }
  338: 
  339: if ($action eq 'undo') {
  340:     my %privspaces;
  341:     if ($londocroot ne '') {
  342:         if (-d "$londocroot/priv") {
  343:             my ($dir,$domdir);
  344:             if (opendir($dir,"$londocroot/priv")) {
  345:                 my @contents = (grep(!/^\.{1,2}/,readdir($dir)));
  346:                 closedir($dir);
  347:                 foreach my $dom (@contents) {
  348:                     next if (!-d "$londocroot/priv/$dom");
  349:                     if (opendir($domdir,"$londocroot/priv/$dom")) {
  350:                         my @unames = (grep(!/^\.{1,2}$/,readdir($domdir)));
  351:                         closedir($domdir);
  352:                         foreach my $uname (@unames) {
  353:                             if ($uname =~ /^$match_username$/) {
  354:                                 push(@{$privspaces{$uname}},$dom);
  355:                             }
  356:                         }
  357:                     }
  358:                 }
  359:             }
  360:         }
  361:     }
  362:     foreach my $uname (keys(%privspaces)) {
  363:         if (ref($privspaces{$uname}) eq 'ARRAY') {
  364:             my $output;
  365:             if (@{$privspaces{$uname}} > 1) {
  366:                 my $displaydoms = join(', ',@{$privspaces{$uname}});
  367:                 print &mt('Same username used for authors in multiple domains.')."\n".
  368:                       &mt('This configuration is not supported where Construction Spaces are located in [_1].','/home').".\n".
  369:                       &mt('You will be able to move files for just one of the domains, choose which one.')."\n".
  370:                       &mt('The domains to choose from are: [_1].',"'$displaydoms'")."\n".
  371:                       &mt('Enter choice: ');
  372:                 my $choice=<STDIN>;
  373:                 chomp($choice);
  374:                 if (grep(/^\Q$choice\E$/,@{$privspaces{$uname}})) {
  375:                     $output = &move_priv_to_home($londocroot,$uid,$gid,$uname,$choice);
  376:                 } else {
  377:                     print &mt('Invalid choice of domain:')." $choice\n";
  378:                     $output = &mt('Skipping this user: [_1].',"'$uname'")."\n";
  379:                     print $output;
  380:                     print $logfh $output;
  381:                     next;
  382:                 }
  383:             } elsif (@{$privspaces{$uname}} == 1) {
  384:                 $output = &move_priv_to_home($londocroot,$uid,$gid,$uname,$privspaces{$uname}[0]);
  385:             } else {
  386:                 print &mt('Username [_1] found in [_2] was not within a domain',
  387:                           "'$uname'","'$londocroot/priv'")."\n";
  388:                 $output = &mt('Skipping this user: [_1].',"'$uname'")."\n";
  389:             }
  390:             print $output;
  391:             print $logfh $output;
  392:         }
  393:     }
  394:     if (-d "$londocroot/priv") {
  395:         my $output;
  396:         if (opendir(my $dir,"$londocroot/priv")) {
  397:             my @doms = grep(!/^\.{1,2}/,readdir($dir));
  398:             closedir($dir);
  399:             foreach my $dom (@doms) {
  400:                 if (opendir(my $domdir,"$londocroot/priv/$dom")) {
  401:                     my @contents =  grep(!/^\.{1,2}/,readdir($domdir));
  402:                     closedir($domdir);
  403:                     if (@contents == 0) {
  404:                         if (rmdir("$londocroot/priv/$dom")) {
  405:                             $output = &mt('Removed empty directory: [_1]',
  406:                                           "'$londocroot/priv/$dom'")."\n";
  407:                         } else {
  408:                             $output = &mt('Failed to remove directory: [_1]',
  409:                                           "'$londocroot/priv/$dom'")."\n";
  410:                         }
  411:                     }
  412:                 }
  413:             }
  414:         }
  415:         my $warning = &mt('WARNING: Access to Construction Spaces in their old locations (i.e., in [_1]) via LON-CAPA with URLs of the form [_2] will not work until the directory at [_3] is moved or deleted.',"'/home/<user>/'","'/priv/<user>/'","'$londocroot/priv/'")."\n";
  416:         if (opendir(my $dir,"$londocroot/priv")) {
  417:             my @contents = (grep(!/^\.{1,2}/,readdir($dir)));
  418:             closedir($dir);
  419:             if (@contents == 0) {
  420:                 if (rmdir("$londocroot/priv")) {
  421:                     $output .= &mt('Removed empty directory: [_1]',
  422:                                    "'$londocroot/priv'")."\n";
  423:                 } else {
  424:                     $output .= &mt('Failed to remove directory: [_1]',
  425:                                    "'$londocroot/priv'")."\n".
  426:                                $warning."\n";
  427:                 }
  428:             } else {
  429:                 $output .= $warning."\n".
  430:                            &mt('The attempt to remove the directory failed, because it is not empty.')."\n";
  431:             }
  432:         } else {
  433:             $output .= $warning."\n".
  434:                        &mt('The attempt to open the directory to see its contents failed, hence no attempt was made to remove it.')."\n";
  435:         }
  436:         print $output;
  437:         print $logfh $output;
  438:     }
  439:     &stop_logging($logfh);
  440:     print "\n".&mt('Done')."\n";
  441:     exit;
  442: }
  443: 
  444: my @allskipped;
  445: my %allmoved;
  446: my ($dbh,$dbflag);
  447: 
  448: # Iterate over directories in /home
  449: if (opendir(my $dir,"/home")) {
  450:     my @possibles = grep(!/^\.{1,2}$/,readdir($dir));
  451:     closedir($dir);
  452:     foreach my $item (sort(@possibles)) {
  453:         next if ($item eq 'www');
  454:         if ((-d "/home/$item") && ($item ne '')) {
  455: # Is there a public_html-directory?
  456:             if (-d "/home/$item/public_html") {
  457:                 my $author = $item;
  458:                 my ($domain,$skipped,$output,$stopnow);
  459:                 if (ref($allauthors{$author}) eq 'ARRAY') {
  460:                     ($domain,$skipped,$stopnow) = 
  461:                         &choose_domain($action,$author,$allauthors{$author});
  462:                     if ($stopnow) {
  463:                         if ($action ne 'dryrun') {
  464:                             my $output = &mt('Stopped by user at author: [_1].',
  465:                                              "'$author'")/"\n";
  466:                             &stop_logging($logfh,$output);
  467:                         }
  468:                         if ($dbflag == 1) {
  469:                             &disconnect_mysql($dbh);
  470:                         }
  471:                         print &mt('Stopped.')."\n";
  472:                         exit;
  473:                     }
  474:                 }
  475:                 if (($domain eq '') && (!$skipped)) {
  476:                     if (ref($pubusers{$author}) eq 'ARRAY') {
  477:                         ($domain,$skipped,$stopnow) = 
  478:                             &choose_domain($action,$author,$pubusers{$author});
  479:                     }
  480:                     if ($stopnow) {
  481:                         if ($action ne 'dryrun') {
  482:                             my $output = &mt('Stopped by user at author: [_1].',
  483:                                              "'$author'")/"\n";
  484:                             &stop_logging($logfh,$output);
  485:                         }
  486:                         if ($dbflag == 1) {
  487:                             &disconnect_mysql($dbh);
  488:                         }
  489:                         print &mt('Stopped.')."\n";
  490:                         exit;
  491:                     }
  492:                 }
  493:                 if (($domain eq '') && (!$skipped)) {
  494:                     my @foundauthor = ();
  495:                     foreach my $dom (@machinedoms) {
  496:                         my $posspath = &LONCAPA::propath($dom,$author);
  497:                         if (-e $posspath) {
  498:                             my $rolesdbref;
  499:                             my $fname = "$posspath/roles.db";
  500:                             if (-e "$fname") {
  501:                                 $rolesdbref=&LONCAPA::locking_hash_tie($fname,&GDBM_READER());
  502:                                 if (!$rolesdbref) {
  503:                                     print &mt('Unable to tie to [_1].',"'$fname'")."\n";
  504:                                 } elsif (ref($rolesdbref) eq 'HASH') {
  505:                                     foreach my $key (keys(%{$rolesdbref})) {
  506:                                         if ($key eq "/$dom/_au") {
  507:                                             unless(grep(/^\Q$dom\E$/,@foundauthor)) { 
  508:                                                 push(@foundauthor,$dom);
  509:                                             }
  510:                                         }
  511:                                     }
  512:                                     &LONCAPA::locking_hash_untie($rolesdbref);
  513:                                 }
  514:                             }
  515:                         }
  516:                     }
  517:                     if (@foundauthor > 0) {
  518:                         ($domain,$skipped,$stopnow) = 
  519:                              &choose_domain($action,$author,\@foundauthor);
  520:                         if ($stopnow) {
  521:                             if ($action ne 'dryrun') {
  522:                                 my $output = &mt('Stopped by user at author: [_1].',
  523:                                                  "'$author'")/"\n";
  524:                                 &stop_logging($logfh,$output);
  525:                             }
  526:                             if ($dbflag == 1) {
  527:                                 &disconnect_mysql($dbh);
  528:                             }
  529:                             print &mt('Stopped.')."\n";
  530:                             exit;
  531:                         }
  532:                     }
  533:                 }
  534:                 if (($domain eq '') && (!$skipped)) {
  535:                     if (!$dbflag) {
  536:                         ($dbh,$dbflag) = &connect_mysql($lonsqlaccess);
  537:                     }
  538:                     if (defined($dbh)) {
  539:                         my $foundusers = &search_allusers($dbh,$author);
  540:                         if (ref($foundusers) eq 'HASH') {
  541:                             ($domain,$skipped,$stopnow) = 
  542:                                 &choose_domain($action,$author,$foundusers);
  543:                         }
  544:                         if ($stopnow) {
  545:                             if ($action ne 'dryrun') {
  546:                                 my $output = &mt('Stopped by user at author: [_1].',
  547:                                                  "'$author'")/"\n";
  548:                                 &stop_logging($logfh,$output);
  549:                             }
  550:                             if ($dbflag == 1) {
  551:                                 &disconnect_mysql($dbh);
  552:                             }
  553:                             print &mt('Stopped.')."\n";
  554:                             exit;
  555:                         }
  556:                     }
  557:                 }
  558:                 my $source_path="/home/$author/public_html";
  559:                 if ($domain) {
  560:                     my $target_path="$londocroot/priv/$domain/$author";
  561:                     if ($action eq 'move') {
  562:                         if (move($source_path,$target_path)) {
  563:                             my (undef,undef,$userid,$groupid) = getpwnam($author);
  564:                             if ($userid eq '' && $groupid eq '' && $author ne '') {
  565:                                 chown($uid,$gid,$target_path);
  566:                             }
  567:                             $output = &mt('Moved [_1] to [_2].',
  568:                                           "'$source_path'","'$target_path'")."\n";
  569:                             push(@{$allmoved{$domain}},$author); 
  570:                             my (undef,undef,$userid,$groupid) = getpwnam($author);
  571:                             if ($userid eq '' && $groupid eq '' && $author ne '') {
  572:                                 &check_for_restore_files($londaemons,$author,$domain);
  573:                                 if (opendir(my $homedir,"/home/$author")) {
  574:                                     my @contents = 
  575:                                         grep(!/^\.{1,2}$/,readdir($homedir));
  576:                                     closedir($homedir);
  577:                                     if (@contents == 0) {
  578:                                         if (rmdir("/home/$author/")) {
  579:                                             $output .= &mt('Removed empty directory: [_1]',
  580:                                                            "'/home/$author/'")."\n";
  581:                                         } else {
  582:                                             $output .= &mt('Failed to remove directory: [_1]',
  583:                                                            "'/home/$author/'")."\n";
  584:                                         }
  585:                                     } else {
  586:                                         $output .= &mt('Not removing directory [_1] as it still contains: [_2]',
  587:                                                    "'/home/$author/'",
  588:                                                    "\n".join("\n",@contents)."\n");
  589:                                     }
  590:                                 }
  591:                             } else {
  592:                                 $output .= &mt('Not removing directory [_1] for UNIX user account',
  593:                                                "'/home/$author/'")."\n";  
  594:                             }
  595:                         } else {
  596:                             $output = &mt('Failed to move [_1] to [_2].',
  597:                                           "'$source_path'","'$target_path'")."\n";
  598:                         }
  599:                         print $output;
  600:                         print $logfh $output;
  601:                     } elsif ($action eq 'dryrun') {
  602:                         push(@{$allmoved{$domain}},$author);
  603:                         print &mt('Would move [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
  604:                     }
  605:                 } elsif ($skipped) {
  606:                     push(@allskipped,$author); 
  607:                     if ($action ne 'dryrun') {
  608:                         my $output = &mt('Skipping this user: [_1].',"'$author'")."\n";
  609:                         print $logfh $output;
  610:                     }
  611:                 } else {
  612:                     print '*** '.&mt('WARNING: [_1] has no domain.',"'$author'")."\n".
  613:                           &mt('Enter [_1]: skip this user.','1')."\n".
  614:                           &mt('Enter [_1]: stop.','2')."\n".
  615:                           &mt('or enter domain for user to be placed into')."\n".
  616:                           &mt('Your input: ');
  617:                     my $choice=<STDIN>;
  618:                     chomp($choice);
  619:                     $choice =~ s/^\s+//;
  620:                     $choice =~ s/\s+$//;
  621:                     if ($choice == 1) {
  622:                         my $output = &mt('Skipping -- no domain for user: [_1].',"'$author'")."\n";
  623:                         print $output;
  624:                         if ($action ne 'dryrun') {
  625:                             print $logfh $output;
  626:                         }
  627:                         push(@allskipped,$author);
  628:                         next;
  629:                     }
  630:                     if ($choice == 2) {
  631:                         print &mt('Stopped.')."\n";
  632:                         if ($action ne 'dryrun') {
  633:                             my $output = &mt('Stopped by user because of author without domain: [_1].',
  634:                                              "'$author'")/"\n";
  635:                             &stop_logging($logfh,$output); 
  636:                         }
  637:                         if ($dbflag == 1) {
  638:                             &disconnect_mysql($dbh);
  639:                         } 
  640:                         exit;
  641:                     } elsif ($choice =~ /^$match_domain$/) {
  642:                         print &mt('You entered:')." $choice\n".
  643:                               &mt('Is this ok? ~[Y/n~] ');
  644:                         if (!&get_user_selection(1)) {
  645:                             print &mt('Try again ...')."\n".
  646:                                   &mt('Enter [_1]: skip this user.','1')."\n".
  647:                                   &mt('Enter [_1]: stop.','2')."\n".
  648:                                   &mt('or enter domain for user to be placed into')."\n".
  649:                                   &mt('Your input: ');
  650:                             $choice=<STDIN>;
  651:                             chomp($choice);
  652:                             $choice =~ s/^\s+//;
  653:                             $choice =~ s/\s+$//;
  654:                             if ($choice == 1) {
  655:                                 my $output = &mt('Skipping -- no domain for user: [_1].',"'$author'")."\n";
  656:                                 print $output;
  657:                                 if ($action ne 'dryrun') {
  658:                                     print $logfh $output;
  659:                                 }
  660:                                 push(@allskipped,$author);
  661:                                 next;
  662:                             }
  663:                             if ($choice == 2) {
  664:                                 print &mt('Stopped.')."\n";
  665:                                 if ($action ne 'dryrun') {
  666:                                     my $output = &mt('Stopped by user because of author without domain: [_1].',
  667:                                                      "'$author'")/"\n";
  668:                                     &stop_logging($logfh,$output);
  669:                                 }
  670:                                 if ($dbflag == 1) {
  671:                                     &disconnect_mysql($dbh);
  672:                                 }
  673:                                 exit;
  674:                             } elsif ($choice !~ /^$match_domain$/) {
  675:                                 print &mt('Invalid domain entered:')." $choice\n";
  676:                                 my $output = &mt('Skipping -- no domain for user: [_1].',"'$author'")."\n";
  677:                                 print $output;
  678:                                 if ($action ne 'dryrun') {
  679:                                     print $logfh $output;
  680:                                 }
  681:                                 push(@allskipped,$author);
  682:                                 next;
  683:                             }
  684:                         }
  685:                         my $dompath="$londocroot/priv/$choice";
  686:                         my $newpath="$londocroot/priv/$choice/$author";
  687:                         unless (-e $dompath) {
  688:                             if ($action eq 'move') {
  689:                                 print '*** '.&mt('WARNING: [_1] does not yet exist.',"'$dompath'")."\n";
  690:                             }
  691:                         }
  692:                         if ($action eq 'move') {
  693:                             unless (-e $dompath) {
  694:                                 $output .= &mt('Making [_1].',"'$dompath'")."\n";
  695:                                 if (mkdir($dompath,0755)) {
  696:                                     chown($uid,$gid,$dompath);
  697:                                 }
  698:                             }
  699:                             if (-e $dompath) {
  700:                                 if (move($source_path,$newpath)) {
  701:                                     chown($uid,$gid,$newpath);
  702:                                     chmod(0750,$newpath);
  703:                                     $output = &mt('Moved [_1] to [_2].',
  704:                                                   "'$source_path'","'$newpath'")."\n";
  705:                                 } else {
  706:                                     $output = &mt('Failed to move [_1] to [_2].',
  707:                                                   "'$source_path'","'$newpath'")."\n"; 
  708:                                 }
  709:                                 print $output;
  710:                                 print $logfh $output;
  711:                             } else {
  712:                                 $output = &mt('Failed to move [_1] to [_2] -- missing [_3].',
  713:                                               "'$source_path'","'$newpath'","'$dompath'")."\n";
  714:                             }
  715:                         } elsif ($action eq 'dryrun') {
  716:                            print &mt('Would make author [_1] in domain [_2].',"'$author'","'$choice'")."\n";
  717:                            unless (-e $dompath) {
  718:                                print &mt('Would make [_1].',"'$dompath'")."\n";
  719:                            }
  720:                            print &mt('Would make [_1].',"'$newpath'")."\n";
  721:                         }
  722:                     } else {
  723:                         print &mt('Invalid domain:')." $choice\n";
  724:                         if ($action eq 'move') {
  725:                             print $logfh &mt('Skipping -- no domain for user: [_1].',"'$author'")."\n";
  726:                         }
  727:                         push(@allskipped,$author);
  728:                         next;
  729:                     }
  730:                 }
  731:             }
  732:         }
  733:     }
  734: }
  735: 
  736: my ($moveinfo,$skipcount);
  737: if (keys(%allmoved) == 0) {
  738:     $moveinfo = &mt('None')."\n";
  739: } else {
  740:     foreach my $dom (sort(keys(%allmoved))) {
  741:         if (ref($allmoved{$dom}) eq 'ARRAY') {
  742:             $moveinfo .= "\n      ".&mt('Domain: [_1], number of authors: [_2]',
  743:                                         "'$dom'",scalar(@{$allmoved{$dom}}));
  744:         }
  745:     }
  746: }
  747: 
  748: $skipcount = scalar(@allskipped);
  749: 
  750: print "\n";
  751: if ($action ne 'dryrun') {
  752:     my $output = &mt('You skipped: [_1].',$skipcount)."\n".
  753:                  join("\n",sort(@allskipped))."\n\n".
  754:                  &mt('Moved ... [_1]',$moveinfo);
  755:     print $output;
  756:     print $logfh $output;
  757:     &stop_logging($logfh);
  758: } else {
  759:     print &mt('You would have skipped: [_1].',$skipcount)."\n".
  760:           join("\n",sort(@allskipped))."\n\n".
  761:           &mt('You would have moved ... [_1]',$moveinfo);
  762: }
  763: print "\n\n".&mt('Done.')."\n";
  764: 
  765: sub choose_domain {
  766:     my ($action,$author,$domref) = @_;
  767:     my ($domain,$skipped,$stopnow,@domains);
  768:     if (ref($domref) eq 'ARRAY') {
  769:         @domains = @{$domref};
  770:     } elsif (ref($domref) eq 'HASH') {
  771:         @domains = sort(keys(%{$domref}));
  772:     }
  773:     if (@domains > 1) {
  774:         print '*** '.&mt('ERROR: [_1] found in multiple domains.',"'$author'")."\n".
  775:                &mt('Enter a number to choose what action to take.')."\n";
  776:         my $num = 1;
  777:         print &mt('Enter [_1]: skip this user.',$num)."\n";
  778:         for (my $i=0; $i<@domains; $i++) {
  779:             my $shown = $domains[$i];
  780:             if (ref($domref) eq 'HASH') {
  781:                 if ($domref->{$shown} ne '') {
  782:                     $shown .= ' ('.$domref->{$shown}.') ';
  783:                 }
  784:             }
  785:             $num ++; 
  786:             print &mt('Enter [_1]: use domain - [_2].',$num,$shown)."\n";
  787:         }
  788:         $num ++;
  789:         print &mt('Enter [_1]: stop.',$num)."\n";
  790:         print &mt('Your choice:').' ';
  791:         my $choice=<STDIN>;
  792:         chomp($choice);
  793:         if ($choice =~ /^\d+$/) {
  794:             if ($choice == 1) {
  795:                 $skipped = 1;       
  796:             } elsif (($choice < $num) && ($choice > 1)) {
  797:                 $domain = $domains[$choice-2];
  798:             } elsif ($choice == $num) {
  799:                 $stopnow = 1;
  800:             } else {
  801:                 print &mt('Invalid choice:')." $choice\n".
  802:                       &mt('Skipping this user.')."\n";
  803:                 $skipped = 1;
  804:             }
  805:         } else {
  806:             print &mt('Invalid choice:')." $choice\n".
  807:                   &mt('Skipping this user.')."\n";
  808:             $skipped = 1;
  809:         }
  810:     } elsif (@domains == 1) {
  811:         $domain = $domains[0];
  812:     }
  813:     return ($domain,$skipped,$stopnow);
  814: }
  815: 
  816: sub move_priv_to_home {
  817:     my ($londocroot,$uid,$gid,$uname,$domain) = @_;
  818:     my $output;
  819:     if ($uname =~ /^$match_username$/ && $domain =~ /^$match_domain$/) {
  820:         my $source_path="$londocroot/priv/$domain/$uname";
  821:         my $target_path="/home/$uname/public_html";
  822:         my $userpath = &LONCAPA::propath($domain,$uname);
  823:         my ($authtype,$userid,$groupid);
  824:         if (-e "$userpath/passwd") {
  825:             if (open(my $fh, "<$userpath/passwd")) {
  826:                 ($authtype) = split(/:/,<$fh>);
  827:                 close($fh);
  828:             }
  829:         }
  830:         if (!-e "/home/$uname") {
  831:             (undef,undef,$userid,$groupid) = getpwnam($uname);
  832:             if (mkdir("/home/$uname",0711)) {
  833:                 if ($authtype eq 'unix' && $userid ne '' && $groupid ne '') {
  834:                     chown($userid,$groupid,"/home/$uname");
  835:                     if (&www_in_group($uname)) {
  836:                         chmod(0710,"/home/$uname");
  837:                     }
  838:                 }
  839:             } else {
  840:                 $output = &mt('Failed to create directory [_1] -- not moving [_2].',
  841:                           "'/home/$uname'","'$source_path'")."\n";
  842:                 return $output;
  843:             }
  844:         }
  845:         if (-e "/home/$uname") {
  846:             if (!-e $target_path) {
  847:                 move($source_path,$target_path);
  848:                 chown($uid,$gid,$target_path);
  849:                 if ($authtype eq 'unix' && $userid ne '' && $groupid ne '') {
  850:                     if (&www_in_group($uname)) {
  851:                         chown($userid,$groupid,$target_path);
  852:                     }
  853:                 }
  854:                 chmod(02770,$target_path);
  855:                 if (-e $target_path && !-e $source_path) {
  856:                     $output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
  857:                 } else {
  858:                     $output = &mt('Failed to move [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
  859:                 }
  860:             } else {
  861:                 $output = &mt('Directory [_1] already exists -- not moving [_2].',
  862:                               "'$target_path'","'$source_path'")."\n";
  863:             }
  864:         }
  865:     }
  866:     return $output;
  867: }
  868: 
  869: sub www_in_group {
  870:     my ($uname) = @_;
  871:     my $hasuser;
  872:     if (open(PIPE,"/usr/bin/groups www|")) {
  873:         my $memberlist = <PIPE>;
  874:         close(PIPE);
  875:         chomp($memberlist);
  876:         my ($safegroups)=($memberlist=~/:\s*([\s\w]+)$/);
  877:         if ($safegroups =~ /\S/) {
  878:             my @members = split(/\s+/,$safegroups);
  879:             if (grep(/^\Q$uname\E$/,@members)) {
  880:                 $hasuser = 1;
  881:             } else {
  882:                 my @ugrouplist=grep(!/www|$uname/,@members);
  883:                 my $gl=join(',',(@ugrouplist,$uname));
  884:                 if (system('/usr/sbin/usermod','-G',$gl,'www') == 0) {
  885:                     $hasuser = 1;
  886:                 }
  887:             }
  888:         }
  889:     }
  890:     return $hasuser;
  891: }
  892: 
  893: sub get_user_selection {
  894:     my ($defaultrun) = @_;
  895:     my $do_action = 0;
  896:     my $choice = <STDIN>;
  897:     chomp($choice);
  898:     $choice =~ s/(^\s+|\s+$)//g;
  899:     my $yes = &mt('y');
  900:     if ($defaultrun) {
  901:         if (($choice eq '') || ($choice =~ /^\Q$yes\E/i)) {
  902:             $do_action = 1;
  903:         }
  904:     } else {
  905:         if ($choice =~ /^\Q$yes\E/i) {
  906:             $do_action = 1;
  907:         }
  908:     }
  909:     return $do_action;
  910: }
  911: 
  912: sub start_logging {
  913:     my ($fh,$action) = @_;
  914:     my $start = localtime(time);
  915:     print $fh "*****************************************************\n".
  916:               &mt('[_1] - mode is [_2].',
  917:                   'move_construction_spaces.pl',"'$action'")."\n".
  918:               &mt('Started -- time: [_1]',$start)."\n".
  919:               "*****************************************************\n\n";
  920:     return;
  921: }
  922: 
  923: sub stop_logging {
  924:     my ($fh) = @_;
  925:     my $end = localtime(time);
  926:     print $fh "*****************************************************\n".
  927:                &mt('Ended -- time: [_1]',$end)."\n".
  928:               "*****************************************************\n\n\n";
  929:     close($fh);
  930:     return;
  931: }
  932: 
  933: sub check_for_restore_files {
  934:     my ($londaemons,$author,$domain) = @_;
  935:     if (opendir(my $homedir,"/home/$author")) {
  936:         my @contents = grep(!/^\.{1,2}$/,readdir($homedir));
  937:         closedir($homedir);
  938:         if (@contents > 0) {
  939:             if (grep(/^restore_\d+\.sh$/,@contents)) {
  940:                 if (!-e "$londaemons/logs/moved_construction_spaces") { 
  941:                     mkdir("$londaemons/logs/moved_construction_spaces",0755);
  942:                 }
  943:                 if (!-e "$londaemons/logs/moved_construction_spaces/$domain") {
  944:                     mkdir("$londaemons/logs/moved_construction_spaces/$domain",0755);
  945:                 }
  946:                 if (-e "$londaemons/logs/moved_construction_spaces/$domain") {
  947:                     if (open(my $restorefh,">>$londaemons/logs/moved_construction_spaces/$domain/$author")) {
  948:                         foreach my $item (@contents) {
  949:                             if ($item =~ /^restore_\d+\.sh$/) {
  950:                                 my @stats = stat("/home/$author/$item");
  951:                                 my $lastmod = $stats[9];
  952:                                 if (open(my $fh,"</home/$author/$item")) {
  953:                                     print $restorefh
  954:                                           "*******************************\n".
  955:                                           "$item -- ".localtime(time)."\n".
  956:                                           "*******************************\n";
  957:                                     while (<$fh>) {
  958:                                         print $restorefh $_;
  959:                                     }
  960:                                     print $restorefh
  961:                                           "*******************************\n\n";
  962:                                     close($fh);
  963:                                     unlink("/home/$author/$item");
  964:                                 }
  965:                             }
  966:                         }
  967:                         close($restorefh); 
  968:                     }
  969:                 }
  970:             }
  971:         }
  972:     }
  973:     return;
  974: }
  975: 
  976: sub connect_mysql {
  977:     my ($lonsqlaccess) = @_;
  978:     my ($dbh,$dbflag);
  979:     eval { $dbh = DBI->connect("DBI:mysql:loncapa","www",
  980:                                $lonsqlaccess,
  981:                                {RaiseError =>0,PrintError=>0}); 
  982:     };
  983:     if ($@) {
  984:         $dbflag = -1;
  985:     } else {
  986:         if (defined($dbh)) {
  987:             $dbflag = 1;
  988:         }
  989:     }
  990:     return ($dbh,$dbflag);
  991: }
  992: 
  993: sub disconnect_mysql {
  994:     my ($dbh) = @_;
  995:     if (ref($dbh)) {
  996:         $dbh->disconnect;
  997:     }
  998:     return;
  999: }
 1000: 
 1001: sub search_allusers {
 1002:     my ($dbh,$author) = @_;
 1003:     my %fullnames;
 1004:     if ((ref($dbh)) && ($author ne '')) {
 1005:         eval {
 1006:             my $statement = "SELECT domain, lastname, firstname FROM allusers WHERE username='$author'";
 1007:             my $sth = $dbh->prepare($statement);
 1008:             $sth->execute();
 1009:             while ( my ($dom,$last,$first) = $sth->fetchrow_array()) {
 1010:                 if ($dom ne '') {
 1011:                     $fullnames{$dom} = "$first $last";
 1012:                 }
 1013:             }
 1014:             $sth->finish;
 1015:         };
 1016:     }
 1017:     return \%fullnames;
 1018: }