github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-19 17:18:39 +00:00
Code Releases Activity

2007-09-25 20:05:16 by steve

Browse Source 
Attempt to fix logfile issues; C.J Adams-Collier.
This commit is contained in:
steve 2007-09-25 20:05:16 +00:00
parent ec080134e2
commit a03fc1f245
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/Xen/Tools/Log.pm
View File

@ -4,6 +4,8 @@ use warnings;
use strict;
use Moose;
use File::Spec;
use POSIX; # strftime
use Carp;
=head1 NAME
@ -56,7 +58,7 @@ sub print {
sub print_screen {
my $self = shift;
print @_;
print map { "$_\n" } @_;
}
=head2 print_log
@ -68,8 +70,10 @@ sub print_screen {
sub print_log {
my $self = shift;
# Create an RFC 822 conformant date string
my $date = strftime( "%a, %d %b %Y %H:%M:%S %z", localtime );
my $fh = $self->log_fh();
print $fh ( @_ );
print $fh ( map { "$date - $_" } @_ );
}
=head2 hostname
@ -132,7 +136,8 @@ before 'DESTROY' => sub {
_init_fh
This private method initializes the logging filehandle
This private method initializes the logging filehandle, creating the
containing directory if it does not exist.
=end doc
@ -143,8 +148,13 @@ sub _init_fh {
my $logFile =
File::Spec->catfile( $self->logpath(), $self->hostname() . '.log' );
system( 'mkdir -p', $self->logpath() ) unless -d $self->logpath();
carp "Couldn't create log directory: $!" unless $? == 0;
open( $self->{log_fh}, q{>>}, $logFile );
open( $self->{log_fh}, q{>>}, $logFile ) or
carp "Couldn't open log file for append: $!";
};
=head1 AUTHOR