head	1.5;
access;
symbols;
locks; strict;
comment	@# @;


1.5
date	2011.11.22.10.05.34;	author dunc;	state Exp;
branches;
next	1.4;

1.4
date	2005.03.29.09.08.20;	author dunc;	state Exp;
branches;
next	1.3;

1.3
date	2002.12.19.01.38.51;	author dunc;	state Exp;
branches;
next	1.2;

1.2
date	99.05.28.00.23.43;	author dr;	state Exp;
branches;
next	1.1;

1.1
date	99.05.28.00.12.48;	author dr;	state Exp;
branches;
next	;


desc
@perform tstcleans throughout a tree
@


1.5
log
@Use -follow instead of looking for -type l (which could find an orphan symlink)
@
text
@#!/bin/sh
case "$1" in
"")
  i=.
  ;;
-)
  cd $2/..
  tstclean
  exit
  ;;
*)
  i=$1
  ;;
esac
find $i -follow -name RCS -type d -print -exec megatstclean - {} \;
@


1.4
log
@Only look in RCS *directories*
@
text
@d15 1
a15 1
find $i -type d -name RCS -print -exec megatstclean - {} \;
@


1.3
log
@Don't need or want "break" in "case" stmt
@
text
@d15 1
a15 1
find $i -name RCS -print -exec megatstclean - {} \;
@


1.2
log
@Don't need megatstclean2 any more
@
text
@a4 1
  break
@


1.1
log
@Initial revision
@
text
@d2 15
a16 2
if [ "$1" = "" ];then i=.;else i=$1;fi
find $i -name RCS -print -exec megatstclean2 {} \;
@
