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

Diff of /FigKernelPackages/Tracer.pm

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

revision 1.123, Thu Jul 9 20:45:13 2009 UTC revision 1.124, Thu Aug 27 19:47:14 2009 UTC
# Line 1062  Line 1062 
1062    
1063  =head3 ETracing  =head3 ETracing
1064    
1065      ETracing($parameter);      ETracing($parameter, $noParms);
1066    
1067  Set up emergency tracing. Emergency tracing is tracing that is turned  Set up emergency tracing. Emergency tracing is tracing that is turned
1068  on automatically for any program that calls this method. The emergency  on automatically for any program that calls this method. The emergency
# Line 1083  Line 1083 
1083  is a CGI object and emergency tracing is not on, the C<Trace> and  is a CGI object and emergency tracing is not on, the C<Trace> and
1084  C<TF> parameters will be used to determine the type of tracing.  C<TF> parameters will be used to determine the type of tracing.
1085    
1086    =item noParms
1087    
1088    If TRUE, then CGI parameter tracing will be suppressed. The default is FALSE.
1089    
1090  =back  =back
1091    
1092  =cut  =cut
1093    
1094  sub ETracing {  sub ETracing {
1095      # Get the parameter.      # Get the parameter.
1096      my ($parameter) = @_;      my ($parameter, $noParms) = @_;
1097      # Check for CGI mode.      # Check for CGI mode.
1098      if (defined $parameter && ref $parameter eq 'CGI') {      if (defined $parameter && ref $parameter eq 'CGI') {
1099          $SavedCGI = $parameter;          $SavedCGI = $parameter;
# Line 1140  Line 1144 
1144      # Setup the tracing we've determined from all the stuff above.      # Setup the tracing we've determined from all the stuff above.
1145      TSetup($tracing, $dest);      TSetup($tracing, $dest);
1146      # Check to see if we're a web script.      # Check to see if we're a web script.
1147      if (defined $SavedCGI) {      if (defined $SavedCGI && ! $noParms) {
1148          # Yes we are. Trace the form and environment data.          # Yes we are. Trace the form and environment data.
1149          TraceParms($SavedCGI);          TraceParms($SavedCGI);
1150          # Check for RAW mode. In raw mode, we print a fake header so that we see everything          # Check for RAW mode. In raw mode, we print a fake header so that we see everything

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3