[MOBY-guts] biomoby commit

[Mark Wilkinson]

Tue Jan 28 17:45:12 EST 2003
Update of /home/repository/moby/moby-live/Perl/Client/MOBY/Client
In directory dev:/tmp/cvs-serv20004/Client/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
switched off debugging logs
moby-live/Perl/Client/MOBY/Client Central.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/Client/MOBY/Client/Central.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /tmp/T09hayiN	2003-01-28 17:45:12.320010054 -0500
+++ /tmp/T1.hayiN	2003-01-28 17:45:12.330003499 -0500
@@ -69,7 +69,7 @@
 
 =cut
 
-my $debug = 1;
+my $debug = 0;
 
 if ($debug){open (OUT, ">/tmp/CentralLogOut.txt") || die "cant open logfile CentralLogOut.txt $!\n";close OUT;}
 
@@ -417,7 +417,7 @@
 			<authURI>$authURI</authURI>
 			<URL>$URL</URL>
 		</registerService>";
-	&_LOG(" message\n\n$message\n\n");
+	$debug && &_LOG(" message\n\n$message\n\n");
 	my $return = $self->SOAP_connection->call(registerService => ($message))->paramsall;
 
 	return ($self->parseRegXML($return));