[Comm] Добавление пользователя в группу

[Slava Dubrovskiy]

Olvin пишет:

> Для сабжа в ALM2.4 сделал скриптики:
>
> #!/bin/sh
> #uatg
> usermod -G `id $1 | ~/bin/uatg.pl $2` $1
>
> #!/usr/bin/perl
> #uatg.pl
> $a=<STDIN>;
> $a =~ s/\S+\s+\S+\s+//g;
> $a =~ s/[^\=]+\=//g;
> $a=~s/\d+\(//g;
> $a=~s/\)//g;
> $a=~s/[\n\r]+//g;
> @A = split(/\,/,$a);
> foreach $a(@A){
>  push(@B,$a);
> }
> push(@B,$ARGV[0]);
> $,=','; print @B;
>
> Думаю, что есть более прямой путь. Какой?
>
Честно говоря не силен в перле. Как я понял это добавляет и удаляет
пользователя из группы? Если да, то я пользуюсь groupkit.
#apt-get install groupkit
#rpm -ql groupkit
/usr/sbin/addusertogroup
/usr/sbin/deluserfromgroup

-- 
С уважением,
Дубровский Вячеслав.