[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.68, Tue Mar 15 19:06:08 2011 UTC revision 1.69, Wed Mar 16 15:57:16 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                      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
76                            warn "Function request is $function in task $$.\n"; ##HACK
77                          RunRequest($cgi, $serverThing);                          RunRequest($cgi, $serverThing);
78                          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                      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.68  
changed lines
  Added in v.1.69

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3