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

[aek]

Hello Alex,

Friday, January 24, 2003, 2:07:48 PM, you wrote:

AB> #!/usr/bin/perl

AB> # Переносим пользователей с сохранением их старых паролей
AB> # с одного сервера на другой. На старом сервере был единый 
AB> # файл shadow, на новом исользуется система TCB
AB> #
AB> # в текущем каталоге должны быть файлы passwd и shadow
AB> # 

AB> open(PASS, "<./passwd") || die "Файл не найден";
AB> while (<PASS>)
AB>     {
AB>     ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
AB>     print "$login $name\n";
AB>     system("/usr/sbin/useradd $login -u '$uid' -c '$name' -d '$home_dir'"); 
AB>     system("cat ./shadow | grep $login > /etc/tcb/$login/shadow");
    
AB>     }
AB> close(PASS);   

Огромное спасибо, сэкономили мне кучу времени, я бы этот скрипт писал
на шеле. Немного добавил (в строчку с useradd   -g '$gid'
-s /bin/false ) и все сработало как надо!!!

_СПАСИБО_!!!!

-- 
Всех благ!
Анатолий