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