diff options
Diffstat (limited to 'dev-lang/perl/files/perl-cleaner')
| -rwxr-xr-x | dev-lang/perl/files/perl-cleaner | 324 |
1 files changed, 158 insertions, 166 deletions
diff --git a/dev-lang/perl/files/perl-cleaner b/dev-lang/perl/files/perl-cleaner index 1b29ac82ffc5..abdc4783872c 100755 --- a/dev-lang/perl/files/perl-cleaner +++ b/dev-lang/perl/files/perl-cleaner @@ -1,80 +1,92 @@ #!/bin/bash + +# sort of a changelog if you want to call it that... + +# version 1.2 - swtaylor gave some good pointers on making the tmp files, as well as reminding me of grep's -f functionality :) +# version 1.1 - Mr. Bones gave a lot of good input on cleaning up the script +# Version 1 - stuff + # First and foremost - make sure we have a perl to work with... -PERL=`which perl` +PERL=$(which perl) if [ "${PERL}x" == "x" ]; then echo "NO PERL INSTALLED!! (at least not in your path)" exit fi -eval `perl '-V:version'` +eval $(perl '-V:version') PERL_VERSION=${version} +TMPDIR=${TMPDIR:-/tmp} -TMPDIR="/tmp" -PKGDIR="/var/db/pkg" -DATESTAMP=`date +"%Y%m%d%H%M%S"` -LOG="${TMPDIR}/perl-cleaner.log.$DATESTAMP" +PKGDIR=$(/usr/bin/portageq vdb_path) +DATESTAMP=$(date +"%Y%m%d%H%M%S") +LOG=$(mktemp ${TMPDIR}/perl-cleaner.log.$DATESTAMP.XXXXXXXXXX) +PAGER=${PAGER:-more} + +# Set up our temporary files +MODULES_LIST=$(mktemp ${TMPDIR}/modules.list.XXXXXXXXXX) +EBUILDS_PREINSTALL=$(mktemp ${TMPDIR}/ebuilds.preinstall.XXXXXXXXXX) +EBUILDS_ORDERED=$(mktemp ${TMPDIR}/ebuilds.ordered.XXXXXXXXXX) +EBUILDS_REINSTALL=$(mktemp ${TMPDIR}/ebuilds.reinstall.XXXXXXXXXX) ASK="" if [ ! -z $2 ]; then - ASK=Y + ASK="--ask" fi -# Set up our temporary files -function cleanrun() { -for FILE in modules.list ebuilds.preinstall ebuilds.ordered ebuilds.reinstall ; do - -if [ -f $TMPDIR/$FILE ]; then - cp /dev/null $TMPDIR/$FILE -else - touch $TMPDIR/$FILE -fi - -done -} function postclean { -for FILE in modules.list ebuilds.preinstall ebuilds.ordered ebuilds.reinstall; do + for FILE in ${MODULES_LIST} ${EBUILDS_PREINSTALL} ${EBUILDS_ORDERED} ${EBUILDS_REINSTALL}; do -if [ -f $TMPDIR/$FILE ]; then - rm -f $TMPDIR/$FILE -fi + if [ -f $FILE ]; then + rm -f $FILE + fi -done + done -echo "" -echo "For a complete log, please read ${TMPDIR}/perl-cleaner.log.DATESTAMP" -echo "" + if [ -s $LOG ]; then + echo + echo "For a complete log, please read $LOG" + echo + else + if [ -f $LOG ]; then + rm -f $LOG + fi + fi } # This is to clean out the old .ph files generated in our last perl install function ph_clean() { -echo "`date` : Beginning a clean up of .ph files" -echo "`date` : Beginning a clean up of .ph files">>$LOG - -INC=`perl -e 'foreach $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }'` - -echo "Locating ph files for removal" -for DIR in $INC; do - if [ -d $DIR ]; then - for file in `find $DIR -name "*.ph" -type f`; do - if [ ! `echo "$file"|grep $PERL_VERSION` ]; then - echo "`date` : Removing old ph file: $file" - echo "`date` : Removing old ph file: $file">>$LOG - rm $file - fi - done - fi -done + echo "$(date) : Beginning a clean up of .ph files" | tee -a $LOG + + INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }') + + echo "Locating ph files for removal" + for DIR in $INC; do + if [ -d $DIR ]; then + for file in $(find $DIR -name "*.ph" -type f); do + if [ ! $(echo "$file"|grep $PERL_VERSION) ]; then + echo "$(date) : Removing old ph file: $file" | tee -a $LOG + rm $file + fi + done + fi + done + for DIR in $INC; do + for empty in $(find $DIR -type d); do + # Silently remove those dirs that we just emptied + rmdir $empty >/dev/null 2>&1 + done + done } # Generate ph files; this is useful if we've upgraded packages with headers so that perl knows the new info function ph_update() { - echo "`date` : Updating ph files" - echo "`date` : Updating ph files">>$LOG - cd /usr/include; h2ph * sys/* arpa/* netinet/* bits/* security/* asm/* >>$LOG + echo "$(date) : Updating ph files" | tee -a $LOG + cd /usr/include; h2ph * sys/* arpa/* netinet/* bits/* security/* asm/* gnu/* linux/* | tee -a $LOG + cd /usr/include/linux; h2ph * | tee -a $LOG } # Build a list of modules installed under older perls - only valid if the module was an ebuild :) @@ -82,17 +94,19 @@ function module_list() { # Reset INC - INC is dynamically generated, and if we removed any ph # files - and they were the only thing left in a dir - then there's # no sense in revisiting that dir -echo "`date` : Building list of modules for reinstall" -echo "`date` : Building list of modules for reinstall">>$LOG -INC=`perl -e 'foreach $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }'` -echo "Locating modules for reinstall" -for DIR in $INC; do - if [ -d $DIR ]; then - for file in `find $DIR -iname "*.pm" -type f|grep -v "${PERL_VERSION}"`; do - grep -l $file $PKGDIR/*/*/CONTENTS >>$TMPDIR/modules.list - done - fi -done + echo "$(date) : Building list of modules for reinstall" | tee -a $LOG + INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }') + MODFIND=$(mktemp ${TMPDIR}/modules.found.XXXXXXXXXX) + echo "Locating modules for reinstall" + for DIR in $INC; do + if [ -d $DIR ]; then + for file in $(find $DIR -iname "*.pm" -type f|grep -v "${PERL_VERSION}"); do + echo "$file" >>$MODFIND + done + fi + done + grep -f $MODFIND -l $PKGDIR/*/*/CONTENTS >${MODULES_LIST} + rm $MODFIND } # The meat of it - rebuilding the ebuilds @@ -102,103 +116,88 @@ done function ebuild_rebuild() { -echo "`date` : Rebuilding modules: Building list of ebuilds" -echo "`date` : Rebuilding modules: Building list of ebuilds">>$LOG -if [ -s $TMPDIR/modules.list ]; then - for line in `cat $TMPDIR/modules.list|sort -u`; do - echo "$line"|sed -e 's|.*pkg/||' | sed -e 's|/CONTENTS||'|grep -v "dev-lang/perl" >>$TMPDIR/ebuilds.preinstall - done -fi + echo "$(date) : Rebuilding modules: Building list of ebuilds" | tee -a $LOG + if [ -s ${MODULES_LIST} ]; then + for line in $(sort -u ${MODULES_LIST}); do + echo "$line"|sed -e 's|.*pkg/||' -e 's|/CONTENTS||'|grep -v "dev-lang/perl" >>${EBUILDS_PREINSTALL} + done + fi # If they asked for interactive, let them see what will be reinstalled -if [ -s $TMPDIR/ebuild.preinstall ]; then - - if [ ! -z $ASK ]; then - echo "Press Enter to see the list of ebuilds we'll be avaluating" - read key - if [ ! -z $PAGER ]; then - $PAGER $TMPDIR/ebuilds.preinstall - else - more $TMPDIR/ebuilds.preinstall - fi - printf "Continue? (Y/N) " - read ANSWER - if [ `echo "${ANSWER}" | egrep -e "^n|N" ` ]; then - echo "`date` : USER ABORTED REBUILD">>$LOG - exit - fi - fi + if [ -s ${EBUILDS_PREINSTALL} ]; then - for EBUILD in `cat $TMPDIR/ebuilds.preinstall`; do - if emerge --oneshot -p "=$EBUILD"|egrep -q ".*ebuilds.*satisfy"; then - if emerge --oneshot -p ">=$EBUILD"|egrep -q ".*ebuilds.*satisfy"; then - echo "`date` : There are no unmasked ebuilds to satisfy $EBUILD. Skipping" - echo "`date` : There are no unmasked ebuilds to satisfy $EBUILD. Skipping">>$LOG - sleep 2 - else - if [ ! -z $ASK ]; then - printf "${EBUILD} isn't available, but a new version is. Install? (Y/N) " + if [ ! -z $ASK ]; then + echo "Press Enter to see the list of ebuilds we'll be avaluating" + read key + $PAGER ${EBUILDS_PREINSTALL} + printf "Continue? (Y/N) " read ANSWER - if [ `echo "${ANSWER}" | egrep -e "^y|Y" ` ]; then - echo ">=$EBUILD" >> $TMPDIR/ebuilds.ordered - echo "`date` : User chose to install >=${EBUILD}">>$LOG - fi - else - echo ">=$EBUILD" >>$TMPDIR/ebuilds.ordered + if [ $(echo "${ANSWER}" | egrep -e "^n|N" ) ]; then + echo "$(date) : USER ABORTED REBUILD">>$LOG + exit fi fi - else - echo "=$EBUILD">>$TMPDIR/ebuilds.ordered - - fi - done - - if [ -s $TMPDIR/ebuilds.ordered ]; then - if [ ! -z $ASK ]; then - echo "Press Enter to see the final list of ebuilds to install" - read key - if [ ! -z $PAGER ]; then - $PAGER $TMPDIR/ebuilds.ordered + + for EBUILD in $(cat ${EBUILDS_PREINSTALL} ); do + if emerge --oneshot -p "=$EBUILD"|egrep -q ".*ebuilds.*satisfy"; then + if emerge --oneshot -p ">=$EBUILD"|egrep -q ".*ebuilds.*satisfy"; then + echo "$(date) : There are no unmasked ebuilds to satisfy $EBUILD. Skipping" | tee -a $LOG + sleep 2 + else + if [ ! -z $ASK ]; then + printf "${EBUILD} isn't available, but a new version is. Install? (Y/N) " + read ANSWER + if [ $(echo "${ANSWER}" | egrep -e "^y|Y" ) ]; then + echo ">=$EBUILD" >> ${EBUILDS_ORDERED} + echo "$(date) : User chose to install >=${EBUILD}">>$LOG + fi + else + echo ">=$EBUILD" >>${EBUILDS_ORDERED} + fi + fi else - more $TMPDIR/ebuilds.ordered + echo "=$EBUILD">>${EBUILDS_ORDERED} fi - printf "Continue? (Y/N) " - read ANSWER - if [ `echo "${ANSWER}" | egrep -e "^n|N" ` ]; then - echo "`date` : USER ABORTED REBUILD">>$LOG - exit + done + + if [ -s ${EBUILDS_ORDERED} ]; then + if [ ! -z $ASK ]; then + echo "Press Enter to see the final list of ebuilds to install" + read key + $PAGER ${EBUILDS_ORDERED} + printf "Continue? (Y/N) " + read ANSWER + if [ $(echo "${ANSWER}" | egrep -e "^n|N" ) ]; then + echo "$(date) : USER ABORTED REBUILD">>$LOG + exit + fi fi - fi # Cut down to one line so portage can handle ordering these appropriately - emerge -p --oneshot `cat $TMPDIR/ebuilds.ordered` | grep ebuild | sed 's:\([^ ]\+\):=\1:g' | sed 's:.*\] \([^ ]*\) .*:\1:'>>$TMPDIR/ebuilds.reinstall + emerge -p --oneshot $(cat ${EBUILDS_ORDERED} ) | grep ebuild | sed -e 's:\([^ ]\+\):=\1:g' -e 's:.*\] \([^ ]*\) .*:\1:'>>${EBUILDS_REINSTALL} - echo "Reinstalling ebuilds" - echo "`date` : Ebuilds to reinstall: ">>$LOG - cat $TMPDIR/ebuilds.reinstall>>$LOG - echo "" >>$LOG + echo "Reinstalling ebuilds" + echo "$(date) : Ebuilds to reinstall: ">>$LOG + cat ${EBUILDS_REINSTALL}>>$LOG + echo >>$LOG # Now that we have them in the right order, emerge them one at a time # This is to avoid problems if one doesn't emerge correctly - for EBUILD in `cat $TMPDIR/ebuilds.reinstall`; do - if [ ! -z $ASK ]; then - emerge --oneshot --ask "$EBUILD" + for EBUILD in $(cat ${EBUILDS_REINSTALL}); do + emerge --oneshot ${ASK} "$EBUILD" + done else - emerge --oneshot "$EBUILD" + echo + echo "Nothing to reinstall!" + echo fi - done - else - echo "" - echo "Nothing to reinstall!" - echo "" - fi -else - echo "" - echo "Nothing to reinstall!" - echo "" -fi + else + echo + echo "Nothing to reinstall!" + echo + fi } @@ -207,43 +206,36 @@ fi # after our last install of libperl, which should cut out the false positives. function libperl_list() { -echo "`date` : Locating ebuilds linked against libperl" -echo "`date` : Locating ebuilds linked against libperl">>$LOG -for i in $(find $(egrep -v ^# /etc/ld.so.conf) -type f -name '*.so*' ! -newer /usr/lib/libperl.so ) \ - $(find $(echo $PATH | sed 's/:/ /g') -type f -perm +0111 ! -newer /usr/lib/libperl.so ) ; -do - echo "Checking ${i}" #MPC - if [ -f ${i} ]; then - ldd ${i} 2>&1 | grep "libperl" - >/dev/null && grep -l $i $PKGDIR/*/*/CONTENTS>>$TMPDIR/modules.list; - fi -done + echo "$(date) : Locating ebuilds linked against libperl" | tee -a $LOG + for i in $(find $(egrep -v ^# /etc/ld.so.conf) -type f -name '*.so*' ! -newer /usr/lib/libperl.so ) \ + $(find $(echo $PATH | sed 's/:/ /g') -type f -perm +0111 ! -newer /usr/lib/libperl.so ) ; + do + if [ -f ${i} ]; then + ldd ${i} 2>&1 | grep "libperl" - >/dev/null && grep -l $i $PKGDIR/*/*/CONTENTS>>${MODULES_LIST}; + fi + done } # Assuming a successful module run, look to see whats left over function leftovers() { -echo "`date` : Finding left over modules" -echo "`date` : Finding left over modules">>$LOG - -echo "`date` : The following files remain. These were either installed by hand" -echo "`date` : or edited. This script cannot deal with them." -echo "" - -echo "`date` : The following files remain. These were either installed by hand">>$LOG -echo "`date` : or edited. This script cannot deal with them.">>$LOG -echo "">>$LOG - -INC=`perl -e 'foreach $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }'` -for DIR in $INC; do - if [ -d $DIR ]; then - for file in `find $DIR -type f |grep -v "${PERL_VERSION}" ` ; do - echo "`date` : ${file}">>$LOG - done - fi -done + echo "$(date) : Finding left over modules" | tee -a $LOG + + echo "$(date) : The following files remain. These were either installed by hand" | tee -a $LOG + echo "$(date) : or edited. This script cannot deal with them." | tee -a $LOG + echo | tee -a $LOG + + + INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${PERL_VERSION}'/; print "$line\n" }') + for DIR in $INC; do + if [ -d $DIR ]; then + for file in $(find $DIR -type f |grep -v "${PERL_VERSION}" ) ; do + echo "$(date) : ${file}" | tee -a $LOG + done + fi + done } -cleanrun case "$1" in leftovers) |