#!/bin/sh
# $RedRiver: perl_to_chroot,v 1.1 2005/12/21 18:04:06 andrew Exp $

PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
CHROOT=${CHROOT:=/home/andrew/www}

for f in ${PERLLIBS} /usr/libdata/perl5 /usr/local/libdata/perl5; do
  DESTDIR=${CHROOT}`dirname ${f}`

  if [ ! -d ${DESTDIR} ]; then
    echo mkdir -p ${DESTDIR}
    mkdir -p ${DESTDIR}
  fi

  RECURSE=
  if [ -d ${f} ]; then
    RECURSE=-r
  fi

  echo cp ${RECURSE} ${f} ${DESTDIR}
  cp ${RECURSE} ${f} ${DESTDIR}

done