Subversion Repositories DevTools

Rev

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

Rev 1289 Rev 7387
Line 18... Line 18...
18
 
18
 
19
$| = 1;
19
$| = 1;
20
 
20
 
21
sub new ($) {
21
sub new ($) {
22
    my ($class) = @_;
22
    my ($class) = @_;
23
    return bless { }, $class;
23
    return bless { verbose => 3 }, $class;
-
 
24
}
-
 
25
 
-
 
26
sub setVerbose ($) {
-
 
27
    my ($self, $vLevel) = @_;
-
 
28
    $self->{verbose} = $vLevel || 0;
24
}
29
}
25
 
30
 
26
sub logmsg ($$) {
31
sub logmsg ($$) {
27
    my ($self, $msg) = @_;
32
    my ($self, $msg) = @_;
28
#   print localtime()." (PID $$): $msg\n";
33
#   print localtime()." (PID $$): $msg\n";
Line 43... Line 48...
43
    return undef;
48
    return undef;
44
}
49
}
45
 
50
 
46
sub verbose ($$) {
51
sub verbose ($$) {
47
    my ($self, $msg) = @_;
52
    my ($self, $msg) = @_;
48
    $self->logmsg("(V1): $msg");
53
    $self->logmsg("(V1): $msg") if ( $self->{verbose} > 0 );
49
    return undef;
54
    return undef;
50
}
55
}
51
 
56
 
52
sub verbose2 ($$) {
57
sub verbose2 ($$) {
53
    my ($self, $msg) = @_;
58
    my ($self, $msg) = @_;
54
    $self->logmsg("(V2): $msg");
59
    $self->logmsg("(V2): $msg") if ( $self->{verbose} > 1 );
55
    return undef;
60
    return undef;
56
}
61
}
57
 
62
 
58
sub verbose3 ($$) {
63
sub verbose3 ($$) {
59
    my ($self, $msg) = @_;
64
    my ($self, $msg) = @_;
60
    $self->logmsg("(V3): $msg");
65
    $self->logmsg("(V3): $msg") if ( $self->{verbose} > 2 );
61
    return undef;
66
    return undef;
62
}
67
}
63
 
68
 
64
sub rotatelog ($) {
69
sub rotatelog ($) {
65
    return undef;
70
    return undef;