[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.94, Tue Mar 11 21:04:56 2008 UTC revision 1.95, Fri Apr 18 18:06:12 2008 UTC
# Line 1  Line 1 
1  #  # -*- perl -*-
2    ########################################################################
3  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
4  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
5  #  #
# Line 13  Line 14 
14  # at info@ci.uchicago.edu or the Fellowship for Interpretation of  # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15  # Genomes at veronika@thefig.info or download a copy from  # Genomes at veronika@thefig.info or download a copy from
16  # http://www.theseed.org/LICENSE.TXT.  # http://www.theseed.org/LICENSE.TXT.
17  #  ########################################################################
18    
19  package Tracer;  package Tracer;
20    
# Line 509  Line 510 
510          print "<p>$timeStamp $LastCategory: $escapedMessage</p>\n";          print "<p>$timeStamp $LastCategory: $escapedMessage</p>\n";
511      } elsif ($Destination eq "WARN") {      } elsif ($Destination eq "WARN") {
512         # Emit the message as a warning.         # Emit the message as a warning.
513         warn $message;         carp $message;
514      } elsif ($Destination =~ m/^>>/) {      } elsif ($Destination =~ m/^>>/) {
515          # Write the trace message to an output file.          # Write the trace message to an output file.
516          (open TRACING, $Destination) || die "Tracing open for \"$Destination\" failed: $!";          (open TRACING, $Destination) || die "Tracing open for \"$Destination\" failed: $!";

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3