[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Apr 16 14:17:24 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv30054/MOSES-MOBY/bin/scripts

Modified Files:
	moses-testing-service.pl 
Log Message:
message for asynchronous post was being truncated (sometimes ...). update how we post the data.
moby-live/Perl/MOSES-MOBY/bin/scripts moses-testing-service.pl,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/04/09 13:01:15	1.10
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/04/16 18:17:24	1.11
@@ -14,7 +14,7 @@
 	getopts('hdvl:e:c:C:a:');
 
 	# usage
-	if ( $opt_h or ( @ARGV == 0 and ( not $opt_c ) ) ) {
+	if ( $opt_h or ( @ARGV == 0 and ( not $opt_c or not $opt_C ) ) ) {
 		print STDOUT <<'END_OF_USAGE';
 Calling a BioMoby services (without using SOAP, just locally).
 Usage: # calling a local module representing a service, without using SOAP
@@ -291,8 +291,8 @@
 	# post to the web service
 	my $ua = LWP::UserAgent->new;
 	my $req = HTTP::Request->new( POST => $opt_C );
-	$req->content_type('application/x-www-form-urlencoded');
-	$req->content("data=$input");
+	$req->content_type('text/xml');
+	$req->content("$input");
 
 	# get the response
 	my $response = $ua->request($req);