FreeSource - AltLinux/Sisyphus/��

2005-11-20 02:33:55

�� /Alt Linux / Sisyphus / �� 2005-11-20 02:33:55 � 2005-11-20 19:18:53

��:

�� altlinux.org. �� freesource.info ��.

echo «Warning!!! I may not destroy dirs with this long list: $LIST»

find $PARAM -maxdepth 1 -type d -exec $0 --check-dir '{}' \; 2>&1 | $0 --convert-report

��:

echo «Warning!!! I may not destroy dirs with thi

s long list: $LIST»

find $PARAM -maxdepth 1 -type d -exec $0 --check-dir '{}' \; 2>&1 | $0 -

-convert-report

2005-11-19 23:30:12

�� /Alt Linux / Sisyphus / �� 2005-11-19 23:30:12 � 2005-11-20 02:33:55

��:

# Dimitry Ketov <dketov@avalon.ru>
# Dimitry Ketov <dketov@avalon.ru>
��
# Dimitry Ketov <dketov@avalon.ru>
for libpkg in `rpm -qa --queryformat '%{name}\n' | grep ^lib`

if libs=`rpm -ql $libpkg | grep 'lib/lib.*\.so'`

rpm -q --whatrequires $libpkg >/dev/null 2>&1 || for lib in $libs do rpm -q --whatrequires `basename $lib` >/dev/null 2>&1 && break done ||
echo $libpkg

��:

��
rpm -qa | grep ^lib| sed s'/-[0–9].*$//'| while read pkg; do

mbdead=`rpm -q --whatrequires $pkg 2>&1 | grep ��| cut -s -d' ' -f 8`
if [ -n $mbdead ]; then

if rpm -e --test $mbdead > /dev/null 2>&1; then

echo $mbdead": is not required for any package";

fi;

2005-11-19 23:26:34

�� /Alt Linux / Sisyphus / �� 2005-11-19 23:26:34 � 2005-11-19 23:30:12

��:

��
~/bin/cleanlib
rpm -qa | grep ^lib| sed s'/-[0–9].*$//'| while read pkg; do

mbdead=`rpm -q --whatrequires $pkg 2>&1 | grep ��| cut -s -d' ' -f 8`
if [ -n $mbdead ]; then

if rpm -e --test $mbdead > /dev/null 2>&1; then

echo $mbdead": is not required for any package";

fi;

2005-11-19 11:43:44

�� /Alt Linux / Sisyphus / �� 2005-11-19 11:43:44 � 2005-11-19 23:26:34

��:

~/bin/check-orphaned-dir.sh
# Tests dirs from current directory for
# orphaned dirs
# Vitaly Lipatov <lav@etersoft.ru>, 2004
#
#
# ��
# � �� .
# �� , ��
# ��
# �� .
# ��! �� root ��
# �� , ��
# �� .
# �� :
# – �� , �� 5 � ��
# – �� rmdir
# – ��
# Delete an empty dirs if have root permission
remove_empty_dirs()

RES=`find "$1" ! -type d | wc -l`
if [ $RES = “0” ]
then

echo "!! Empty_unusable_dir:_$1"
if [ "$UID" = “0” ]
then

LIST=`find "$1" -type d | tac`
if [ "$RES" -lt “5” ]
then

rmdir $LIST
echo “DONE”

else

echo «Warning! I may not destroy dirs with thi

s long list: $LIST»

### main block
if [ "$1" == “check-dir” ]
then

rpm -qf "$2" >/dev/null || remove_empty_dirs "$2"
elif [ "$1" == “convert-report” ]
then

sort | cut -d “ " -f 3

else

PARAM="$1"
test -z "$PARAM" && PARAM=`pwd`
# Check
if [ `echo $PARAM | wc -c` -lt “4” ]
then

echo «Warning! I may not work with such root dirs as $PARAM»
exit 1

fi
echo «Report for dir $PARAM:»
find $PARAM -maxdepth 1 -type d -exec $0 --check-dir '{}' \; 2>&1 | $0 -

-convert-report
fi
exit 0

2005-11-18 21:10:09

�� /Alt Linux / Sisyphus / �� 2005-11-18 21:10:09 � 2005-11-19 11:43:44

��: