[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.125, Wed Dec 16 18:49:10 2009 UTC revision 1.126, Wed Dec 16 20:00:53 2009 UTC
# Line 1122  Line 1122 
1122      my $dest = $options{destType} || "WARN";      my $dest = $options{destType} || "WARN";
1123      # Check for emergency tracing.      # Check for emergency tracing.
1124      my $tkey = EmergencyKey($parameter);      my $tkey = EmergencyKey($parameter);
1125        warn "Tracing key is $tkey.\n"; ##HACK
1126      my $emergencyFile = EmergencyFileName($tkey);      my $emergencyFile = EmergencyFileName($tkey);
1127      if (-e $emergencyFile) {      if (-e $emergencyFile) {
1128          # We have the file. Read in the data.          # We have the file. Read in the data.
# Line 1149  Line 1150 
1150          }          }
1151      }      }
1152      # Convert the destination to a real tracing destination.      # Convert the destination to a real tracing destination.
1153        warn "Tracing destination is $dest.\n"; ##HACK
1154      $dest = EmergencyTracingDest($tkey, $dest);      $dest = EmergencyTracingDest($tkey, $dest);
1155      # Setup the tracing we've determined from all the stuff above.      # Setup the tracing we've determined from all the stuff above.
1156        warn "TSetup is \"$tracing\", \"$dest\".\n"; ##HACK
1157      TSetup($tracing, $dest);      TSetup($tracing, $dest);
1158      # Check to see if we're a web script.      # Check to see if we're a web script.
1159      if (defined $SavedCGI) {      if (defined $SavedCGI) {

Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3