/usr/share/doc/librcs-perl/examples/co-tree.pl is in librcs-perl 1.05-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | #!/usr/bin/perl -w
use strict;
use File::Find;
use File::Path;
use Rcs;
Rcs->bindir("/usr/bin");
my $lock = 0;
# Traverse desired filesystems
my $tree_root = '/home/freter/tmp';
my $rcs_path = '/RCS';
my $chkpt_path = '/chkpt';
find(\&wanted, $tree_root . $rcs_path);
exit;
sub wanted {
my $relative_path = $File::Find::dir;
($relative_path) =~ s{^$tree_root$rcs_path}{};
print $relative_path;
print "\n";
mkpath([$tree_root . $chkpt_path . $relative_path], 1, 0755);
return unless -f;
my $obj = Rcs->new;
s/,v$//;
$obj->file($_);
$obj->rcsdir($tree_root . $rcs_path . $relative_path);
$obj->workdir($tree_root . $chkpt_path . $relative_path);
# check out and lock
if ($lock) {
$obj->co("-l");
}
# check out read only
else {
$obj->co;
}
}
|