Subversion Repositories DevTools

Rev

Rev 1038 | Rev 1289 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1038 Rev 1044
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright (C) 2011 Vix-ERG Limited, All rights reserved
 2 
# Copyright (C) 1998-2011 Vix Technology, All rights reserved
3 
#
 3 
#
4 
# Module name   : StdLogger.pm
 4 
# Module name   : StdLogger.pm
5 
# Module type   :
 5 
# Module type   :
6 
# Compiler(s)   : Perl
 6 
# Compiler(s)   : Perl
7 
# Environment(s):
 7 
# Environment(s):
Line 12... Line 12...
12 
#......................................................................#
 12 
#......................................................................#
13 
 
 13 
 
14 
require 5.008_002;
 14 
require 5.008_002;
15 
use strict;
 15 
use strict;
16 
use warnings;
 16 
use warnings;
17 
 
 - 
 
18 
package StdLogger;
 17 
package StdLogger;
19 
 
 18 
 
20 
$| = 1;
 19 
$| = 1;
21 
 
 20 
 
22 
sub new ($) {
 21 
sub new ($) {
Line 43... Line 42...
43 
    return undef;
 42 
    return undef;
44 
}
 43 
}
45 
 
 44 
 
46 
sub verbose ($$) {
 45 
sub verbose ($$) {
47 
	my ($self, $msg) = @_;
 46 
	my ($self, $msg) = @_;
48 
	$self->logmsg("(V): $msg");
 47 
	$self->logmsg("(V1): $msg");
49 
    return undef;
 48 
    return undef;
50 
}
 49 
}
51 
 
 50 
 
52 
sub verbose2 ($$) {
 51 
sub verbose2 ($$) {
53 
	my ($self, $msg) = @_;
 52 
	my ($self, $msg) = @_;
54 
	$self->logmsg("(V): $msg");
 53 
	$self->logmsg("(V2): $msg");
55 
    return undef;
 54 
    return undef;
56 
}
 55 
}
57 
 
 56 
 
58 
sub verbose3 ($$) {
 57 
sub verbose3 ($$) {
59 
	my ($self, $msg) = @_;
 58 
	my ($self, $msg) = @_;
60 
	$self->logmsg("(V): $msg");
 59 
	$self->logmsg("(V3): $msg");
61 
    return undef;
 60 
    return undef;
62 
}
 61 
}
63 
 
 62 
 
64 
sub rotatelog ($) {
 63 
sub rotatelog ($) {
65 
    return undef;
 64 
    return undef;