4 # Copyright (c) 2003 - Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @args = split /\s+/, uc $line;
14 my @group = @{$self->user->group};
16 foreach $group (@args) {
17 @group = grep $_ ne $group, @group;
18 push @out, $self->msg('leave', $group);
21 $self->user->group(\@group);