cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

convenience function to log to correct path more easily

Browse Source
This commit is contained in:
espie 2011-11-06 12:20:32 +00:00
parent 0dbd26fc87
commit 0ea853e6e2
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
infrastructure/lib/DPB/Logger.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Logger.pm,v 1.4 2011/06/04 12:58:24 espie Exp $
# $OpenBSD: Logger.pm,v 1.5 2011/11/06 12:20:32 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -40,7 +40,7 @@ sub _open
{
my ($self, $mode, $name) = @_;
my $log = $self->logfile($name);
open my $fh, $mode, $log or die "Can't write to $log: $!\n";
CORE::open my $fh, $mode, $log or die "Can't write to $log: $!\n";
return $fh;
}
@ -116,6 +116,17 @@ sub make_logs
return $log;
}
sub log_error
{
my ($self, $v, @messages) = @_;
my $log = $self->make_logs($v);
CORE::open my $fh, ">>", $log or die "Can't write to $log: $!\n";
for my $msg (@messages) {
print $fh $msg, "\n";
}
$v->print_parent($fh);
}
sub make_distlogs
{
my ($self, $f) = @_;