[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.69, Wed Mar 16 15:57:16 2011 UTC revision 1.70, Thu Mar 17 18:40:41 2011 UTC
# Line 66  Line 66 
66                  if ($ENV{REQUEST_METHOD} eq '') {                  if ($ENV{REQUEST_METHOD} eq '') {
67                      # Count the number of requests.                      # Count the number of requests.
68                      my $requests = 0;                      my $requests = 0;
69                      warn "Starting fast CGI loop.\n"; ##HACK Trace("Starting Fast CGI loop.") if T(3);                      # warn "Starting fast CGI loop.\n"; ##HACK Trace("Starting Fast CGI loop.") if T(3);
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                      while ((MAX_REQUESTS == 0 || ++$requests < MAX_REQUESTS) &&                      while ((MAX_REQUESTS == 0 || ++$requests < MAX_REQUESTS) &&
74                             ($cgi = new CGI::Fast())) {                             ($cgi = new CGI::Fast())) {
75                          my $function = $cgi->param('function') || "<non-functional>"; #HACK                          my $function = $cgi->param('function') || "<non-functional>"; #HACK
76                          warn "Function request is $function in task $$.\n"; ##HACK                          # warn "Function request is $function in task $$.\n"; ##HACK
77                          RunRequest($cgi, $serverThing);                          RunRequest($cgi, $serverThing);
78                          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);
79                      }                      }
80                      warn "Terminating FastCGI task $$ after $requests requests.\n"; ##HACK Trace("Terminating FastCGI task $$ after $requests requests.") if T(2);                      # warn "Terminating FastCGI task $$ after $requests requests.\n"; ##HACK Trace("Terminating FastCGI task $$ after $requests requests.") if T(2);
81                  } else {                  } else {
82                      # Here we have a normal web service (non-Fast).                      # Here we have a normal web service (non-Fast).
83                      my $cgi = CGI->new();                      my $cgi = CGI->new();

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3