[BACK]Return to updatequery.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/updatequery.piml between versions 1.20 and 1.21

version 1.20, 2002/12/09 18:37:15 version 1.21, 2002/12/09 18:54:40
Line 541  END Line 541  END
 # if valid then process, otherwise loop  # if valid then process, otherwise loop
 my $hostname=`hostname`;chomp($hostname);  my $hostname=`hostname`;chomp($hostname);
 my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);  my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
   $hostaddress=~s/\s//;
 $flag=0;  $flag=0;
 while (!$flag) {  while (!$flag) {
   print "ENTER 1, 2, 3, or 4:\n";    print "ENTER 1, 2, 3, or 4:\n";
   my $choice=<>;    my $choice=<>;
   chomp($choice);    chomp($choice);
   $line2insert=<<END;    $line2insert=<<END;
 $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress  $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription
 END  END
   $date=`date -I`; chomp($date);    $date=`date -I`; chomp($date);
   $lonHostID=$perlvar{'lonHostID'};    $lonHostID=$perlvar{'lonHostID'};
Line 606  END Line 607  END
        open(OUT,'>>../new_'.$lonCluster.'_hosts.tab') or         open(OUT,'>>../new_'.$lonCluster.'_hosts.tab') or
          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");           die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);           print(OUT $line2insert);
  print($line2insert);  
        close(OUT);         close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;        `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
       # email appropriate message        # email appropriate message
Line 626  END Line 626  END
 New entry for $lonCluster.  New entry for $lonCluster.
 END  END
       `cat ../${lonCluster}_hosts.tab > ../new_${lonCluster}_hosts.tab`;        `cat ../${lonCluster}_hosts.tab > ../new_${lonCluster}_hosts.tab`;
        open(OUT,'>../new_'.$lonCluster.'_hosts.tab') or         open(OUT,'>>../new_'.$lonCluster.'_hosts.tab') or
          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");           die("cannot open loncom/new_${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);           print(OUT $line2insert);
        close(OUT);         close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;        `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
Removed from v.1.20  
changed lines
  Added in v.1.21

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