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

Diff for /loncom/build/cpfiles.pl between versions 1.1 and 1.2

version 1.1, 2011/10/20 18:54:41 version 1.2, 2011/10/24 17:46:29
Line 102  foreach my $home_directory (</home/*>) { Line 102  foreach my $home_directory (</home/*>) {
       }        }
    } else {     } else {
       print "*** WARNING: $author has no domain. The author may not have published.\n";        print "*** WARNING: $author has no domain. The author may not have published.\n";
         print "Enter 1: do nothing, continue\n";
         print "Enter 2: stop\n";
         print "or enter domain for user to be placed into\n";
         print "Your input: ";
         my $choice=<STDIN>;
         if ($choice==2) { print "Stopped.\n"; exit; }
         if ($choice!=1) {
            chomp($choice);
            if ($choice) {
               my $dompath="/home/httpd/html/priv/$choice";
               my $newpath="/home/httpd/html/priv/$choice/$author";
               unless (-e $dompath) {
                  print "*** WARNING: $dompath does not yet exist.\n";
               }
               if ($commit) {
                  print "Making author $author in domain $choice\n";
                  unless (-e $dompath) {
                     print "Making $dompath\n";
                     mkdir($dompath);
                     chown($uid,$gid,$dompath);
                  }
                  print "Making $newpath\n";
                  mkdir($newpath);
                  chown($uid,$gid,$newpath);
               } else {
                  print "Would make author $author in domain $choice\n";
                  unless (-e $dompath) {
                     print "Would make $dompath\n";
                  }
                  print "Would make $newpath\n";
               }
            }
         }
    }     }
 }  }
 print "\nDone.\n";  print "\nDone.\n";
Removed from v.1.1  
changed lines
  Added in v.1.2

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