[Comm] Re: Перенос юзеров со Спринга в Мастер

Alexey Tourbin
1970-01-01T00:00:02Z

[-- Attachment #1: Type: text/plain, Size: 924 bytes --]

On Fri, Jan 24, 2003 at 10:07:48AM +0300, Alex Borisov wrote:
> можно например вот-так:
> --------------
>
> #!/usr/bin/perl
>
> # Переносим пользователей с сохранением их старых паролей
> # с одного сервера на другой. На старом сервере был единый
> # файл shadow, на новом исользуется система TCB
> #
> # в текущем каталоге должны быть файлы passwd и shadow
> #
>
> open(PASS, "<./passwd") || die "Файл не найден";
> while (<PASS>)
> {
> ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
> print "$login $name\n";
> system("/usr/sbin/useradd $login -u '$uid' -c '$name' -d '$home_dir'");
> system("cat ./shadow | grep $login > /etc/tcb/$login/shadow");
>
> }
> close(PASS);

Друзья, дело-то не в файлах (и не в их количестве), а в правах доступа
на них. Поэтому нужно использовать стандартные утилиты перехода на tcb.

--
WBR, Alexey Tourbin
BIOZAK Ltd., Russia

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]