/[webpac]/trunk/openisis/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

Annotation of /trunk/openisis/lscvs

Parent Directory Parent Directory | Revision Log Revision Log


Revision 239 - (hide annotations)
Mon Mar 8 17:49:13 2004 UTC (20 years ago) by dpavlin
File size: 823 byte(s)
including openisis 0.9.0 into webpac tree

1 dpavlin 237 #!/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