Subversion Repositories DevTools

Rev

Rev 3846 | Rev 7387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3846 Rev 6475
Line 24... Line 24...
24 
}
 24 
}
25 
 
 25 
 
26 
sub logmsg ($$) {
 26 
sub logmsg ($$) {
27 
    my ($self, $msg) = @_;
 27 
    my ($self, $msg) = @_;
28 
    my $conf = $self->{conf};
 28 
    my $conf = $self->{conf};
- 
 
 29 
 
- 
 
 30 
    if ($conf->{debug}) {
- 
 
 31 
        print($msg, "\n");
- 
 
 32 
    }
- 
 
 33 
 
29 
    my $logfile = $conf->{'logfile'};
 34 
    my $logfile = $conf->{'logfile'};
30 
 
 35 
 
31 
    open my $fh, ">>$logfile" or die "Can't write blat logfile $logfile: $!\n";
 36 
    open my $fh, ">>$logfile" or die "Can't write blat logfile $logfile: $!\n";
32 
    $msg =~ s~\s+$~~;
 37 
    $msg =~ s~\s+$~~;
33 
    print $fh localtime()." (PID $$): $msg\n";
 38 
    print $fh localtime()." (PID $$): $msg\n";