[BACK]Return to perl_to_chroot CVS log [TXT][DIR] Up to [local] / openbsd / fill_chroot
File: [local] / openbsd / fill_chroot / Attic / perl_to_chroot (download)

Revision 1.3, Wed Dec 21 19:14:12 2005 UTC (18 years, 6 months ago) by andrew
Branch: MAIN
Changes since 1.2: +2 -2 lines 

Add a wrapper script and set the default chroot to /var/www

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

PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
CHROOT=${CHROOT:=/var/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