Diff for /doc/loncapafiles/updatequery.piml between versions 1.22 and 1.23

version 1.22, 2002/12/09 21:10:44 version 1.23, 2002/12/09 21:27:36
Line 86  while (!$flag) { Line 86  while (!$flag) {
     $lonCluster='production'; $flag=1;      $lonCluster='production'; $flag=1;
   }    }
   elsif ($choice==2) {    elsif ($choice==2) {
  die("FIXME Broken!!!");  
     $lonCluster='standalone'; $flag=1;      $lonCluster='standalone'; $flag=1;
     open(OUT,'>../'.$lonCluster.'_hosts.tab') or  
       die('file generation error');  
       print(OUT $line2insert);  
     close(OUT);  
   }    }
   elsif ($choice==3) {    elsif ($choice==3) {
     $lonCluster='development'; $flag=1;      $lonCluster='development'; $flag=1;
Line 440  my %perlvarstatic; Line 435  my %perlvarstatic;
  }   }
  close(CONFIG);   close(CONFIG);
     }      }
     unless ($domainDescription) {      if (!$domainDescription && $lonCluster ne 'existing') {
        open(IN,'<../'.$lonCluster.'_hosts.tab');         open(IN,'<../'.$lonCluster.'_hosts.tab');
        while(<IN>) {         while(<IN>) {
           if (/^$perlvar{'lonHostID'}\:/) {            if (/^$perlvar{'lonHostID'}\:/) {
Line 449  my %perlvarstatic; Line 444  my %perlvarstatic;
              last;               last;
           }            }
        }         }
        close(IN);         close(IN);
     }      }
       if (!$domainDescription) {
          open(IN,'</home/httpd/lonTabs/hosts.tab');
          while(<IN>) {
             if (/^$perlvar{'lonHostID'}\:/) {
        (undef,undef,undef,undef,undef,$domainDescription)=split(/:/,$_);
        chomp($domainDescription);
                last;
             }
          }
          close(IN);
       }
      
 # implement editing logic below, interactively  # implement editing logic below, interactively
 # update loncapa.conf until 8 is entered  # update loncapa.conf until 8 is entered
   
Line 603  unless (-l "<TARGET />") { Line 610  unless (-l "<TARGET />") {
   $line2insert=&lt;&lt;END;    $line2insert=&lt;&lt;END;
 $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription  $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription
 END  END
     if ($lonCluster eq 'standalone') {
       open(OUT,'&gt;../'.$lonCluster.'_hosts.tab') or
         die('file generation error');
         print(OUT $line2insert);
       close(OUT);
     }
   if ($flag==1) {    if ($flag==1) {
     `rm -f ../hosts.tab`;      `rm -f ../hosts.tab`;
     open(IN,'&lt;../'.$lonCluster.'_hosts.tab');      open(IN,'&lt;../'.$lonCluster.'_hosts.tab');

Removed from v.1.22  
changed lines
  Added in v.1.23


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