[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 30 Jan 2004 14:42:00 -0000


matthew		Fri Jan 30 09:42:00 2004 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Reduce lonnet.log spew from multi-domain code (-r 1.465) so I can
  see my own lonnet.log spew.  I assume the output is not needed for 
  general testing.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.466 loncom/lonnet/perl/lonnet.pm:1.467
--- loncom/lonnet/perl/lonnet.pm:1.466	Wed Jan 28 19:53:03 2004
+++ loncom/lonnet/perl/lonnet.pm	Fri Jan 30 09:42:00 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.466 2004/01/29 00:53:03 www Exp $
+# $Id: lonnet.pm,v 1.467 2004/01/30 14:42:00 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4491,7 +4491,7 @@
     my $hostname=$hostname{$perlvar{'lonHostID'}};
     my @domains;
     while( my($id, $name) = each(%hostname)) {
-	&logthis("-$id-$name-$hostname-");
+#	&logthis("-$id-$name-$hostname-");
 	if ($hostname eq $name) {
 	    push(@domains,$hostdom{$id});
 	}
@@ -4503,7 +4503,7 @@
     my $hostname=$hostname{$perlvar{'lonHostID'}};
     my @ids;
     while( my($id, $name) = each(%hostname)) {
-	&logthis("-$id-$name-$hostname-");
+#	&logthis("-$id-$name-$hostname-");
 	if ($hostname eq $name) {
 	    push(@ids,$id);
 	}