LinuxInstallation: install_perl_modules.sh

#!/bin/bash

if [ $# -lt 1 ]; then
        echo -e "usage: `basename $0` <in dir>\n    <in dir> - Directory containing tar.gz files for\n               all perl modules, distributions you want to install"
        exit 1
else
        IND=$1
        LOGD=`pwd`/perl_module_installation_logs
fi

echo "Input directory: $IND"
echo "Log directory: $LOGD"

TD=/tmp/.pm_perlmod_installer
rm -rf $TD $LOGD
mkdir -p $TD $LOGD

# Some modules' make or make install asks some questions.
# Hopefully all of them have a default value so if you press
# enter it should work. "< response_file" simulates that.
# No one asks more than 2 questions but we give 10 "enters"
# just to be safe.
RESP_FILE=/tmp/.pm_perlmod_installer_resp_file
cat <<EOFILE > $RESP_FILE










EOFILE

echo "gunzipping n untarring from $IND to $TD."
for targz in $IND/*.tar.gz
do
        gunzip $targz
        tar -C $TD -xf ${targz/.gz/}
done

echo "gzipping..."
gzip $IND/*.tar

# Given that we don't know the correct sequence
# as per the dependencies among these modules, we
# keep trying in a loop.
# Max number of retries = total num of modules
cd $TD
num_succ_modules=0
num_retries=0
echo "Number of modules to install = `ls -1 $TD | wc -l`"
while true
do
        num_modules=`ls -1 $TD | wc -l`
        if [ $num_modules -eq 0 ]; then
                echo "Unbeleivable.. all modules installed successfully. Congratulations."
                break;
        fi

        if [ $num_retries -gt $num_modules ]; then
                echo "Tried $num_retries times, but looks like the $IND contains modules which depend on some modules which are neither installed nor inside $IND."
                rm -rf $TD
                exit 1;
        fi

        echo "-----------------Try number: $num_retries-----------------"
        cd $TD
        for f in *
        do
                LOGF=$LOGD/$f.log
                echo "Installing $f"
                echo "------------------------------------------------------------" >> $LOGF
                echo "-----------------Retry number: $num_retries-----------------" >> $LOGF
                echo "------------------------------------------------------------" >> $LOGF
                cd $TD/$f
                # some modules provide a difference installation interface.. :-(((
                if [ -f Makefile.PL ]; then
                        step_one="perl Makefile.PL"
                        step_two="make"
                        step_three="make install"
                else
                        step_one="perl Build.PL"
                        step_two="perl ./Build"
                        step_three="perl ./Build install"
                fi
                echo "---------------------------$step_one---------------------------" >> $LOGF
                $step_one < $RESP_FILE >> $LOGF 2>&1
                if [ $? -ne 0 ]; then
                        echo "\"$step_one\" phase for $f failed."
                else
                        echo "---------------------------$step_two---------------------------" >> $LOGF
                        $step_two < $RESP_FILE >> $LOGF 2>&1
                        if [ $? -ne 0 ]; then
                                echo "\"$step_two\" phase for $f failed."
                        else
                                echo "---------------------------$step_three---------------------------" >> $LOGF
                                $step_three < $RESP_FILE >> $LOGF 2>&1
                                if [ $? -ne 0 ]; then
                                        echo "\"$step_three\" phase for $f failed."
                                else
                                        # if it was installed remove it,
                                        # so we save some time in next parse.
                                        echo "$f installed SUCCESSFULLY."
                                        rm -rf $TD/$f
                                        num_succ_modules=`expr $num_succ_modules + 1`
                                fi
                        fi
                fi
        # for f in *
        done
        num_retries=`expr $num_retries + 1`
# while true
done

rm -rf $TD
echo "All done. Logs available in: $LOGD"

exit 0;