Subversion Repositories DevTools

Rev

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