[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Jan 10 09:40:28 EST 2008
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv18343/Perl/scripts

Modified Files:
	ServicePingerValidator 
Log Message:

moby-live/Perl/scripts ServicePingerValidator,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/ServicePingerValidator,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/ServicePingerValidator	2008/01/09 19:11:03	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/ServicePingerValidator	2008/01/10 14:40:27	1.2
@@ -93,7 +93,10 @@
 				my $out   =
 				  $soap->$name( SOAP::Data->type( 'string' => "$input" ) )->result;
 				do {
-					print "<pre>     " . $auth . "," . $name . " isAlive</pre><br/>";
+					$out =~ s/&/&amp;/g;
+                    $out =~ s/>/&gt;/g;
+                    $out =~ s/</&lt;/g;
+					print "<pre>     " . $auth . "," . $name . " isAlive.\n     output:\n$out</pre><br/>";
 				} if $out;
 				do {
 					print "<pre>     " . $auth . "," . $name . " ~ did not respond!</pre><br/>";
@@ -145,7 +148,10 @@
 				my $out   =
 				  $soap->$name( SOAP::Data->type( 'string' => "$input" ) )->result;
 				do {
-					print "<pre>     " . $auth . "," . $name . " isAlive</pre><br/>";
+					$out =~ s/&/&amp;/g;
+                    $out =~ s/>/&gt;/g;
+                    $out =~ s/</&lt;/g;
+					print "<pre>     " . $auth . "," . $name . " isAlive.\n     output:\n$out</pre><br/>";
 				} if $out;
 				do {
 					print "<pre>     " . $auth . "," . $name . " ~ did not respond!</pre><br/>";