Diff for /doc/loncapafiles/updatequery.piml between versions 1.54 and 1.55

version 1.54, 2007/04/20 18:14:26 version 1.55, 2007/04/20 19:32:59
Line 421  my $lonAdmEMail; Line 421  my $lonAdmEMail;
 while (!$flag) {  while (!$flag) {
   print(<<END);    print(<<END);
   
 **** Server Administrator's E-mail ****  **** Server Administrators E-mail ****
 E-mail address of the person who will manage this machine  E-mail address of the person who will manage this machine
 [should be in the form somebody\@somewhere]  [should be in the form somebody\@somewhere]
 ENTER ADMIN E-MAIL ADDRESS:  ENTER ADMIN E-MAIL ADDRESS:
Line 606  my %perlvarstatic; Line 606  my %perlvarstatic;
  }   }
  close(CONFIG);   close(CONFIG);
     }      }
     if (!$domainDescription && $lonCluster ne 'existing') {  
        open(IN,'<../'.$lonCluster.'_domain.tab');      my (@hosts_files, @domain_files);
        while(<IN>) {      if ( $lonCluster ne 'existing') {
           if (/^$perlvar{'lonDefDomain'}\:/) {   push(@domain_files,'../'.$lonCluster.'_domain.tab',
      (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);       '../'.$lonCluster.'_dns_domain.tab');
      chomp($domainDescription);   push(@hosts_files,'../'.$lonCluster.'_hosts.tab',
      chomp($domainTabExtras);       '../'.$lonCluster.'_dns_hosts.tab');
      # the remianing field (primary lib server) is handled later      }
      $domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);      push(@domain_files,'/home/httpd/lonTabs/domain.tab',
              last;           '/home/httpd/lonTabs/dns_domain.tab');
           }      push(@hosts_files,'/home/httpd/lonTabs/hosts.tab',
        }           '/home/httpd/lonTabs/dns_hosts.tab');
        close(IN);  
     }  
     if (!$domainDescription) {      if (!$domainDescription) {
        open(IN,'</home/httpd/lonTabs/domain.tab');   foreach my $file (@domain_files) {
        while(<IN>) {      open(IN,'<'.$file);
           if (/^$perlvar{'lonDefDomain'}\:/) {      while(my $line = <IN>) {
      (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);   if ($line =~ /^\Q$perlvar{'lonDefDomain'}\E\:/) {
      chomp($domainDescription);      (undef,$domainDescription,$domainTabExtras)=split(/:/,$line,3);
      chomp($domainTabExtras);      chomp($domainDescription);
      # the remianing field (primary lib server) is handled later      chomp($domainTabExtras);
      $domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);      # the remianing field (primary lib server) is handled later
              last;      $domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);
           }      last;
        }   }
        close(IN);      }
       close(IN);
       last if ($domainDescription);
    }
     }      }
     if (!$primaryLibServer and $lonCluster ne 'existing') {  
         open(IN,'<../'.$lonCluster.'_domain.tab');      while(!$primaryLibServ && (@hosts_file || @domain_files)) {
         while(<IN>) {   my $file = shift(@domain_files);
             if (/^$perlvar{'lonDefDomain'}\:/) {          open(IN,'<'.$file);
                 (undef,undef,undef,undef,undef,undef,undef,undef,          while(my $line = <IN>) {
                                               $primaryLibServer)=split(/:/,$_);              if ($line =~ /^\Q$perlvar{'lonDefDomain'}\E\:/) {
    $primaryLibServer=(split(/:/,$line))[8];
                 chomp($primaryLibServer);                  chomp($primaryLibServer);
             }              }
         }          }
         close(IN);          close(IN);
         if (!$primaryLibServer) {   last if ($primaryLibServer);
             open(IN,'<../'.$lonCluster.'_hosts.tab');   $file = shift(@hosts_files);
             while(<IN>) {   open(IN,'<'.$file);
                 if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) {   while(my $line = <IN>) {
                     push(@libservers,$1);      if ($line =~ /^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) {
                 }   push(@libservers,$1);
             }      }
             close(IN);   }
             if (@libservers == 1) {   close(IN);
                 $primaryLibServer = $libservers[0];   if (@libservers == 1) {
             }      $primaryLibServer = $libservers[0];
         }   }
     }  
     if (!$primaryLibServer) {  
         open(IN,'</home/httpd/lonTabs/domain.tab');  
         while(<IN>) {  
             if (/^$perlvar{'lonDefDomain'}\:/) {  
                 (undef,undef,undef,undef,undef,undef,undef,undef,  
                                               $primaryLibServer)=split(/:/,$_);  
                 chomp($primaryLibServer);  
             }  
             close(IN);  
         }  
         if (!$primaryLibServer) {  
             open(IN,'</home/httpd/lonTabs/hosts.tab');  
             while(<IN>) {  
                 if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) {  
                     push(@libservers,$1);  
                 }  
             }  
             close(IN);  
             if (@libservers == 1) {  
                 $primaryLibServer = $libservers[0];  
             }  
         }  
     }      }
         
 # implement editing logic below, interactively  # implement editing logic below, interactively

Removed from v.1.54  
changed lines
  Added in v.1.55


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