version 1.1, 2005/12/21 18:04:06 |
version 1.6, 2008/09/13 00:07:59 |
|
|
#!/bin/sh |
#!/bin/sh |
# $RedRiver$ |
# $RedRiver: perl_to_chroot,v 1.5 2006/06/29 18:44:19 andrew Exp $ |
|
|
PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'` |
PERLLIBS=`ldd /usr/bin/perl | cut -c 41- | grep ^/` |
CHROOT=/home/andrew/www |
CHROOT=${CHROOT:=/var/www} |
|
|
for f in ${PERLLIBS} /usr/libdata/perl5/ /usr/local/libdata/perl5; do |
for f in /usr/bin/perl \ |
DESTDIR=${CHROOT}`dirname ${f}` |
${PERLLIBS} \ |
|
/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 |
|
|