[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu May  1 14:56:43 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv16574/Perl/MOSES-MOBY/bin/scripts

Modified Files:
	moses-testing-service.pl 
Log Message:
fixed the code to get rid of the warning message
moby-live/Perl/MOSES-MOBY/bin/scripts moses-testing-service.pl,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2008/04/29 19:58:37	1.4
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2008/05/01 18:56:43	1.5
@@ -66,7 +66,7 @@
 
     } elsif ($opt_c) {
     	# calling a real service, using cgi
-    	eval "use HTTP::Request::Common qw(POST); 1;"
+    	eval "use HTTP::Request; 1;"
 	    or die "$@\n";
 	    eval "use LWP::UserAgent; 1;"
 	    or die "$@\n";
@@ -145,7 +145,9 @@
 	$input = _empty_input;
     }
 
-	my $req = POST $opt_c, [ data => $input];
+	my $req = HTTP::Request->new(POST => $opt_c);
+	$req->content_type('application/x-www-form-urlencoded');
+	$req->content('data=$input');
 	print "\n" . $ua->request($req)->as_string . "\n";
 
 } else {