[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.2, Tue Jun 30 20:11:54 2009 UTC revision 1.3, Mon Aug 3 21:31:42 2009 UTC
# Line 29  Line 29 
29      if (! $key) {      if (! $key) {
30          # No tracing key, so presume we're a web service.          # No tracing key, so presume we're a web service.
31          $cgi = CGI->new();          $cgi = CGI->new();
32            # Check for a source parameter. This gets used as the tracing key.
33            $key = $cgi->param('source');
34            if (! $key) {
35                # No source parameter, so do normal setup.
36          ETracing($cgi);          ETracing($cgi);
37      } else {      } else {
38                # Set up tracing using the specified key.
39                ETracing($key);
40                # Trace the CGI parameters.
41                Tracer::TraceParms($cgi);
42            }
43        } else {
44          # We're being invoked from the command line. Use the tracing          # We're being invoked from the command line. Use the tracing
45          # key to find the parm file and create the CGI object from that.          # key to find the parm file and create the CGI object from that.
46          my $ih = Open(undef, "<$FIG_Config::temp/$key.parms");          my $ih = Open(undef, "<$FIG_Config::temp/$key.parms");

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3