#!/bin/bash

# riipuu - näytä rpm-pohjaisessa koneessa mistä tiedostoista ja paketeista
# parametrina annettua komentoa vastaava binääri riippuu; 2004-07-07, LTu

ldd `which $1` | \
perl -ane 'push(@a, $F[2]); END { printf "%-27s <- %s", $_, `rpm -qf $_` for @a }' | \
sort -k 3,3

# todo: 
#
# 1) symlinkkien kautta käynnistettävät isommast sovellukset -  esim.
# which java | xargs readlink | xargs readlink | xargs rpm -qf
#    tai vaikkapa jotani tyyliin
# p=`which $1`
# while [ -h $p ]; do
#   ls -l $p
#   p=`readlink $p`
# done
# ls -l $p 
#
# 2) vipuja, helppejä, ...