/[webpac]/openisis/current/lscvs
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /openisis/current/lscvs

Parent Directory Parent Directory | Revision Log Revision Log


Revision 237 - (show annotations)
Mon Mar 8 17:43:12 2004 UTC (15 years, 5 months ago) by dpavlin
File size: 823 byte(s)
initial import of openisis 0.9.0 vendor drop

1 #!/usr/bin/perl
2
3 # list files under CVS control
4 # $Id: lscvs,v 1.2 2002/12/13 15:42:42 kripke Exp $
5
6 sub dodir {
7 my $dir = shift;
8 print STDERR "$dir\n";
9 local *FH;
10 open( FH, $dir.'CVS/Entries' );
11 while (<FH>) {
12 # print STDERR $_;
13 chomp;
14 my ($type,$name,$version,$date,$opt,$tagdate) = split( /\// );
15 if ( '' eq $type ) {
16 if ( $l ) {
17 print join("\t",$dir.$name,$version,$date,$x),"\n";
18 } else {
19 print $dir.$name,"\n";
20 }
21 } elsif ( 'D' eq $type ) {
22 dodir( $dir.$name.'/' ) if $r && $name;
23 # "`D' on a line all by itself indicates that the program
24 # which wrote the `Entries' file does record subdirectories"
25 } else {
26 print STDERR "uknown type '$type' in $dir ",
27 join("\t",$name,$version,$date,$x),"\n";
28 }
29 }
30 close FH;
31 }
32
33 $l = $ARGV[0] =~ /l/;
34 $r = $ARGV[0] =~ /r/;
35
36 dodir;

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26