diff options
| -rw-r--r-- | fml/lib/FML/Log.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index 1fa85416..0a33ab50 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -47,7 +47,7 @@ for example, log files, syslog() (not yet implemented). =head2 Log( $message [, $args]) -The argument is the message to log. +The required argument is the message to log. You can specify C<log_file>, C<facility> and C<level> as an optional. $args = { @@ -56,6 +56,10 @@ You can specify C<log_file>, C<facility> and C<level> as an optional. level => $level, }; +This routine depends on C<FML::Config> and C<FML::Credential>. +$config->{ log_format_type } defines the format sytle. +C<sender> to log is taken from C<FML::Credential> object. + =cut @@ -88,7 +92,7 @@ sub Log my $sender = FML::Credential->sender; if (defined $fh) { - if ($style eq 'traditional') { + if ($style eq 'fml4_compatible') { print $fh $rdate->{'log_file_style'}, " ", $mesg; print $fh " ($sender)" if defined $sender; print $fh "\n"; @@ -109,7 +113,8 @@ sub Log =head1 SEE ALSO L<FML::Date>, -L<FML::Config> +L<FML::Config>, +L<FML::Credential>, =head1 AUTHOR |