[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.39, Fri Feb 24 19:45:29 2006 UTC revision 1.40, Wed Mar 15 21:55:08 2006 UTC
# Line 403  Line 403 
403      # Next, we create the category string by prefixing the trace level      # Next, we create the category string by prefixing the trace level
404      # and joining the categories.      # and joining the categories.
405      my $cats = join(" ", $parseOptions{trace}, @cats);      my $cats = join(" ", $parseOptions{trace}, @cats);
406      # Now set up the tracing.      # Verify that we can open a file in the temporary directory.
407        my $traceMode = "TEXT";
408      my $suffix = $retOptions->{user};      my $suffix = $retOptions->{user};
409      TSetup($cats, "+>$FIG_Config::temp/trace$suffix.log");      my $traceFileName = "$FIG_Config::temp/trace$suffix.log";
410        if (open TESTTRACE, ">$traceFileName") {
411            $traceMode = "+>$traceFileName";
412            close TESTTRACE;
413        }
414        # Now set up the tracing.
415        TSetup($cats, $traceMode);
416      # Check for the "h" option. If it is specified, dump the command-line      # Check for the "h" option. If it is specified, dump the command-line
417      # options and exit the program.      # options and exit the program.
418      if ($retOptions->{h}) {      if ($retOptions->{h}) {

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3