--- elwix/config/rc.subr	2011/07/21 08:32:21	1.1.1.1.2.1
+++ elwix/config/rc.subr	2013/05/07 20:46:48	1.6
@@ -4,7 +4,7 @@
 # (C) AITNET ltd - Sofia/Bulgaria <office@aitnet.org>
 #    by Michael Pounov <misho@elwix.org>
 #
-# $Id: rc.subr,v 1.1.1.1.2.1 2011/07/21 08:32:21 misho Exp $
+# $Id: rc.subr,v 1.6 2013/05/07 20:46:48 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,12 +75,45 @@ 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
+CleanCVS()
+{
+	find $1 -type d -name CVS -exec rm -rf {} \; >/dev/null 2>&1
+	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
 }