Subversion Repositories DevTools

Rev

Rev 1289 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1038 dpurdie 1 
########################################################################
1044 dpurdie 2 
# Copyright (C) 1998-2011 Vix Technology, All rights reserved
1038 dpurdie 3 
#
4 
# Module name   : StdLogger.pm
5 
# Module type   :
6 
# Compiler(s)   : Perl
7 
# Environment(s):
8 
#
9 
# Description   : Dummy logger
10 
#                 Logs to stdout instead of a file
11 
#
12 
#......................................................................#
13 
 
14 
require 5.008_002;
15 
use strict;
16 
use warnings;
17 
package StdLogger;
18 
 
19 
$| = 1;
20 
 
21 
sub new ($) {
1289 dpurdie 22 
    my ($class) = @_;
7387 dpurdie 23 
    return bless { verbose => 3 }, $class;
1038 dpurdie 24 
}
25 
 
7387 dpurdie 26 
sub setVerbose ($) {
27 
    my ($self, $vLevel) = @_;
28 
    $self->{verbose} = $vLevel || 0;
29 
}
30 
 
1038 dpurdie 31 
sub logmsg ($$) {
1289 dpurdie 32 
    my ($self, $msg) = @_;
33 
#   print localtime()." (PID $$): $msg\n";
34 
    $msg =~ s~\s+$~~;
35 
    print $msg . "\n";
1038 dpurdie 36 
    return undef;
37 
}
38 
 
39 
sub err ($$) {
1289 dpurdie 40 
    my ($self, $msg) = @_;
41 
    $self->logmsg("ERROR: $msg");
42 
    exit 2;
1038 dpurdie 43 
}
44 
 
45 
sub warn ($$) {
1289 dpurdie 46 
    my ($self, $msg) = @_;
47 
    $self->logmsg("WARNING: $msg");
1038 dpurdie 48 
    return undef;
49 
}
50 
 
51 
sub verbose ($$) {
1289 dpurdie 52 
    my ($self, $msg) = @_;
7387 dpurdie 53 
    $self->logmsg("(V1): $msg") if ( $self->{verbose} > 0 );
1038 dpurdie 54 
    return undef;
55 
}
56 
 
57 
sub verbose2 ($$) {
1289 dpurdie 58 
    my ($self, $msg) = @_;
7387 dpurdie 59 
    $self->logmsg("(V2): $msg") if ( $self->{verbose} > 1 );
1038 dpurdie 60 
    return undef;
61 
}
62 
 
63 
sub verbose3 ($$) {
1289 dpurdie 64 
    my ($self, $msg) = @_;
7387 dpurdie 65 
    $self->logmsg("(V3): $msg") if ( $self->{verbose} > 2 );
1038 dpurdie 66 
    return undef;
67 
}
68 
 
69 
sub rotatelog ($) {
70 
    return undef;
71 
}
72 
 
73 
1;