--- loncom/build/cpfiles.pl	2011/10/20 18:54:41	1.1
+++ loncom/build/cpfiles.pl	2011/10/24 17:46:29	1.2
@@ -102,6 +102,39 @@ foreach my $home_directory (</home/*>) {
       }
    } else {
       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";