diff options
| author | fukachan <fukachan> | 2001-10-10 10:08:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-10 10:08:06 +0000 |
| commit | 6dbf79f4f8b4473e8eb7da4e75e2dcce6780ed39 (patch) | |
| tree | 687cb9c5fe4636a9166c6a11e5ef56d405c866f5 /fml/lib/FML/Process/Command.pm | |
| parent | 6f3e0dd06672c507fd53ae910d4ef2aeb66490e7 (diff) | |
| download | fml8-6dbf79f4f8b4473e8eb7da4e75e2dcce6780ed39.tar.gz fml8-6dbf79f4f8b4473e8eb7da4e75e2dcce6780ed39.tar.bz2 fml8-6dbf79f4f8b4473e8eb7da4e75e2dcce6780ed39.zip | |
make command get,mget,help work
Diffstat (limited to 'fml/lib/FML/Process/Command.pm')
| -rw-r--r-- | fml/lib/FML/Process/Command.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm index 69d9fb3a..4e9f1225 100644 --- a/fml/lib/FML/Process/Command.pm +++ b/fml/lib/FML/Process/Command.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Command.pm,v 1.11 2001/10/08 20:30:06 fukachan Exp $ +# $FML: Command.pm,v 1.12 2001/10/10 03:12:51 fukachan Exp $ # package FML::Process::Command; @@ -136,6 +136,9 @@ sub _evaluate_command my $argv = $config->{ main_cf }->{ ARGV }; my $body = $curproc->{ incoming_message }->{ body }->data_in_body_part; my @body = split(/\n/, $body); + my $prompt = $config->{ command_prompt } || '>>>'; + + $curproc->reply_message("result for your command requests follows:\n"); COMMAND: for my $command (@body) { @@ -160,6 +163,7 @@ sub _evaluate_command use FML::Command; my $obj = new FML::Command; if (defined $obj) { + $curproc->reply_message("$prompt $command"); eval q{ $obj->$comname($curproc, $optargs); }; |