version 1.1, 2005/12/21 18:04:06 |
version 1.5, 2006/06/29 19:44:19 |
|
|
#!/bin/sh |
#!/bin/sh |
# $RedRiver$ |
# $RedRiver: perl_to_chroot,v 1.4 2006/01/16 21:03:12 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 ${PERLLIBS} /usr/libdata/perl5 /usr/local/libdata/perl5; do |
DESTDIR=${CHROOT}`dirname ${f}` |
|
|
|
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 |
|
|