Community technical support mailing list was retired 2010 and replaced with a professional technical support team. For assistance please contact: Pre-sales Technical support via email to sales@march-hare.com.
Untested, but conceptually:
#!perl -w
use strict;
Use File::Find;
sub wanted {
if (!-d $_) {
# if (/.java/ || /.large_binary_type/) -- you get the idea.
print "Processing file $_ ($File::Find::name)\n";
system("cvs admin -o etc etc $_");
}
}
File::Find::find(\&wanted, '.');
>
> This is interesting for us too
>
> The reason is, that we often use LabView for development and
> the source
> code for this is stored in binary files. So the repository grows very
> quick and we want to delete old versions when they are not
> longer relevant.
>
> Stephan
>
> Czarnowski, Aric schrieb:
> >>Is there a way I can use this command to recursively
> >>obsolete all revisions older than the head in a module,
> >>as far as I can see, this instruction only works on a
> >>per file basis.
> >
> >
> > That would be a very dangerous undertaking and I'm not sure why you
> > would do such a thing, the whole point of CVS is to track changes.
> > Paring down binaries maybe...
> >
> > I think the answer to your question is "no" and IMHO that's
> for a good
> > reason.
> >
> > --Aric
> >
> >
> > Aric Czarnowski
> > Unimax Systems Corporation
> > 612-204-3634
> _______________________________________________
> cvsnt mailing list
> cvsnt at cvsnt.org http://www.cvsnt.org/cgi-bin/mailman/listinfo/cvsnt cvsnt downloads at march-hare.com https://www.march-hare.com/cvspro/en.asp#downcvs @CVSNT on Twitter CVSNT on Facebook
>