[BACK]Return to move_construction_spaces.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools

Diff for /loncom/debugging_tools/move_construction_spaces.pl between versions 1.2 and 1.3

version 1.2, 2011/10/26 17:35:10 version 1.3, 2011/10/27 03:31:50
Line 1 Line 1
 #!/usr/bin/perl  #!/usr/bin/perl
 #  #
   # The LearningOnline Network
   #
 # Move Construction Spaces from /home/$user/public_html  # Move Construction Spaces from /home/$user/public_html
 # to /home/httpd/html/priv/$domain/$user and vice versa  # to /home/httpd/html/priv/$domain/$user and vice versa
 #   #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   #################################################
   
 use strict;  use strict;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
Line 16  my $lang = &Apache::lonlocal::choose_lan Line 43  my $lang = &Apache::lonlocal::choose_lan
 &Apache::lonlocal::get_language_handle(undef,$lang);  &Apache::lonlocal::get_language_handle(undef,$lang);
   
 if ($< != 0) {  if ($< != 0) {
     print(&mt('You must be root in order to move Construction Spaces.').      print &mt('You must be root in order to move Construction Spaces.')."\n".
          "\n");            &mt('Stopping')."\n";
     exit;      exit;
 }  }
   
 my $perlvar=&LONCAPA::Configuration::read_conf();  my $perlvar=&LONCAPA::Configuration::read_conf();
 my ($lonuserdir,$londocroot);  my ($lonuserdir,$londocroot,$londaemons);
 if (ref($perlvar) eq 'HASH') {  if (ref($perlvar) eq 'HASH') {
     $lonuserdir = $perlvar->{'lonUsersDir'};      $lonuserdir = $perlvar->{'lonUsersDir'};
     $londocroot = $perlvar->{'lonDocRoot'};      $londocroot = $perlvar->{'lonDocRoot'};
       $londaemons = $perlvar->{'lonDaemons'};
 }  }
 undef($perlvar);  undef($perlvar);
   
   my $distro;
   if ($londaemons ne '') {
       if (-e "$londaemons/distprobe") {
           if (open(PIPE,"perl $londaemons/distprobe|")) {
               $distro = <PIPE>;
               close(PIPE);
           }
       }
   } else {
       print &mt('Could not determine location of [_1] directory.',"'lonDaemons'")."\n".
             &mt('Stopping')."\n";
       exit; 
   }
   
   if ($distro eq '') {
       print &mt('Could not determine Linux distro.')."\n".
             &mt('Stopping')."\n";
       exit;
   } else {
       my $stopapachecmd = '/etc/init.d/httpd stop';
       my $apacheprocess = '/usr/sbin/httpd';
       my $stopapachecmd = '/etc/init.d/httpd stop';
       my $proc_owner = 'root';
       if ($distro =~ /^(suse|sles)/) {
           if ($distro =~ /^(suse|sles)9/) {
               $stopapachecmd = '/etc/init.d/apache stop';
           } else {
               $apacheprocess = '/usr/sbin/httpd2';
               $stopapachecmd = '/etc/init.d/apache2 stop';
           }
       } elsif ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
           $apacheprocess = '/usr/sbin/apache2';
           $stopapachecmd = '/etc/init.d/apache2 stop';
       } elsif ($distro =~ /^(?:fedora)(\d+)/) {
           my $version = $1;
           if ($version >= 16) {
               $stopapachecmd = '/bin/systemctl stop httpd.service';
           }
       }
       if (open(PIPE,"ps -ef |grep '$apacheprocess' |grep -v grep 2>&1 |")) {
           my $status = <PIPE>;
           close(PIPE);
           chomp($status);
           if ($status =~ /^\Q$proc_owner\E\s+\d+\s+/) {
               print "\n".
                     &mt('You need to stop the Apache daemon before moving Construction Spaces.')."\n".
                     &mt('To do so use the following command: [_1]',"\n\n$stopapachecmd")."\n\n".
                     &mt('Now stopping the move_construction_spaces.pl script.')."\n";
               exit;
           }
       } else {
           print &mt('Could not determine if Apache daemon is running.')."\n";
       }
   }
   
   my $stoploncontrol = '/etc/init.d/loncontrol stop';
   if (open(PIPE,"ps -ef |grep lond |grep -v grep 2>&1 |")) {
       my $status = <PIPE>;
       close(PIPE);
       chomp($status);
       if ($status =~ /^www\s+\d+\s+/) {
           print "\n".
                 &mt('You need to stop the LON-CAPA daemons before moving Construction Spaces.')."\n".
                 &mt('To do so use the following command: [_1]',"\n\n$stoploncontrol")."\n\n".
                 &mt('Now stopping the move_construction_spaces.pl script.')."\n";
           exit;        
       }
   }
   
 # Abort if more than one argument.  # Abort if more than one argument.
   
 my $parameter=$ARGV[0];  my $parameter=$ARGV[0];
Line 68  if ($action eq '') { Line 165  if ($action eq '') {
   
 if ($action eq 'dryrun') {  if ($action eq 'dryrun') {
     print "\n".      print "\n".
           &mt('Running in exploratory mode.')."\n".            &mt('Running in exploratory mode ...')."\n\n".
           &mt('Run with argument [_1] to actually move Construction Spaces to [_2], i.e., [_3]',            &mt('Run with argument [_1] to actually move Construction Spaces to [_2], i.e., [_3]',
               "'move'","'$londocroot/priv'","\nperl move_construction_spaces.pl move")."\n\n".                "'move'","'$londocroot/priv'","\n\nperl move_construction_spaces.pl move")."\n\n\n".
           &mt('Run with argument [_1] to move Construction spaces back to [_2], i.e., [_3]',            &mt('Run with argument [_1] to move Construction spaces back to [_2], i.e., [_3]',
               "'undo'","'/home'","\nperl move_construction_spaces.pl undo")."\n\n".                "'undo'","'/home'","\n\nperl move_construction_spaces.pl undo")."\n\n\n".
           &mt('Continue? ~[y/N~] ');            &mt('Continue? ~[y/N~] ');
     if (!&get_user_selection()) {      if (!&get_user_selection()) {
         exit;          exit;
       } else {
           print "\n";
     }      }
 } else {  } else {
     print "\n ***".&mt('Running in a mode where changes will be made.')."\n";      print "\n *** ".&mt('Running in a mode where changes will be made.')." ***\n";
     if ($action eq 'move') {      if ($action eq 'move') {
         print "\n".          print "\n".
               &mt('Mode is [_1] -- directories will be moved to [_2].',                &mt('Mode is [_1] -- directories will be moved to [_2].',
Line 91  if ($action eq 'dryrun') { Line 190  if ($action eq 'dryrun') {
     print &mt('Continue? ~[y/N~] ');      print &mt('Continue? ~[y/N~] ');
     if (!&get_user_selection()) {      if (!&get_user_selection()) {
         exit;          exit;
       } else {
           print "\n";
       }
   }
   
   my $logfh;
   if ($action ne 'dryrun') {
       if (!open($logfh,">>$londaemons/logs/move_construction_spaces.log")) {
           print &mt('Could not open log file: [_1] for writing.',
                     "'$londaemons/logs/move_construction_spaces.log'")."\n".
                 &mt('Stopping.')."\n";
       } else {
           &start_logging($logfh,$action);
     }      }
 }  }
   
Line 99  my %allauthors; Line 211  my %allauthors;
 my %pubusers;  my %pubusers;
   
 if ($action eq 'move') {  if ($action eq 'move') {
       my $output;
     if (-d "$londocroot/priv") {      if (-d "$londocroot/priv") {
         print "\n".          $output = &mt('New Construction Spaces directory: [_1] already exists.',
               &mt('New Construction Spaces directory: [_1] already exists.',                        "'$londocroot/priv'")."\n";
                   "'$londocroot/priv'")."\n";          print $output;
           print $logfh $output;
     } else {      } else {
         print "\n".          $output = &mt('Creating new directory: [_1] for Construction Spaces.',
               &mt('Creating new directory: [_1] for Construction Spaces.',                        "'$londocroot/priv'")."\n";
                   "'$londocroot/priv'")."\n";          if (mkdir("$londocroot/priv",0750)) {
         if (mkdir("$londocroot/priv",0755)) {  
             if (chown($uid,$gid,"$londocroot/priv")) {              if (chown($uid,$gid,"$londocroot/priv")) {
                 print &mt('Creation Successful')."\n";                  $output .= &mt('Creation Successful')."\n";
                   print $output;
                   print $logfh $output;
             } else {              } else {
                 print &mt('Failed to change ownership to [_1].',"'$uid:$gid'")."\n".                  $output .= &mt('Failed to change ownership to [_1].',"'$uid:$gid'")."\n";
                 &mt('Stopping')."\n";                  print $output;
                   &stop_logging($logfh,$output);
                   print &mt('Stopping')."\n";
                 exit;                  exit;
             }              }
         } else {          } else {
             print &mt('Failed to create directory [_1].',"'$londocroot/priv'")."\n".              $output .=  &mt('Failed to create directory [_1].',"'$londocroot/priv'")."\n";
                   &mt('Stopping')."\n";              print $output;
               &stop_logging($logfh,$output);
               print &mt('Stopping')."\n";
             exit;              exit;
         }          }
     }      }
Line 125  if ($action eq 'move') { Line 244  if ($action eq 'move') {
   
 my @machinedoms;  my @machinedoms;
 if ($lonuserdir) {  if ($lonuserdir) {
     my $dir;      my ($dir,$output);
     if (opendir($dir,$lonuserdir)) {      if (opendir($dir,$lonuserdir)) {
         my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));          my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));
         foreach my $item (@contents) {          foreach my $item (@contents) {
Line 140  if ($lonuserdir) { Line 259  if ($lonuserdir) {
                         if (!-e $dom_target) {                          if (!-e $dom_target) {
                             if (mkdir($dom_target,0755)) {                              if (mkdir($dom_target,0755)) {
                                 chown($uid,$gid,$dom_target);                                  chown($uid,$gid,$dom_target);
                                 print &mt('Made [_1].',"'$dom_target'")."\n";                                  $output = &mt('Made [_1].',"'$dom_target'")."\n";
                                   print $output;
                                   print $logfh $output;
                             } else {                              } else {
                                 print &mt('Failed to make [_1].',"'$dom_target'")."\n".                                  $output = &mt('Failed to make [_1].',"'$dom_target'")."\n";
                                       &mt('Stopping')."\n";                                  print $output;
                                   print $logfh $output;
                                   &stop_logging($logfh,$output);
                                   print &mt('Stopping')."\n";
                                 exit;                                  exit;
                             }                              }
                         } elsif ($action eq 'dryrun') {                          } elsif ($action eq 'dryrun') {
Line 172  if ($lonuserdir) { Line 296  if ($lonuserdir) {
         }          }
         closedir($dir);          closedir($dir);
     } else {      } else {
         print &mt('Could not open [_1].',"'$lonuserdir'")."\n".          $output = &mt('Could not open [_1].',"'$lonuserdir'")."\n";
               &mt('Stopping')."\n";          print $output;
           &stop_logging($logfh,$output);
           print &mt('Stopping')."\n";
         exit;          exit;
     }      }
 }  }
Line 232  if ($action eq 'undo') { Line 358  if ($action eq 'undo') {
                 my $choice=<STDIN>;                  my $choice=<STDIN>;
                 chomp($choice);                  chomp($choice);
                 if (grep(/^\Q$choice\E$/,@{$privspaces{$uname}})) {                  if (grep(/^\Q$choice\E$/,@{$privspaces{$uname}})) {
                     &move_priv_to_home($londocroot,$uname,$choice);                      my $output = &move_priv_to_home($londocroot,$uid,$gid,$uname,$choice);
                       print $output;
                       print $logfh $output;
                 } else {                  } else {
                     print &mt('Invalid choice of domain:')." $choice\n".                      print &mt('Invalid choice of domain:')." $choice\n";
                           &mt('Skipping this user: [_1].',"'$uname'")."\n";                      my $output = &mt('Skipping this user: [_1].',"'$uname'")."\n";
                       print $output;
                       print $logfh $output;
                     next;                      next;
                 }                  }
             } elsif (@{$privspaces{$uname}} == 1) {              } elsif (@{$privspaces{$uname}} == 1) {
                     &move_priv_to_home($londocroot,$uname,$privspaces{$uname}[0]);                  my $output = &move_priv_to_home($londocroot,$uid,$gid,$uname,$privspaces{$uname}[0]);
                   print $output;
                   print $logfh $output;
             } else {              } else {
                 print &mt('Username [_1] found in [_2] was not within a domain',                  print &mt('Username [_1] found in [_2] was not within a domain',
                           "'$uname'","'$londocroot/priv'")."\n";                            "'$uname'","'$londocroot/priv'")."\n";
                   my $output = &mt('Skipping this user: [_1].',"'$uname'")."\n";
                   print $output;
                   print $logfh $output;
             }              }
         }          }
     }      }
     print &mt('Done')."\n";      &stop_logging($logfh);
       print "\n".&mt('Done')."\n";
     exit;      exit;
 }  }
   
Line 254  if ($action eq 'undo') { Line 390  if ($action eq 'undo') {
 if (opendir(my $dir,"/home")) {  if (opendir(my $dir,"/home")) {
     foreach my $item (grep(!/^\.{1,2}$/,readdir($dir))) {      foreach my $item (grep(!/^\.{1,2}$/,readdir($dir))) {
         next if ($item eq 'www');          next if ($item eq 'www');
         if (-d "/home/$item") {          if ((-d "/home/$item") && ($item ne '')) {
 # Is there a public_html-directory?  # Is there a public_html-directory?
             if (-d "/home/$item/public_html") {              if (-d "/home/$item/public_html") {
                 my $author = $item;                  my $author = $item;
                 my ($domain,$skipped);                  my ($domain,$skipped,$output);
                 if (ref($pubusers{$author}) eq 'ARRAY') {                  if (ref($pubusers{$author}) eq 'ARRAY') {
                     ($domain,$skipped) = &choose_domain($action,$author,$pubusers{$author});                      ($domain,$skipped) = &choose_domain($action,$author,$pubusers{$author});
                 }                  }
Line 267  if (opendir(my $dir,"/home")) { Line 403  if (opendir(my $dir,"/home")) {
                         ($domain,$skipped) = &choose_domain($action,$author,$allauthors{$author});                          ($domain,$skipped) = &choose_domain($action,$author,$allauthors{$author});
                     }                      }
                 }                  }
                   my $source_path="/home/$author/public_html";
                 if ($domain) {                   if ($domain) { 
                     my $source_path="/home/$author/public_html";  
                     my $target_path="$londocroot/priv/$domain/$author";                      my $target_path="$londocroot/priv/$domain/$author";
                     if ($action eq 'move') {                      if ($action eq 'move') {
                         move($source_path,$target_path);                          if (move($source_path,$target_path)) {
                             chown($uid,$gid,$target_path);                              chown($uid,$gid,$target_path);
                             chmod($target_path,0755);                              chmod($target_path,0750);
                         print &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";                              $output = &mt('Moved [_1] to [_2].',
                                             "'$source_path'","'$target_path'")."\n";
                               my (undef,undef,$userid,$groupid) = getpwnam($author);
                               if ($userid eq '' && $groupid eq '' && $author ne '') {
                                   &check_for_restore_files($londaemons,$author,$domain);
                                   if (opendir(my $homedir,"/home/$author")) {
                                       my @contents = 
                                           grep(!/^\.{1,2}$/,readdir($homedir));
                                       if (@contents == 0) {
                                           if (rmdir("/home/$author/")) {
                                               $output .= &mt('Removed empty directory: [_1]',
                                                              "'/home/$author/'")."\n";
                                           } else {
                                               $output .= &mt('Failed to remove directory: [_1]',
                                                              "'/home/$author/'")."\n";
                                           }
                                       } else {
                                           $output .= &mt('Not removing directory [_1] as it still contains: [_2]',
                                                      "'/home/$author/'",
                                                      "\n".join("\n",@contents)."\n");
                                       }
                                   }
                               } else {
                                   $output .= &mt('Not removing directory [_1] for UNIX user account',
                                                  "'/home/$author/'")."\n";  
                               }
                           } else {
                               $output = &mt('Failed to move [_1] to [_2].',
                                             "'$source_path'","'$target_path'")."\n";
                           }
                           print $output;
                           print $logfh $output;
                     } elsif ($action eq 'dryrun') {                      } elsif ($action eq 'dryrun') {
                         print &mt('Would move [_1] to [_2].',"'$source_path'","'$target_path'")."\n";                          print &mt('Would move [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
                     }                      }
                 } elsif (!$skipped) {                  } elsif ($skipped) {
                       if ($action ne 'dryrun') {
                           print $logfh &mt('Skipping this user: [_1].',"'$author'")."\n"; 
                       }
                   } else {
                     print '*** '.&mt('WARNING: [_1] has no domain.',"'$author'")."\n".                      print '*** '.&mt('WARNING: [_1] has no domain.',"'$author'")."\n".
                           &mt('Enter [_1]: do nothing, continue.','1')."\n".                            &mt('Enter [_1]: do nothing, continue.','1')."\n".
                           &mt('Enter [_2]: stop.','2')."\n".                            &mt('Enter [_2]: stop.','2')."\n".
Line 286  if (opendir(my $dir,"/home")) { Line 457  if (opendir(my $dir,"/home")) {
                           &mt('Your input: ');                            &mt('Your input: ');
                     my $choice=<STDIN>;                      my $choice=<STDIN>;
                     chomp($choice);                      chomp($choice);
                     next if ($choice ==1);                      if ($choice ==1) {
                           print $logfh &mt('Skipping -- no domain for user: [_1].',"'$author'")."\n";
                       }
                     if ($choice == 2) {                      if ($choice == 2) {
                         print &mt('Stopped.')."\n";                          print &mt('Stopped.')."\n";
                           if ($action ne 'dryrun') {
                               my $output = &mt('Stopped by user because of author without domain: [_1].',
                                                "'$author'")/"\n";
                               &stop_logging($logfh,$output); 
                           }
                         exit;                          exit;
                     }                       } 
                     if ($choice =~ /^$match_domain$/) {                      if ($choice =~ /^$match_domain$/) {
Line 298  if (opendir(my $dir,"/home")) { Line 476  if (opendir(my $dir,"/home")) {
                             print '*** '.&mt('WARNING: [_1] does not yet exist.',"'$dompath'")."\n";                              print '*** '.&mt('WARNING: [_1] does not yet exist.',"'$dompath'")."\n";
                         }                          }
                         if ($action eq 'move') {                          if ($action eq 'move') {
                             print &mt('Making author [_1] in domain [_2].',"'$author'","'$choice'")."\n";  
                             unless (-e $dompath) {                              unless (-e $dompath) {
                                 print &mt('Making [_1].',"'$dompath'")."\n";                                  $output .= &mt('Making [_1].',"'$dompath'")."\n";
                                 mkdir($dompath,0755);                                  if (mkdir($dompath,0755)) {
                                 chown($uid,$gid,$dompath);                                      chown($uid,$gid,$dompath);
                                   }
                               }
                               if (-e $dompath) {
                                   if (move($source_path,$newpath)) {
                                       chown($uid,$gid,$newpath);
                                       chmod($newpath,0750);
                                       $output = &mt('Moved [_1] to [_2].',
                                                     "'$source_path'","'$newpath'")."\n";
                                   } else {
                                       $output = &mt('Failed to move [_1] to [_2].',
                                                     "'$source_path'","'$newpath'")."\n"; 
                                   }
                                   print $output;
                                   print $logfh $output;
                               } else {
                                   $output = &mt('Failed to move [_1] to [_2] -- missing [_3].',
                                                 "'$source_path'","'$newpath'","'$dompath'")."\n";
                             }                              }
                             print &mt('Making [_1].',"'$newpath'")."\n";  
                             mkdir($newpath,0755);  
                             chown($uid,$gid,$newpath);  
                         } elsif ($action eq 'dryrun') {                          } elsif ($action eq 'dryrun') {
                            print &mt('Would make author [_1] in domain [_2].',"'$author'","'$choice'")."\n";                             print &mt('Would make author [_1] in domain [_2].',"'$author'","'$choice'")."\n";
                            unless (-e $dompath) {                             unless (-e $dompath) {
Line 320  if (opendir(my $dir,"/home")) { Line 511  if (opendir(my $dir,"/home")) {
         }          }
     }      }
 }  }
 print "\nDone.\n";  if ($action ne 'dryrun') {
       &stop_logging($logfh);
   }
   print "\n".&mt('Done.')."\n";
   
 sub choose_domain {   sub choose_domain { 
     my ($action,$author,$domarrayref) = @_;      my ($action,$author,$domarrayref) = @_;
Line 359  sub choose_domain { Line 553  sub choose_domain {
 }  }
   
 sub move_priv_to_home {  sub move_priv_to_home {
     my ($londocroot,$uname,$domain) = @_;      my ($londocroot,$uid,$gid,$uname,$domain) = @_;
       my $output;
     if ($uname =~ /^$match_username$/ && $domain =~ /^$match_domain$/) {      if ($uname =~ /^$match_username$/ && $domain =~ /^$match_domain$/) {
         my $source_path="$londocroot/priv/$domain/$uname";          my $source_path="$londocroot/priv/$domain/$uname";
         my $target_path="/home/$uname/public_html";          my $target_path="/home/$uname/public_html";
         if (!-e "/home/$uname") {          if (!-e "/home/$uname") {
             if (mkdir("/home/$uname",0755)) {              my (undef,undef,$userid,$groupid) = getpwnam($uname);
                 chown($uid,$gid,"/home/$uname");              if (mkdir("/home/$uname",0750)) {
                   if ($userid ne '' && $groupid ne '') {
                       chown($userid,$groupid,"/home/$uname");
                   }
             } else {              } else {
                 print &mt('Failed to create directory [_1] -- not moving [_2].',                  $output = &mt('Failed to create directory [_1] -- not moving [_2].',
                           "'/home/$uname'","'$source_path'")."\n";                            "'/home/$uname'","'$source_path'")."\n";
                   return $output;
             }              }
         }          }
         if (!-e $target_path) {          if (-e "/home/$uname") {
              move($source_path,$target_path);              if (!-e $target_path) {
              chown($uid,$gid,$target_path);                  move($source_path,$target_path);
              chmod($target_path,0755);                  chown($uid,$gid,$target_path);
              print &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";                  chmod($target_path,2770);
         } else {                  $output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
              print &mt('Directory [_1] already exists -- not moving [_2].',              } else {
                        "'$target_path'","'$source_path'")."\n";                  $output = &mt('Directory [_1] already exists -- not moving [_2].',
                                 "'$target_path'","'$source_path'")."\n";
               }
         }          }
     }      }
     return;      return $output;
 }  }
   
 sub get_user_selection {  sub get_user_selection {
Line 403  sub get_user_selection { Line 604  sub get_user_selection {
     return $do_action;      return $do_action;
 }  }
   
   sub start_logging {
       my ($fh,$action) = @_;
       my $start = localtime(time);
       print $fh "*****************************************************\n".
                 &mt('[_1] - mode is [_2].',
                     'move_construction_spaces.pl',"'$action'")."\n".
                 &mt('Started -- time: [_1]',$start)."\n".
                 "*****************************************************\n\n";
       return;
   }
   
   sub stop_logging {
       my ($fh) = @_;
       my $end = localtime(time);
       print $fh "*****************************************************\n".
                  &mt('Ended -- time: [_1]',$end)."\n".
                 "*****************************************************\n\n\n";
       close($fh);
       return;
   }
   
   sub check_for_restore_files {
       my ($londaemons,$author,$domain) = @_;
       if (opendir(my $homedir,"/home/$author")) {
           my @contents = grep(!/^\.{1,2}$/,readdir($homedir));
           if (@contents > 0) {
               if (grep(/^restore_\d+\.sh$/,@contents)) {
                   if (!-e "$londaemons/logs/moved_construction_spaces") { 
                       mkdir("$londaemons/logs/moved_construction_spaces",0755);
                   }
                   if (!-e "$londaemons/logs/moved_construction_spaces/$domain") {
                       mkdir("$londaemons/logs/moved_construction_spaces/$domain",0755);
                   }
                   if (-e "$londaemons/logs/moved_construction_spaces/$domain") {
                       if (open(my $restorefh,">>$londaemons/logs/moved_construction_spaces/$domain/$author")) {
                           foreach my $item (@contents) {
                               if ($item =~ /^restore_\d+\.sh$/) {
                                   my @stats = stat("/home/$author/$item");
                                   my $lastmod = $stats[9];
                                   if (open(my $fh,"</home/$author/$item")) {
                                       print $restorefh
                                             "*******************************\n".
                                             "$item -- ".localtime(time)."\n".
                                             "*******************************\n";
                                       while (<$fh>) {
                                           print $restorefh $_;
                                       }
                                       print $restorefh
                                             "*******************************\n\n";
                                       close($fh);
                                       unlink("/home/$author/$item");
                                   }
                               }
                           }
                           close($restorefh); 
                       }
                   }
               }
           }
       }
       return;
   }
   
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>