[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue May  6 12:52:48 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv31628/Perl/MOSES-MOBY/bin/scripts

Modified Files:
	moses-testing-service.pl 
Log Message:

moby-live/Perl/MOSES-MOBY/bin/scripts moses-testing-service.pl,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2008/05/01 18:56:43	1.5
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2008/05/06 16:52:48	1.6
@@ -96,7 +96,7 @@
 }
 
 # --- what service to call
-my $module = shift;   # eg. Service::Mabuhay, or just Mabuhay
+my $module = shift unless $opt_c;   # eg. Service::Mabuhay, or just Mabuhay
 my $service;
 ($service = $module) =~ s/.*::// unless $opt_c;
 
@@ -147,7 +147,7 @@
 
 	my $req = HTTP::Request->new(POST => $opt_c);
 	$req->content_type('application/x-www-form-urlencoded');
-	$req->content('data=$input');
+	$req->content("data=$input");
 	print "\n" . $ua->request($req)->as_string . "\n";
 
 } else {