From ae3483a7e899f48db8defb5ea620c9ed8f1ddc5e Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 10 Mar 2001 09:49:21 +0000
Subject: s/traditional/fml4_compatible/ add comments on FML::Config and
 FML::Credential

---
 fml/lib/FML/Log.pm | 11 ++++++++---
 1 file 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
 
-- 
cgit v1.2.1