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;