[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Apr 16 14:13:03 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates
In directory dev.open-bio.org:/tmp/cvs-serv29954/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates

Modified Files:
	service-cgi-async.tt 
Log Message:
added a check for \r because our service message was been misinterpreted ...
moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates service-cgi-async.tt,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-cgi-async.tt,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-cgi-async.tt	2009/04/02 14:53:26	1.2
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-cgi-async.tt	2009/04/16 18:13:03	1.3
@@ -117,8 +117,10 @@
 sub call_service {
 	# get the data from the 'data' parameter
 	my $data = $q->param('data') || $q->param('POSTDATA') || "";
+	# remove any \r because these cause errors in our messages with newlines
+	$data =~ s/\r//gi;
 	# call the service
-	 __PACKAGE__->[% obj.name %]($data);
+	__PACKAGE__->[% obj.name %]($data);
 	
 }