Subversion Repositories DevTools

Rev

Rev 1044 | Rev 7387 | 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) = @_;
23 
    return bless { }, $class;
1038 dpurdie 24 
}
25 
 
26 
sub logmsg ($$) {
1289 dpurdie 27 
    my ($self, $msg) = @_;
28 
#   print localtime()." (PID $$): $msg\n";
29 
    $msg =~ s~\s+$~~;
30 
    print $msg . "\n";
1038 dpurdie 31 
    return undef;
32 
}
33 
 
34 
sub err ($$) {
1289 dpurdie 35 
    my ($self, $msg) = @_;
36 
    $self->logmsg("ERROR: $msg");
37 
    exit 2;
1038 dpurdie 38 
}
39 
 
40 
sub warn ($$) {
1289 dpurdie 41 
    my ($self, $msg) = @_;
42 
    $self->logmsg("WARNING: $msg");
1038 dpurdie 43 
    return undef;
44 
}
45 
 
46 
sub verbose ($$) {
1289 dpurdie 47 
    my ($self, $msg) = @_;
48 
    $self->logmsg("(V1): $msg");
1038 dpurdie 49 
    return undef;
50 
}
51 
 
52 
sub verbose2 ($$) {
1289 dpurdie 53 
    my ($self, $msg) = @_;
54 
    $self->logmsg("(V2): $msg");
1038 dpurdie 55 
    return undef;
56 
}
57 
 
58 
sub verbose3 ($$) {
1289 dpurdie 59 
    my ($self, $msg) = @_;
60 
    $self->logmsg("(V3): $msg");
1038 dpurdie 61 
    return undef;
62 
}
63 
 
64 
sub rotatelog ($) {
65 
    return undef;
66 
}
67 
 
68 
1;