--- elwix/config/rc.subr	2011/07/05 23:43:00	1.1
+++ elwix/config/rc.subr	2012/05/29 14:24:05	1.2.4.2
@@ -4,7 +4,7 @@
 # (C) AITNET ltd - Sofia/Bulgaria <office@aitnet.org>
 #    by Michael Pounov <misho@elwix.org>
 #
-# $Id: rc.subr,v 1.1 2011/07/05 23:43:00 misho Exp $
+# $Id: rc.subr,v 1.2.4.2 2012/05/29 14:24:05 misho Exp $
 #
 
 ### Dont edit this file !!!
@@ -46,7 +46,7 @@ InstallList()
 
 # $1 = From dir
 # $2 = To dir
-InstallFiles()
+InstallDir()
 {
 	cd $1
 	pax -rw -pe -X . $2
@@ -58,3 +58,24 @@ InstallProg()
 {
 	install -c $*
 }
+
+# $1 = file_pattern
+# $2 = From dir
+# $3 = To dir
+InstallFiles()
+{
+	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
+}
+