--- elwix/config/rc.subr	2011/10/18 09:02:06	1.2
+++ 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.2 2011/10/18 09:02:06 misho Exp $
+# $Id: rc.subr,v 1.2.4.1 2011/12/19 20:43:07 misho Exp $
 #
 
 ### Dont edit this file !!!
@@ -69,3 +69,11 @@ InstallFiles()
 		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
+}
+