From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Content-Type: Multipart/Mixed; charset="koi8-r"; boundary="------------Boundary-00=_2FKAG588SZM4Z8EP8VA9" From: Sergei To: sisyphus@altlinux.ru Subject: Re: [sisyphus] (no subject) Date: Sat, 2 Jun 2001 11:21:02 +0400 X-Mailer: KMail [version 1.2] References: <200106010929.PAA01182@gem.dpt.ustu.ru> <01060201165400.02876@pif.b5.mephi.ru> <20010602093556.A7532@voins.local> In-Reply-To: <20010602093556.A7532@voins.local> MIME-Version: 1.0 Message-Id: <01060211210200.20184@pif.b5.mephi.ru> Sender: sisyphus-admin@altlinux.ru Errors-To: sisyphus-admin@altlinux.ru X-BeenThere: sisyphus@altlinux.ru X-Mailman-Version: 2.0 Precedence: bulk Reply-To: sisyphus@altlinux.ru List-Help: List-Post: List-Subscribe: , List-Id: List-Unsubscribe: , List-Archive: Archived-At: List-Archive: --------------Boundary-00=_2FKAG588SZM4Z8EP8VA9 Content-Type: text/plain; charset="koi8-r" Content-Transfer-Encoding: 8bit 2 Июнь 2001 09:35 Вы написали: > Sergei wrote > > > У Вас откуда-то осталась старая библиотека libwraster.so. Находится > > > она в /usr/lib. Если не сложно пришлите мне результат > > > rpm -qf /usr/lib/libwraster.so > > У меня такое обнаружилось, когда я обновлялся в первый раз Сизифом. В > > результате слетел rpm (точнее его база данных). И для меня ответ по > > /usr/lib/libwraster.so один - "не принадлежит ни одному пакету". > Я как раз Ваш случай и вспоминал :) > > Я не могу понять как оно могло получиться. Ине доступны 4 машины под > Spring->Sisyphus. На всех работают под WindowMakerом и обновления > ставятся куда чаще чем они появляются в Sisyphus. И ничего похожего я > не наблюдал. > > Может быть что-то было собрано из исходников самостоятельно? (минуя rpm) Нет, просто до этого стоял rpm-4.0.4 от RedHat и при первом обновлении вместо него встал rpm-3.0.6 от Вас. После чего вся база данных просто испарилась (единственая команда, которая работала - это rpm --initdb). В догонку, тут сейчас наваял скрипт, разыскивающий файлы, не относящиеся к какому-либо пакету. Посмотрите, может понравится (в аттаче). -- С уважением, Епифанов Сергей --------------Boundary-00=_2FKAG588SZM4Z8EP8VA9 Content-Type: text/plain; charset="koi8-r"; name="libs" Content-Transfer-Encoding: 8bit Content-Disposition: attachment; filename="libs" #!/usr/bin/perl =begin 25.05.2001 Version 0.1. Searching for files not owned to any package Written by Epiphanov Sergei 02.06.2001 Version 0.2. Changed the idea of the program. Added recursive flag. =cut use RPM::Database; $RPM=new RPM::Database; if (! defined @ARGV) { print "Usage:\n"; print " libsview [-R] dir\n\n"; print " -R - recursive\n"; exit; } if ($ARGV[0] eq "-R") { $Dir=$ARGV[1]; $Recursive=1; } else { $Dir=$ARGV[0]; $Recursive=0; } $Dir=~s |\/+$||; print "Starting search from $Dir.\n"; open (FILEOK,">fileok.txt"); open (FILERR,">filerr.txt"); open (STDERR,">ERROR.txt"); $SIG{INT}=\&INT_SIG; `renice 5 $$`; SearchDir ($Dir); close (FILEOK); close (FILERR); sub SearchDir { my $Dir=shift; local *DIRLOOK; opendir (DIRLOOK,$Dir) or die "Can't open ${Dir}!"; while (defined ($filename=readdir(DIRLOOK))) { $Cur="$Dir/$filename"; next if $filename=~/^\.\.?$/; if (defined ($package=$RPM->find_by_file($Cur))) { print FILEOK "$Cur is in ". $package->{"name"}."-" .$package->{"version"} . "\n"; } else { print FILERR "No package for $Cur\n"; } if ( -d $Cur && -r $Cur && $Recursive==1) { SearchDir ($Cur); } } closedir (DIRLOOK); } sub INT_SIG { close (FILEOK); close (FILERR); exit; } --------------Boundary-00=_2FKAG588SZM4Z8EP8VA9--