--- elwix/config/rc.subr	2011/10/18 09:02:06	1.2
+++ 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.2 2011/10/18 09:02:06 misho Exp $
+# $Id: rc.subr,v 1.2.4.2 2012/05/29 14:24:05 misho Exp $
 #
 
 ### Dont edit this file !!!
@@ -60,12 +60,22 @@ 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
+}
+