diff options
| author | fukachan <fukachan> | 2006-05-04 05:25:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-05-04 05:25:40 +0000 |
| commit | 42013caa9a774aa3f2adb7ad6cc31d423d33fc0b (patch) | |
| tree | 7f5ffa33d68519b8a03594f7cb0abf4a13ec83f6 | |
| parent | f5f86f11c1366765ce5db1a9a8ff7c6be63916ce (diff) | |
| download | fml8-42013caa9a774aa3f2adb7ad6cc31d423d33fc0b.tar.gz fml8-42013caa9a774aa3f2adb7ad6cc31d423d33fc0b.tar.bz2 fml8-42013caa9a774aa3f2adb7ad6cc31d423d33fc0b.zip | |
expand % format in $log_file by strftime(3).
| -rw-r--r-- | fml/lib/FML/Log.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index b04ad6a9..ed34b12d 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi # -# $FML: Log.pm,v 1.33 2006/04/02 06:29:22 fukachan Exp $ +# $FML: Log.pm,v 1.34 2006/04/02 06:34:48 fukachan Exp $ # package FML::Log; @@ -15,6 +15,7 @@ use strict; use Carp; use FML::Config; use FML::Credential; +use POSIX qw(strftime); =head1 NAME @@ -138,6 +139,11 @@ sub Log my $fh = undef; my $sender = FML::Credential->sender; + # expand % in log file name by POSIX::strftime(). + if ($file =~ /\%/o) { + $file = strftime($file, localtime); + } + if (defined $file) { my $old_mask = umask(077); $fh = new FileHandle ">> $file"; |