[cvsnt] cvs admin -o

[Jeff Urlwin]

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
>