diff options
| author | fukachan <fukachan> | 2004-04-28 04:10:35 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-28 04:10:35 +0000 |
| commit | 8cf3342dc0773e309f80a73057d77cfd1bbd1569 (patch) | |
| tree | 91729d6396ceb89d3ae31dcf477f175f833e7c72 /fml/lib/FML/Command/Admin/deladmin.pm | |
| parent | 483bef87b2fbaef948d041c103d3d502564265ce (diff) | |
| download | fml8-8cf3342dc0773e309f80a73057d77cfd1bbd1569.tar.gz fml8-8cf3342dc0773e309f80a73057d77cfd1bbd1569.tar.bz2 fml8-8cf3342dc0773e309f80a73057d77cfd1bbd1569.zip | |
implement verify_syntax() using FML::Command::Syntax
Diffstat (limited to 'fml/lib/FML/Command/Admin/deladmin.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/deladmin.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Admin/deladmin.pm b/fml/lib/FML/Command/Admin/deladmin.pm index 247155e2..1f8ec128 100644 --- a/fml/lib/FML/Command/Admin/deladmin.pm +++ b/fml/lib/FML/Command/Admin/deladmin.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: deladmin.pm,v 1.16 2004/01/02 14:45:04 fukachan Exp $ +# $FML: deladmin.pm,v 1.17 2004/02/15 04:38:28 fukachan Exp $ # package FML::Command::Admin::deladmin; @@ -59,6 +59,20 @@ sub need_lock { 1;} sub lock_channel { return 'command_serialize';} +# Descriptions: verify the syntax command string. +# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Side Effects: none +# Return Value: NUM(1 or 0) +sub verify_syntax +{ + my ($self, $curproc, $command_args) = @_; + + use FML::Command::Syntax; + push(@ISA, qw(FML::Command::Syntax)); + $self->check_syntax_address_handler($curproc, $command_args); +} + + # Descriptions: remove the specified remote administrator. # Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) # Side Effects: update $member_map $recipient_map |