diff options
| author | fukachan <fukachan> | 2004-04-22 10:37:35 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-22 10:37:35 +0000 |
| commit | e370d5b4027ba345c789b582dbc1ed3de282c6f8 (patch) | |
| tree | de05c98f21a62be4a92c44855f3c20756b2aebac /fml/lib/FML/Command/User | |
| parent | e0f377628fb700df206616c09e2619274f044b0f (diff) | |
| download | fml8-e370d5b4027ba345c789b582dbc1ed3de282c6f8.tar.gz fml8-e370d5b4027ba345c789b582dbc1ed3de282c6f8.tar.bz2 fml8-e370d5b4027ba345c789b582dbc1ed3de282c6f8.zip | |
when unsubscribe command, stop the current process since
no more processing is required.
XXX ? hmm, wrong in some cases e.g. unsubscribe + guide.
XXX but ignore it ;-)
Diffstat (limited to 'fml/lib/FML/Command/User')
| -rw-r--r-- | fml/lib/FML/Command/User/confirm.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm index 67e9a804..ac47d8de 100644 --- a/fml/lib/FML/Command/User/confirm.pm +++ b/fml/lib/FML/Command/User/confirm.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: confirm.pm,v 1.29 2004/02/15 04:38:30 fukachan Exp $ +# $FML: confirm.pm,v 1.30 2004/02/24 14:36:52 fukachan Exp $ # package FML::Command::User::confirm; @@ -198,6 +198,10 @@ sub _switch_command } } + if ($class eq 'unsubscribe') { + $curproc->command_context_set_normal_stop(); + $curproc->log("need no more command processing."); + } } |