[LON-CAPA-cvs] cvs: doc /loncapafiles verify_domconfiguser.piml

[raeburn]

raeburn		Mon Aug 24 14:32:24 2009 EDT

  Modified files:              
    /doc/loncapafiles	verify_domconfiguser.piml 
  Log:
  - Remove debug line.
  - Sanity checking for a ref to an array. 
  
  
Index: doc/loncapafiles/verify_domconfiguser.piml
diff -u doc/loncapafiles/verify_domconfiguser.piml:1.1 doc/loncapafiles/verify_domconfiguser.piml:1.2
--- doc/loncapafiles/verify_domconfiguser.piml:1.1	Mon Aug 24 13:44:50 2009
+++ doc/loncapafiles/verify_domconfiguser.piml	Mon Aug 24 14:32:24 2009
@@ -3,7 +3,7 @@
 <!-- verify_domconfiguser.piml -->
 <!-- Stuart Raeburn -->
 
-<!-- $Id: verify_domconfiguser.piml,v 1.1 2009/08/24 13:44:50 raeburn Exp $ -->
+<!-- $Id: verify_domconfiguser.piml,v 1.2 2009/08/24 14:32:24 raeburn Exp $ -->
 
 <!--
 
@@ -113,7 +113,14 @@
     }
     close(TABFILE);
 }
-my @machine_ids = @{$libservids{$hostname}};
+my @machine_ids;
+if (ref($libservids{$hostname}) eq 'ARRAY') {
+    @machine_ids = @{$libservids{$hostname}};
+}
+if (@machine_ids == 0){
+    print "Domain configuration user not verified -- no lonHostID found for this machine in /home/httpd/lonTabs/hosts.tab\n";
+    exit;
+}
 if (open(TABFILE,'&lt;'.$perlvar{'lonTabDir'}.'/domain.tab')) {
     while (my $tabline =&lt;TABFILE&gt;) {
         next if ($tabline =~ /^(\#|\s*$ )/x);
@@ -231,7 +238,6 @@
             }
         }
         untie %hash;
-        print STDERR "make_author is $make_author\n";
         if ($make_author) {
             my %domhash;
             my $domdir = $usersdir.'/'.$dom;