mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
25 lines
409 B
Perl
25 lines
409 B
Perl
#
|
|
# join a group (note this applies only to users)
|
|
#
|
|
# Copyright (c) 2003 - Dirk Koopman G1TLH
|
|
#
|
|
#
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
my @args = split /\s+/, uc $line;
|
|
my $group;
|
|
my @out;
|
|
|
|
my @group = @{$self->user->group};
|
|
|
|
foreach $group (@args) {
|
|
push @group, $group unless grep $_ eq $group, @group;
|
|
push @out, $self->msg('join', $group);
|
|
}
|
|
|
|
$self->user->group(\@group);
|
|
$self->user->put;
|
|
|
|
return (1, @out);
|