summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Process
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-10-17 14:00:51 +0000
committerfukachan <fukachan>2003-10-17 14:00:51 +0000
commitfcc43baac34aca4a78d6e0148bac05e615b33290 (patch)
tree46b9894a663e657b8e125a8da9d5261804da99a0 /fml/lib/FML/Process
parent4be5a9c61d22bd96166cbeec2350cfdc6b8382cb (diff)
downloadfml8-fcc43baac34aca4a78d6e0148bac05e615b33290.tar.gz
fml8-fcc43baac34aca4a78d6e0148bac05e615b33290.tar.bz2
fml8-fcc43baac34aca4a78d6e0148bac05e615b33290.zip
command_prompt -> command_mail_reply_prompt
Diffstat (limited to 'fml/lib/FML/Process')
-rw-r--r--fml/lib/FML/Process/Command.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index eb8278da..c7a70506 100644
--- a/fml/lib/FML/Process/Command.pm
+++ b/fml/lib/FML/Process/Command.pm
@@ -3,7 +3,7 @@
# Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
# All rights reserved.
#
-# $FML: Command.pm,v 1.88 2003/08/23 07:24:46 fukachan Exp $
+# $FML: Command.pm,v 1.89 2003/08/29 15:34:06 fukachan Exp $
#
package FML::Process::Command;
@@ -318,7 +318,7 @@ sub _config_permit_command
my ($curproc, $args, $level, $opts) = @_;
my $config = $curproc->config();
my $cred = $curproc->{ credential }; # user credential
- my $prompt = $config->{ command_prompt } || '>>>';
+ my $prompt = $config->{ command_mail_reply_prompt } || '>>>';
my $comname = $opts->{ comname };
my $command = $opts->{ command };
@@ -355,7 +355,7 @@ sub _is_safe_syntax
{
my ($curproc, $args, $status, $cominfo) = @_;
my $config = $curproc->config();
- my $prompt = $config->{ command_prompt } || '>>>';
+ my $prompt = $config->{ command_mail_reply_prompt } || '>>>';
my $level = $status->{ level };
my $command = $cominfo->{ command };
@@ -737,7 +737,7 @@ sub __stop_here
{
my ($curproc, $args, $status, $cominfo, $orig_command) = @_;
my $config = $curproc->config();
- my $prompt = $config->{ command_prompt } || '>>>';
+ my $prompt = $config->{ command_mail_reply_prompt } || '>>>';
my $key = $status->{ _stop_reason_key };
my $str = $status->{ _stop_reason_str };
@@ -767,7 +767,7 @@ sub _evaluate_command_lines
my $config = $curproc->config();
my $ml_name = $config->{ ml_name };
my $argv = $curproc->command_line_argv();
- my $prompt = $config->{ command_prompt } || '>>>';
+ my $prompt = $config->{ command_mail_reply_prompt } || '>>>';
my $mode = 'unknown';
my $rbody = $curproc->incoming_message_body();
my $msg = $rbody->find_first_plaintext_message();