mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
25 lines
364 B
Perl
25 lines
364 B
Perl
#
|
|
# leave a group
|
|
#
|
|
# Copyright (c) 2003 - Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
my @args = split /\s+/, uc $line;
|
|
my $group;
|
|
my @out;
|
|
|
|
my @group = @{$self->user->group};
|
|
|
|
foreach $group (@args) {
|
|
@group = grep $_ ne $group, @group;
|
|
push @out, $self->msg('leave', $group);
|
|
}
|
|
|
|
$self->user->group(\@group);
|
|
$self->user->put;
|
|
|
|
return (1, @out);
|