diff options
| author | fukachan <fukachan> | 2006-03-05 08:08:36 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-03-05 08:08:36 +0000 |
| commit | 6940f468f92ec8044c1982a4f7b12b4f4637a418 (patch) | |
| tree | 507b8dad59bc6b405872ddebb274cdfed52eba27 /fml/lib/FML/Command/User/subscribe.pm | |
| parent | 5ebcb0b781221838b47e8492d1e057b093490604 (diff) | |
| download | fml8-6940f468f92ec8044c1982a4f7b12b4f4637a418.tar.gz fml8-6940f468f92ec8044c1982a4f7b12b4f4637a418.tar.bz2 fml8-6940f468f92ec8044c1982a4f7b12b4f4637a418.zip | |
changed to command_context object based.
Diffstat (limited to 'fml/lib/FML/Command/User/subscribe.pm')
| -rw-r--r-- | fml/lib/FML/Command/User/subscribe.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm index f663010b..e69b781f 100644 --- a/fml/lib/FML/Command/User/subscribe.pm +++ b/fml/lib/FML/Command/User/subscribe.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: subscribe.pm,v 1.36 2006/01/08 03:06:59 fukachan Exp $ +# $FML: subscribe.pm,v 1.37 2006/03/04 13:48:29 fukachan Exp $ # package FML::Command::User::subscribe; @@ -83,7 +83,7 @@ sub process my $recipient_map = $config->{ primary_recipient_map }; my $cache_dir = $config->{ db_dir }; my $keyword = $config->{ confirm_command_prefix }; - my $command = $command_context->{ command }; + my $command = $command_context->get_clean_command(); my $options = $command_context->get_options(); my $cui_options = $curproc->command_line_cui_specific_options() || {}; my $address = $cui_options->{ 'send-to' } || $cred->sender(); |