Subversion Repositories DevTools

Rev

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

Rev 6475 Rev 7387
Line 21... Line 21...
21 
sub new ($$) {
 21 
sub new ($$) {
22 
    my ($class, $conf) = @_;
 22 
    my ($class, $conf) = @_;
23 
    return bless { conf => $conf }, $class;
 23 
    return bless { conf => $conf }, $class;
24 
}
 24 
}
25 
 
 25 
 
- 
 
 26 
sub setVerbose ($) {
- 
 
 27 
}
- 
 
 28 
 
26 
sub logmsg ($$) {
 29 
sub logmsg ($$) {
27 
    my ($self, $msg) = @_;
 30 
    my ($self, $msg) = @_;
28 
    my $conf = $self->{conf};
 31 
    my $conf = $self->{conf};
29 
 
 32 
 
30 
    if ($conf->{debug}) {
 33 
    if ($conf->{debug}) {