diff options
| author | fukachan <fukachan> | 2005-12-18 12:01:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-18 12:01:08 +0000 |
| commit | e723dd865734cc9cc925e9ca8a96f9ceda073b04 (patch) | |
| tree | 0697c733ac80c9f9d63fc1257d8b032bade63e9a /fml/lib/FML/Command | |
| parent | 81c3bb9a7c10cc108f0b1178e24312844aef5988 (diff) | |
| download | fml8-e723dd865734cc9cc925e9ca8a96f9ceda073b04.tar.gz fml8-e723dd865734cc9cc925e9ca8a96f9ceda073b04.tar.bz2 fml8-e723dd865734cc9cc925e9ca8a96f9ceda073b04.zip | |
pass _confirm_id information to called process.
support "moderate" command.
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/User/confirm.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm index a178acd9..0d1b6514 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.32 2004/04/23 04:10:31 fukachan Exp $ +# $FML: confirm.pm,v 1.33 2004/06/26 11:47:57 fukachan Exp $ # package FML::Command::User::confirm; @@ -124,6 +124,7 @@ sub process if ($found = $confirm->find($id)) { # if request is found unless ($confirm->is_expired($id, $expire_limit)) { my $address = $confirm->get_address($id); + $command_args->{ _confirm_id } = $id; $self->_switch_command($class, $address, $curproc, $command_args); } else { # if requset is expired @@ -165,8 +166,9 @@ sub _switch_command if ($class eq 'subscribe' || $class eq 'unsubscribe' || $class eq 'chaddr' || - $class eq 'on' || - $class eq 'off') { + $class eq 'on' || + $class eq 'off' || + $class eq 'moderate') { $command_args->{ command_data } = $address; $command_args->{ command_mode } = 'Admin'; $command_args->{ override_need_no_lock } = 1; # already locked |