my ($error_color, $warning_color, $command_color, $highlight_color, $normal) = "";
-my $me;
+our $me;
BEGIN {
# Extract relative path and basename from script name.
$me =~ s/\.pl$//;
} # BEGIN
-sub new (;%){
+sub new(;%) {
my ($class, %parms) = @_;
=pod
or error "Unable to open logfile $path/$name - $!", 1;
# Set unbuffered output
- $logfile->autoflush ();
+ $logfile->autoflush();
set_verbose if $ENV{VERBOSE};
set_debug if $ENV{DEBUG};
}, $class; # bless
} # new
-sub append ($) {
+sub append($) {
my ($self, $filename) = @_;
=pod
return;
} # append
-sub name () {
+sub name() {
my ($self) = @_;
=pod
return $self->{name};
} # name
-sub fullname () {
+sub fullname() {
my ($self) = @_;
=pod
return "$self->{path}/$self->{name}";
} # fullname
-sub msg ($;$) {
+sub msg($;$) {
my ($self, $msg, $nolinefeed) = @_;
=pod
return;
} # msg
-sub disp ($;$) {
+sub disp($;$) {
my ($self, $msg, $nolinefeed) = @_;
=pod
return;
} # disp
-sub incrementErr (;$) {
+sub incrementErr(;$) {
my ($self, $increment) = @_;
=pod
return;
} # incrementErr
-sub err ($;$) {
+sub err($;$) {
my ($self, $msg, $errno) = @_;
=pod
$msg = "ERROR: $msg";
} # if
- $self->log ($msg);
+ $self->msg($msg);
$self->incrementErr;
return;
} # err
-sub maillog (%) {
+sub maillog(%) {
my ($self, %parms) = @_;
=pod
my $footing = $parms{footing};
my $mode = $parms{mode};
- $mode = "plain"
- unless $mode;
+ $mode = "plain" unless $mode;
my $log_filename = "$self->{path}/$self->{name}";
. $footing;
} # if
- mail (
+ mail(
from => $from,
to => $to,
cc => $cc,
return;
} # maillog
-sub log {
+sub log($;$) {
my ($self, $msg, $nolinefeed) = @_;
=pod
return;
} # log
-sub logcmd ($) {
+sub logcmd($) {
my ($self, $cmd) = @_;
=pod
return ($?, @output);
} # logcmd
-sub loglines () {
+sub loglines() {
my ($self) = @_;
=pod
return ReadFile "$self->{path}/$self->{name}";
} # loglines
-sub warn ($;$) {
+sub warn($;$) {
my ($self, $msg, $warnno) = @_;
=pod
return;
} # warn
-sub errors () {
+sub errors() {
my ($self) = @_;
=pod
return $self->{errors};
} # errors
-sub warnings () {
+sub dbug($) {
+ my ($self, $msg) = @_;
+
+ $self->log("DEBUG: $msg") if get_debug;
+
+ return;
+} # dbug
+
+sub warnings() {
my ($self) = @_;
=pod
return $self->{warnings};
} # warnings
-sub DESTROY () {
+sub DESTROY() {
my ($self) = @_;
close ($self->{handle});