pathmap.ini: use correct Perl version

[sitka/sitka-tools.git] / patching / patch-eg.sh

#!/bin/bash
# Author: schan@sitka.bclibraries.ca

Help() {
	cat<<____

DESCRIPTION:
Apply or unapply a patch to remote Evergreen hosts

USAGE:
./patch-eg.sh -p ID [ -b backup_label ] [ -P rule ] [ -y ] [ -R ] [ -h ] host1 host2...

OPTIONS:
    -p SHA1 ID of patch to apply (mandatory)
    -b Backup label of patch
       Defaults to patch ID
    -P Patch rule (web, tt2, xul, bin, perl, util) to determine patch directory, user, and strip level
       Defaults to 'web'
    -y Yes, apply the patch instead of doing a dry run
    -R Reverse or undo the patch instead of applying it
    -h Print this message and exit
____
}

# Parse command line for run-time options
while getopts 'p:b:P:yRh' Option; do
	case $Option in
	(p) Patch_ID=$OPTARG;;
	(b) Patch_Backup=$OPTARG;;
	(P) Patch_Rule=$OPTARG;;
	(y) Runit='';;
	(R) Reverse='-R';;
	(h) Help && exit 0;;
	esac
done
shift $(( $OPTIND - 1 ))

# Calculate default options
Remote_Host=${1:?}
Patch_ID=${Patch_ID:?}
Patch_Backup=${Patch_Backup:-$Patch_ID}
Patch_Rule=${Patch_Rule:-web}
Runit=${Runit-'--dry-run'}
Reverse=${Reverse-''}

# Define function to echo the intended action for a host
Echo_Intention() {
	[[ $Runit == '--dry-run' ]] && echo -ne '\nDry run: '
	if [[ $Reverse == '-R' ]]; then echo -n 'Reversing '; else echo -n 'Applying '; fi
	echo -e "patch $Patch_ID to $1 and backing up as $Patch_Backup"
}

# Associate the patch rule to patch path, strip level, and sudo user
# If patch rule is 'perl', the patch path will be dynamically determined from the host
declare -A Rule
case $Patch_Rule in
    (web)  Rule=( [path]=/srv/openils/var                [level]=2 [sudo]=opensrf );;
    (tt2)  Rule=( [path]=/srv/openils/var                [level]=3 [sudo]=opensrf );;
    (xul)  Rule=( [path]=/srv/openils/var/web/xul        [level]=4 [sudo]=opensrf );;
    (bin)  Rule=( [path]=/srv/openils/bin                [level]=4 [sudo]=opensrf );;
    (perl) Rule=( [path]=/usr/local/share/perl/5.14.2    [level]=5 [sudo]=root    );;
    (util) Rule=( [path]=/srv/openils/var/web/xul/server [level]=6 [sudo]=opensrf );;
esac


# Set local environment

# Domain name of patch host (Evergreen)
#declare -r SOURCE="git.evergreen-ils.org/?p=Evergreen.git"
# Domain name of patch host (Sitka)
declare -r SOURCE="git.sitka.bclibraries.ca/gitweb/?p=sitka/evergreen.git"
# Domain name of target hosts
declare -r TARGET=sitka.bclibraries.ca
# Name of ssh and sudo user
declare -r LOGIN=sitkastaff


# Calculate command text strings
declare -r SUDO="sudo -p '' -S -u ${Rule[sudo]}"
declare -r Patch_URL="http://$SOURCE;a=patch;h=$Patch_ID"
declare -r WGET="wget -q -O - '$Patch_URL'"
declare -r Backup_Policy="-b -B .patch/$Patch_Backup/ -V simple"
declare -r PATCH="patch $Runit $Reverse -r - $Backup_Policy -p${Rule[level]}"
declare -r OPENILS_DIR="perl -MOpenILS -e 'print \$INC{qq(OpenILS.pm)}'"

# Define function to find directory name of the OpenILS Perl module at a host
Perl_Dir() { dirname $(ssh "$LOGIN@$1.$TARGET" $OPENILS_DIR); }

# Define function to patch a directory at a host via ssh sudo
Patch_Dir() { ssh "$LOGIN@$1.$TARGET" "$SUDO bash -c \"$WGET | $PATCH -d $2 \""; }

# Ask the user once for sudo password
read -s -p "$LOGIN's sudo password: " Password ; echo

for Host; do
	Echo_Intention $Host
	[[ $Patch_Rule == 'perl' ]] && Rule[path]=$(Perl_Dir $Host)
	Patch_Dir $Host ${Rule[path]} <<< $Password
done