--- elwix/config/rc.subr	2011/07/05 23:43:00	1.1
+++ elwix/config/rc.subr	2011/12/19 20:43:07	1.2.4.1
@@ -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.1 2011/12/19 20:43:07 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,22 @@ InstallProg()
 {
 	install -c $*
 }
+
+# $1 = file_pattern
+# $2 = To dir
+# $3 = From dir
+InstallFiles()
+{
+	cd $2
+	find . -type f -name "$1" | 
+		tar -cvf - -T - | tar -C $3 -xf -
+	cd -
+}
+
+# $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
+}
+