diff options
| author | fukachan <fukachan> | 2003-09-13 09:09:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-13 09:09:48 +0000 |
| commit | 0704b82a141d423666ecaed30247355670b1f265 (patch) | |
| tree | a4cb2da4b82149ad608c8739aa2604ca2230392e /fml/lib | |
| parent | 45e5b8efbd225c060172c0a54a7eeffa9731ef53 (diff) | |
| download | fml8-0704b82a141d423666ecaed30247355670b1f265.tar.gz fml8-0704b82a141d423666ecaed30247355670b1f265.tar.bz2 fml8-0704b82a141d423666ecaed30247355670b1f265.zip | |
implement ui_message().
change label of log() from ok to info.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index de47e9ba..8e28b023 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.177 2003/08/30 00:13:42 fukachan Exp $ +# $FML: Kernel.pm,v 1.178 2003/09/05 09:03:16 fukachan Exp $ # package FML::Process::Kernel; @@ -1241,7 +1241,7 @@ sub log $curproc->log_message($msg, { msg_args => $msg_args, - level => 'ok', + level => 'info', caller => \@c, }); } @@ -1281,6 +1281,25 @@ sub logerror } +# Descriptions: informational message CUI shows into STDERR. +# Arguments: OBJ($curproc) STR($msg) HASH_REF($msg_args) +# Side Effects: none +# Return Value: none +sub ui_message +{ + my ($curproc, $msg, $msg_args) = @_; + my (@c) = caller; + + print STDERR $msg, "\n"; + + $curproc->log_message($msg, { + msg_args => $msg_args, + level => 'info', + caller => \@c, + }); +} + + =head2 reply_message($msg) C<reply_message($msg)> holds message C<$msg> sent back to the mail |