--- elwix/config/rc.subr	2011/12/19 20:43:07	1.2.4.1
+++ elwix/config/rc.subr	2013/01/28 10:42:47	1.5
@@ -4,7 +4,7 @@
 # (C) AITNET ltd - Sofia/Bulgaria <office@aitnet.org>
 #    by Michael Pounov <misho@elwix.org>
 #
-# $Id: rc.subr,v 1.2.4.1 2011/12/19 20:43:07 misho Exp $
+# $Id: rc.subr,v 1.5 2013/01/28 10:42:47 misho Exp $
 #
 
 ### Dont edit this file !!!
@@ -40,8 +40,23 @@ SnitVer()
 # $3 = To Dest dir
 InstallList()
 {
-	sed -nE -e 's/^ *([^ #]+) */\1/p' < $1 | tr ':' '\n' | 
-		tar -C $2 -cvf - -T - | tar -C $3 -x -f -
+	local TMPFILE=$(mktemp -q /tmp/instlist.XXXXXX)
+	if [ $? -ne 0 ]; then
+		echo "Error:: Can't create temp file, exiting..."
+		exit 1
+	fi
+
+	sed -nE -e 's/^ *([^ #]+) */\1/p' < $1 | tr ':' '\n' >$TMPFILE
+	cd $2
+	for i in $(cat $TMPFILE); do
+		if [ -x $i ]; then
+			echo "Strip '$i'"
+			strip -s $i
+		fi
+	done
+	cd -
+	tar -C $2 -cvf - -T $TMPFILE | tar -C $3 -x -f -
+	rm -f $TMPFILE
 }
 
 # $1 = From dir
@@ -60,14 +75,16 @@ InstallProg()
 }
 
 # $1 = file_pattern
-# $2 = To dir
-# $3 = From dir
+# $2 = From dir
+# $3 = To dir
 InstallFiles()
 {
-	cd $2
-	find . -type f -name "$1" | 
-		tar -cvf - -T - | tar -C $3 -xf -
-	cd -
+	if [ -d "$2" ]; then
+		cd $2
+		find . -type f -name "$1" | 
+			tar -cvf - -T - | tar -C $3 -xf -
+		cd -
+	fi
 }
 
 # $1 = Directory for clean
@@ -77,3 +94,26 @@ CleanCVS()
 	find $1 -type f -name .#\* -exec rm -f {} \; >/dev/null 2>&1
 }
 
+# $1 = file_pattern
+# $2 = From dir
+StripFiles()
+{
+	if [ -d "$2" ]; then
+		local TMPFILE=$(mktemp -q /tmp/instlist.XXXXXX)
+		if [ $? -ne 0 ]; then
+			echo "Error:: Can't create temp file, exiting..."
+			exit 1
+		fi
+
+		cd $2
+		find . -type f -name "$1" >$TMPFILE
+		for i in $(cat $TMPFILE); do
+			if [ -x $i ]; then
+				echo "Strip '$i'"
+				strip -s $i
+			fi
+		done
+		cd -
+		rm -f $TMPFILE
+	fi
+}