From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@turbinal.org>
Date: Fri, 24 Jan 2003 10:09:43 +0300
From: Alexey Tourbin <at@turbinal.org>
To: community@altlinux.ru
Message-ID: <20030124070943.GA31358@solemn.turbinal.org>
Mail-Followup-To: community@altlinux.ru
References: <18482.030124@taxpol.krasnoyarsk.su> <200301240939.13265.mylinux02@mail.ru> <553032987.20030124100748@mail.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="ibTvN161/egqYuK8"
Content-Disposition: inline
In-Reply-To: <553032987.20030124100748@mail.ru>
Subject: [Comm] Re: =?koi8-r?B?8MXSxc7P0yDA2sXSz9cg088g?=
 =?koi8-r?B?89DSyc7HwSDXIO3B09TF0g==?=
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: community@altlinux.ru
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/20030124070943.GA31358@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

--ibTvN161/egqYuK8
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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

--ibTvN161/egqYuK8
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+MOa3fBKgtDjnu0YRApweAJ9a3rk5jKq62zAPzaA8uNkoJYXVIgCcCAGH
PmMQry1TPPaySjlm4mQ8nM4=
=o3Ja
-----END PGP SIGNATURE-----

--ibTvN161/egqYuK8--