[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.31, Mon Dec 14 20:59:35 2009 UTC revision 1.32, Wed Dec 16 18:49:10 2009 UTC
# Line 33  Line 33 
33      # Set up tracing. We never do CGI tracing here; the only question is whether      # Set up tracing. We never do CGI tracing here; the only question is whether
34      # or not the caller passed in a tracing key. If he didn't, we use the server      # or not the caller passed in a tracing key. If he didn't, we use the server
35      # name.      # name.
36      ETracing($key || $serverName);      ETracing($key || $serverName, destType => 'APPEND', level => '0 ServerThing');
37      # Turn off YAML compression, which causes problems with some of our hash keys.      # Turn off YAML compression, which causes problems with some of our hash keys.
38      $YAML::CompressSeries = 0;      $YAML::CompressSeries = 0;
39      # Create the server object.      # Create the server object.
# Line 199  Line 199 
199  sub GetIdList {  sub GetIdList {
200      # Get the parameters.      # Get the parameters.
201      my ($name, $args, $optional) = @_;      my ($name, $args, $optional) = @_;
202        # Check the argument format.
203        if (ref $args ne 'HASH') {
204            Confess("No '$name' parameter present.");
205        }
206      # Try to get the IDs from the argument structure.      # Try to get the IDs from the argument structure.
207      my $retVal = $args->{$name};      my $retVal = $args->{$name};
208      # Was a member found?      # Was a member found?
# Line 312  Line 316 
316          # Here we have a documentation request. In this case, we produce POD HTML.          # Here we have a documentation request. In this case, we produce POD HTML.
317          ProducePod($cgi->param('pod'));          ProducePod($cgi->param('pod'));
318      } elsif ($cgi->param('code')) {      } elsif ($cgi->param('code')) {
319            # Here the user wants to see the code for one of our scripts.
320          LineNumberize($cgi->param('code'));          LineNumberize($cgi->param('code'));
321      } elsif ($cgi->param('file')) {      } elsif ($cgi->param('file')) {
322          # Here we have a file request. Process according to the type.          # Here we have a file request. Process according to the type.
# Line 357  Line 362 
362              # If we have an error, create an error document.              # If we have an error, create an error document.
363              if ($@) {              if ($@) {
364                  SendError($@, "Error detected by service.");                  SendError($@, "Error detected by service.");
365                  Trace("Error encountered by service: $@") if T(2);                  Trace("Error encountered by service: $@") if T(0);
366              } else {              } else {
367                  # No error, so we output the result.                  # No error, so we output the result.
368                  print $cgi->header(-type => 'text/plain');                  print $cgi->header(-type => 'text/plain');
# Line 501  Line 506 
506          } else {          } else {
507                  print "File $fks_path not found";                  print "File $fks_path not found";
508          }          }
   
509      };      };
510      # Process any error.      # Process any error.
511      if ($@) {      if ($@) {

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3