Subversion Repositories DevTools

Rev

Rev 1044 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1038 dpurdie 1 
########################################################################
2 
# Copyright (C) 2011 Vix-ERG Limited, All rights reserved
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 
 
18 
package StdLogger;
19 
 
20 
$| = 1;
21 
 
22 
sub new ($) {
23 
	my ($class) = @_;
24 
	return bless { }, $class;
25 
}
26 
 
27 
sub logmsg ($$) {
28 
	my ($self, $msg) = @_;
29 
#	print localtime()." (PID $$): $msg\n";
30 
	print $msg . "\n";
31 
    return undef;
32 
}
33 
 
34 
sub err ($$) {
35 
	my ($self, $msg) = @_;
36 
	$self->logmsg("ERROR: $msg");
37 
	exit 2;
38 
}
39 
 
40 
sub warn ($$) {
41 
	my ($self, $msg) = @_;
42 
	$self->logmsg("WARNING: $msg");
43 
    return undef;
44 
}
45 
 
46 
sub verbose ($$) {
47 
	my ($self, $msg) = @_;
48 
	$self->logmsg("(V): $msg");
49 
    return undef;
50 
}
51 
 
52 
sub verbose2 ($$) {
53 
	my ($self, $msg) = @_;
54 
	$self->logmsg("(V): $msg");
55 
    return undef;
56 
}
57 
 
58 
sub verbose3 ($$) {
59 
	my ($self, $msg) = @_;
60 
	$self->logmsg("(V): $msg");
61 
    return undef;
62 
}
63 
 
64 
sub rotatelog ($) {
65 
    return undef;
66 
}
67 
 
68 
1;