37 lines
758 B
Bash
37 lines
758 B
Bash
|
#!/bin/sh
|
||
|
|
#
|
||
|
|
# $Id: $
|
||
|
|
#
|
||
|
|
# Search for required Perl modules, translate to required package names.
|
||
|
|
#
|
||
|
|
export "LANG=C"
|
||
|
|
export "LC_ALL=C"
|
||
|
|
set -o nounset
|
||
|
|
set -o errexit
|
||
|
|
|
||
|
|
req_modules="required-perl-modules.txt"
|
||
|
|
req_deb="required-deb-packages.txt"
|
||
|
|
req_rpm="required-rpm-packages.txt"
|
||
|
|
|
||
|
|
find "${HUHU_DIR}" -type f -name '*.p[lm]' -exec \
|
||
|
|
gawk -F '[[:space:]();]+' '
|
||
|
|
$1 == "use" && $2 ~ /::/ && $2 !~ /^MOD::/ { print $2 }
|
||
|
|
' {} \+ |
|
||
|
|
sort -u > "${req_modules}"
|
||
|
|
|
||
|
|
if [ -f /etc/debian_version ]; then
|
||
|
|
xargs locate < "${req_modules}" |
|
||
|
|
sort -u |
|
||
|
|
xargs -n1 dpkg -S |
|
||
|
|
sed -ne 's/: .*//p' |
|
||
|
|
sort -u > "${req_deb}"
|
||
|
|
elif [ -f /etc/redhat-release ]; then
|
||
|
|
xargs locate < "${req_modules}" |
|
||
|
|
sort -u |
|
||
|
|
xargs rpm -qf |
|
||
|
|
sed -e '/ /d' |
|
||
|
|
sort -u > "${req_rpm}"
|
||
|
|
fi
|
||
|
|
|
||
|
|
|