From 7f755e175e011ed5ddc194e881d0c01ce21f12de Mon Sep 17 00:00:00 2001
From: tony <tony>
Date: Tue, 17 Aug 1999 18:52:43 +0000
Subject: [PATCH] Now takes a backdoor.

---
 install.sh | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/install.sh b/install.sh
index 8e59924..1278cac 100755
--- a/install.sh
+++ b/install.sh
@@ -22,6 +22,8 @@ cowsay Installation
 Searching for useful perl executables...
 DOG
 
+backdoor=$1
+
 pathdirs=`echo $PATH | tr : " "`
 for p in $pathdirs; do
 	set $p/perl $p/perl5*
@@ -53,7 +55,13 @@ echo I will be using $1 because I know it will work.
 
 echo Now I need an installation prefix.  I will use /usr/local unless
 printf "you give me a better idea here: "
-read prefix
+if [ -n "$backdoor" ]; then
+	prefix=$backdoor
+	printf "%s (specified on command line)\n" $prefix
+else
+	read prefix
+fi
+
 PREFIX=${prefix:-/usr/local}
 
 echo Okay, time to install this puppy.