[MOBY-guts] biomoby commit
Eddie Kawas
kawas at dev.open-bio.org
Thu Apr 16 18:13:03 UTC 2009
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);
}
More information about the MOBY-guts
mailing list