Subversion Repositories DevTools

Rev

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

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