Subversion Repositories DevTools

Rev

Rev 7387 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1038 dpurdie 1 
########################################################################
7406 dpurdie 2 
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
1038 dpurdie 3 
#
4 
# Module name   : StdLogger.pm
5 
# Module type   :
6 
# Compiler(s)   : Perl
7 
# Environment(s):
8 
#
7406 dpurdie 9 
# Description   : Logger
1038 dpurdie 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 
 
7406 dpurdie 19 
# Set auto flush
1038 dpurdie 20 
$| = 1;
21 
 
22 
sub new ($) {
1289 dpurdie 23 
    my ($class) = @_;
7387 dpurdie 24 
    return bless { verbose => 3 }, $class;
1038 dpurdie 25 
}
26 
 
7387 dpurdie 27 
sub setVerbose ($) {
28 
    my ($self, $vLevel) = @_;
29 
    $self->{verbose} = $vLevel || 0;
30 
}
31 
 
1038 dpurdie 32 
sub logmsg ($$) {
1289 dpurdie 33 
    my ($self, $msg) = @_;
34 
#   print localtime()." (PID $$): $msg\n";
35 
    $msg =~ s~\s+$~~;
36 
    print $msg . "\n";
1038 dpurdie 37 
    return undef;
38 
}
39 
 
40 
sub err ($$) {
1289 dpurdie 41 
    my ($self, $msg) = @_;
42 
    $self->logmsg("ERROR: $msg");
43 
    exit 2;
1038 dpurdie 44 
}
45 
 
46 
sub warn ($$) {
1289 dpurdie 47 
    my ($self, $msg) = @_;
48 
    $self->logmsg("WARNING: $msg");
1038 dpurdie 49 
    return undef;
50 
}
51 
 
52 
sub verbose ($$) {
1289 dpurdie 53 
    my ($self, $msg) = @_;
7387 dpurdie 54 
    $self->logmsg("(V1): $msg") if ( $self->{verbose} > 0 );
1038 dpurdie 55 
    return undef;
56 
}
57 
 
58 
sub verbose2 ($$) {
1289 dpurdie 59 
    my ($self, $msg) = @_;
7387 dpurdie 60 
    $self->logmsg("(V2): $msg") if ( $self->{verbose} > 1 );
1038 dpurdie 61 
    return undef;
62 
}
63 
 
64 
sub verbose3 ($$) {
1289 dpurdie 65 
    my ($self, $msg) = @_;
7387 dpurdie 66 
    $self->logmsg("(V3): $msg") if ( $self->{verbose} > 2 );
1038 dpurdie 67 
    return undef;
68 
}
69 
 
70 
sub rotatelog ($) {
71 
    return undef;
72 
}
73 
 
74 
1;