[Bio] / FigKernelPackages / ServerThing.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ServerThing.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71, Thu Mar 17 20:30:01 2011 UTC revision 1.72, Thu Mar 17 21:32:30 2011 UTC
# Line 70  Line 70 
70                      # Loop through the fast CGI requests. If we have request throttling,                      # Loop through the fast CGI requests. If we have request throttling,
71                      # we exit after a maximum number of requests has been exceeded.                      # we exit after a maximum number of requests has been exceeded.
72                      require CGI::Fast;                      require CGI::Fast;
73                      open(SERVER_STDERR, ">", *STDERR);                      open(SERVER_STDERR, ">&", *STDERR);
74                      while ((MAX_REQUESTS == 0 || ++$requests < MAX_REQUESTS) &&                      while ((MAX_REQUESTS == 0 || ++$requests < MAX_REQUESTS) &&
75                             ($cgi = new CGI::Fast())) {                             ($cgi = new CGI::Fast())) {
76                          #                          #
# Line 78  Line 78 
78                          # so we need to save it to keep FCGI happy.                          # so we need to save it to keep FCGI happy.
79                          #                          #
80                          *SAVED_STDERR = *STDERR;                          *SAVED_STDERR = *STDERR;
81                          my $function = $cgi->param('function') || "<non-functional>"; #HACK                          *STDERR = *SERVER_STDERR;
82                            my $function = $cgi->param('function') || "<non-functional>"; # (useful if we do tracing in here)
83                          # warn "Function request is $function in task $$.\n"; ##HACK                          # warn "Function request is $function in task $$.\n"; ##HACK
84                          RunRequest($cgi, $serverThing);                          RunRequest($cgi, $serverThing);
85                          # warn "$requests requests complete in fast CGI task $$.\n"; ##HACK Trace("Request $requests complete in task $$.") if T(3);                          # warn "$requests requests complete in fast CGI task $$.\n"; ##HACK Trace("Request $requests complete in task $$.") if T(3);
# Line 534  Line 535 
535  Bit score for the match. Divide by the length of the longer PEG to get  Bit score for the match. Divide by the length of the longer PEG to get
536  what we often refer to as a "normalized bit score".  what we often refer to as a "normalized bit score".
537    
538    =item 18 (optional)
539    
540    Clear-correspondence indicator. If present, will be C<1> if the correspondence is a
541    clear bidirectional best hit (no similar candidates) and C<0> otherwise.
542    
543  =back  =back
544    
545  In the actual files, there will also be reverse correspondences indicated by a  In the actual files, there will also be reverse correspondences indicated by a

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3