define log_{enable,disable}() to enable/disable logging system.

1 files changed, 42 insertions, 1 deletions

diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 8f4c5b6d..b9fc9498 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Kernel.pm,v 1.277 2006/04/05 03:23:47 fukachan Exp $
+# $FML: Kernel.pm,v 1.278 2006/04/09 15:16:54 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -1436,6 +1436,8 @@ sub log_message_init
     else {
 	$curproc->logerror("fail to create log_computer_output_engine object");
     }
+
+    $curproc->log_enable();
 }
 
 
@@ -1475,6 +1477,38 @@ sub _log_message_print
 }
 
 
+=head2 log_enable
+
+=head2 log_disable
+
+=cut
+
+
+# Descriptions: enable logging system
+#    Arguments: OBJ($curproc)
+# Side Effects: update $curproc
+# Return Value: none
+sub log_enable
+{
+    my ($curproc) = @_;
+    my $pcb = $curproc->pcb();
+    $pcb->set("log", "enabled", "yes");
+}
+
+
+# Descriptions: disable logging system
+#    Arguments: OBJ($curproc)
+# Side Effects: update $curproc
+# Return Value: none
+sub log_disable
+{
+    my ($curproc) = @_;
+    my $pcb = $curproc->pcb();
+    $pcb->set("log", "enabled", "no");
+}
+
+
+
 =head2 log_message($msg, $msg_args)
 
 ?
@@ -1504,6 +1538,13 @@ sub log_message
     my $at_function = $msg_args->{ caller }->[ 1 ];
     my $at_line     = $msg_args->{ caller }->[ 2 ];
 
+    # logging system enabled or disabled.
+    my $pcb = $curproc->pcb();
+    my $is_log_system_runnig = $pcb->get("log", "enabled");
+    if ($is_log_system_runnig eq 'no') {
+	return;
+    }
+
     if ($level eq 'info') {
 	Log($msg);
     }