version 1.1, 2005/12/21 18:04:06 |
version 1.8, 2008/10/21 20:08:31 |
|
|
#!/bin/sh |
#!/bin/sh |
# $RedRiver$ |
# $RedRiver: perl_to_chroot,v 1.7 2008/09/16 22:14:04 andrew Exp $ |
|
|
PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'` |
CHROOT=${CHROOT:=/var/www} |
CHROOT=/home/andrew/www |
|
|
|
for f in ${PERLLIBS} /usr/libdata/perl5/ /usr/local/libdata/perl5; do |
for f in `find_depends /usr/bin/perl` \ |
DESTDIR=${CHROOT}`dirname ${f}` |
/usr/libdata/perl5 \ |
|
/usr/local/libdata/perl5 \ |
|
; do |
|
|
if [ ! -d ${DESTDIR} ]; then |
echo pax -r -w -L -p e ${f} ${CHROOT} |
echo mkdir -p ${DESTDIR} |
pax -r -w -L -p e ${f} ${CHROOT} |
mkdir -p ${DESTDIR} |
|
fi |
|
|
|
RECURSE= |
|
if [ -d ${f} ]; then |
|
RECURSE=-r |
|
fi |
|
|
|
echo cp ${RECURSE} ${f} ${DESTDIR} |
|
cp ${RECURSE} ${f} ${DESTDIR} |
|
|
|
done |
done |
|
|