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

[albertel]

albertel		Mon Dec  9 13:54:40 2002 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  - removes all trailing spaces for IP address
  - removes silly debugging code
  - adds domain description to hosts.tab
  - correctly appends a new entry to hosts.tab file rather than overwrite it
  
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.20 doc/loncapafiles/updatequery.piml:1.21
--- doc/loncapafiles/updatequery.piml:1.20	Mon Dec  9 13:37:15 2002
+++ doc/loncapafiles/updatequery.piml	Mon Dec  9 13:54:40 2002
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.20 2002/12/09 18:37:15 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.21 2002/12/09 18:54:40 albertel Exp $ -->
 
 <!--
 
@@ -541,13 +541,14 @@
 # if valid then process, otherwise loop
 my $hostname=`hostname`;chomp($hostname);
 my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
+$hostaddress=~s/\s//;
 $flag=0;
 while (!$flag) {
   print "ENTER 1, 2, 3, or 4:\n";
   my $choice=&lt;&gt;;
   chomp($choice);
   $line2insert=&lt;&lt;END;
-$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress
+$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription
 END
   $date=`date -I`; chomp($date);
   $lonHostID=$perlvar{'lonHostID'};
@@ -606,7 +607,6 @@
        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);
-	print($line2insert);
        close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
       # email appropriate message
@@ -626,8 +626,8 @@
 New entry for $lonCluster.
 END
       `cat ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
-       open(OUT,'&gt;../new_'.$lonCluster.'_hosts.tab') or
-         die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
+       open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
+         die("cannot open loncom/new_${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);
        close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;