Unistall - Install damn near anything on anything / file revision

 # Functions used by install.sh, also shared by setup.

 # Ensure that we exit properly, paying attention to --force

 # Syntax: safe_exit EXIT_SUCCESS or EXIT_FAILURE, --force will over-ride

 # safe_exit $EXIT_SUCCESS or $EXIT_FAILURE, exits regardless of --force

 safe_exit()

 {

 	local mode="$1"

 	# If called with EXIT_FAILURE and $FORCE is true, we don't exit.

 	# If called with $EXIT_FAILURE, we exit no matter the value of $FORCE

 	# Simple work-around so that we can die if we really need to, even if

 	# --force was passed. Note, EXIT_FAILURE and $EXIT_FAILURE are different

 	# TODO: Make me sain with a simple EXIT_FORCE macro, duh!

 	[ -z "$EXIT_FAILURE" ] || [ "$EXIT_FAILURE" = "" ] && EXIT_FAILURE="1"

 	[ "$FORCE" = "yes" ] && [ "$mode" != "$EXIT_FAILURE" ] && return 0

 	[ -z "$mode" ] && safe_exit EXIT_SUCCESS

 	case $mode in

 		0|EXIT_SUCCESS)

 			# if EXIT_SUCCESS undefined, just exit and rely on the shell

 			# to invoke the proper EXIT_ macro

 			[ -z "$EXIT_SUCCESS" ] || [ "$EXIT_SUCCESS" = "" ] && {

 				exit

 			}

 			exit $EXIT_SUCCESS

 			;;

 		*)

 			# Exit with whatever EXIT_FAILURE is defined as, or with

 			# whatever argument was passed to safe_exit()

 			[ $mode = "EXIT_FAILURE" ] && exit $EXIT_FAILURE

 			exit $mode

 			;;

 	esac

 }

 # 99 ways to die.

 # Syntax: die [reason] [why]

 # Reason can be one of the pre-defined causes, specifying "why", or just

 # die "reason"

 # Syntax: die prog "gcc" -> Complains that the program gcc can not be found

 die()

 {

 	local mode=$1

 	local why=$2

 	case $mode in

 		prog)

 			printf "\nThe program %s could not be found in your path\n" \

 				"$why"

 			printf "Please install '%s' (or ensure its in your path) " \

 				"$why"

 			printf "and try again.\n"

 			printf "If you are running this as an ordinary user, make sure "

 			printf "that /sbin and /usr/sbin\nare in your path.\n"

 			logg "FATAL: Could not find the program $why"

 			safe_exit EXIT_FAILURE

 		;;

 		lib)

 			printf "\nThe library %s could not be located.\n" "$why"

 			printf "Please install the library '%s' and try again.\n" "$why"

 			logg "FATAL: Could not find the library $why"

 			safe_exit EXIT_FAILURE

 		;;

 		evar)

 			printf "\nThe environmental variable %s is not set.\n" "$why"

 			printf "Please set %s properly and try again.\n" "$why"

 			logg "FATAL: env setting $why is null or undefined."

 			safe_exit EXIT_FAILURE

 		;;

 		err)

 			printf "\n%s\n" "$why"

 			logg "FATAL: $why"

 			safe_exit EXIT_FAILURE

 		;;

 		arch)

 			printf "\nYour architecture, %s, is not supported by %s.\n" \

 				"$try" "$PROGNAME"

 			printf "You can contact %s to see if this will change soon.\n" \

 				"$BUGMAIL"

 			logg "FATAL: Arch $why is not supported."

 			safe_exit EXIT_FAILURE

 		;;

 		kernel)

 			printf "\nYour kernel, version %s, is not supported by %s.\n" \

 				"$why" "$PROGNAME"

 			printf "You can contact %s to see if this will change soon.\n" \

 				"$BUGMAIL"

 			logg "FATAL: Kernel $why is not supported."

 			safe_exit EXIT_FAILURE

 		;;

 		internal)

 			printf "\nThe POSIX invocation of your shell lacks the %s "

 			printf "built-in.\n" "$why"

 			printf "Please link /bin/sh to something supporting %s\n" "$why"

 			logg "FATAL: Internal shell error, $why doesn't seem to work."

 			safe_exit EXIT_FAILURE

 		;;

 		package)

 			printf "\nI could not install the package %s with %s.\n" \

 				"$why" "$DIST_PACKAGER"

 			printf "Perhaps missing sources in your packager config?\n"

 			logg "FATAL: Could not install the mandatory package '$why'"

 			safe_exit EXIT_FAILURE

 		;;

 		*)

 			printf "\n%s\n" "$*"

 			logg "FATAL: $*"

 			safe_exit EXIT_FAILURE

 		;;

 	esac

 }

 # returns non-zero if uid !=0

 # Syntax: check_root || die "You must be root to run this program"

 check_root()

 {

 	[ $(id -u) = 0 ] || return 1

 	return 0

 }

 # Loggs $* (all arguments) to the defined logfile, if defined.

 # Syntax: logg Do re me fa so la ti do

 logg()

 {

 	local str="$*"

 	[ -z $INSTALL_LOG ] || [ "$INSTALL_LOG" = "" ] && return 0

 	local stamp=$(date +%s)

 	printf "%d %s\n" "$stamp" "$str" >> $INSTALL_LOG

 }

 # Writes a newline to the logfile

 logg_nl()

 {

 	[ -z $INSTALL_LOG ] || [ "$INSTALL_LOG" = "" ] && return 0

 	printf "\n" >> $INSTALL_LOG

 }

 # Much like check_prog, however sets PROGNAME=/path/to/progname

 # as a global (r/w) variable. (does not write to paths.in)

 # Syntax: check_prog_export "progname" , or more typical

 # check_prog_export "progname" || handle_failure_somehow

 check_prog_export()

 {

 	local target="$1"

 	local dir=""

 	local prog=""

 	printf "Checking for the program %s ... " "$target"

 	for dir in $(echo $PATH | $TR -d '\n' | $TR ':' ' '); do

 		[ -x ${dir}/${target} ] && {

 			printf "${dir}/${target} [ok]\n"

 			prog="${dir}/${target}"

 			target="$(echo $target | $TR 'a-z' 'A-Z' | \

 				$TR '\-' '_' | $TR '\.' '_')"

 			export $target="$prog"

 			return 0

 		}

 	done

 	printf "[no]\n"

 	return 1

 }

 # "Smart" init updater, calls the appropriate tool

 # Syntax: update_init initscript on/off

 update_init()

 {

 	local prog="$1"

 	local mode="$2"

 	local retval=0

 	case $mode in

 		on|start)

 			printf "Setting %s to start on boot ... " "$prog"

 			case $DIST_INITCTL in

 				chkconfig)

 					$CHKCONFIG $prog on >/dev/null 2>&1

 					retval=$?

 				;;

 				update-rc.d)

 					$UPDATE_RC_D $prog defaults >/dev/null 2>&1

 					retval=$?

 				;;

 				*)

 					retval=1

 				;;

 			esac

 		;;

 		off|stop)

 			printf "Setting %s to NOT start on boot ... " "$prog"

 			case $DIST_INITCTL in

 				chkconfig)

 					$CHKCONFIG $prog off >/dev/null 2>&1

 					retval=$?

 				;;

 				update-rc.d)

 					$UPDATE_RC_D -f $prog remove >/dev/null 2>&1

 					retval=$?

 				;;

 				*)

 					retval=1

 				;;

 			esac

 		;;

 		*)

 			retval=1

 		;;

 	esac

 	[ $retval = 0 ] && {

 		printf "[ok]\n"

 		logg "Modified init, $prog set to $mode"

 		return 0

 	}

 	printf "[failed]\n"

 	logg "Could not modify init settings for $prog - attempted $mode"

 	return $retval

 }

 # Generates a PEM encoded self signed certificate

 # Syntax: generate_pem /path/to/cert.pem

 # returns non-zero on failure.

 generate_pem()

 {

 	# Country Name (2 letter code) [AU]:

 	local A="."

 	# State or Province Name (full name) [Some-State]:

 	local B="."

 	# Locality Name (eg, city) []:

 	local C="."

 	# Organization Name (eg, company) [Internet Widgits Pty Ltd]:

 	local D="$(hostname)"

 	# Organizational Unit Name (eg, section) []:

 	local E="User Services"

 	# Common Name (eg, YOUR name) []:

 	local F="GNUPanel"

 	# Email Address []:

 	local G="ssl@$(hostname)"

 	local target=$1

 	[ -z "$OPENSSL" ] && {

 		check_prog_export "openssl" || {

 			printf "\nOpenSSL could not be found, can't generate %s\n" \

 				"$target"

 			return 1

 		}

 	}

 	printf "Generating PEM encoded self signed certificate $target ... "

 	printf "%s\n%s\n%s\n%s\n%s\n%s\n%s\n" "$A" "$B" "$C" "$D" "$E" \

 		"$F" "$G" 2>&1 | \

 		$OPENSSL req -days 1000 -new -x509 \

 			-nodes -out "$target" -keyout $target >/dev/null 2>&1

 	[ $? != 0 ] && {

 		printf "[failed]\n"

 		return 1

 	}

 	$CHMOD 0600 $target

 	openssl verify "$target" >/dev/null 2>&1 || {

 		printf "\n %s failed verification and has been deleted.\n" \

 			"$target"

 		$RM -f $target

 		return 1

 	}

 	printf "[success]\n"

 	return 0

 }